Operasi String di Visual Basic 6

Visual basic 6 memiliki fungsi built-in untuk operasi string. ada operasi string yang akan memngembalikan ke string lagi, misalnya fungsi Right (Mengambil karakter N dari Kanan), Left (Mengambil Karakter dari Kiri) dan ada yang memberikan output angka, misalnya Len (mengembalikan panjang string). untuk string yang mengembalikan string. fungsi string yang mengembalikan string, dapat ditulis dengan atau tanpa dolar pada akhir nama fungsi. tetapi saya menyarankan menggunakan tanda $ dibagian akhir nama fungsi, untuk mempercepat kinerja aplikasi, berikut ini beberapa fungsi string yang saya tahu:

Fungsi:	Len
Deskripsi:	Menghitung jumlah karakter dalam suatu string
Syntax:	Len(string)
Contoh:	lngLen = Len("Visual Basic")  '

Fungsi:	Mid$ (atau Mid)
Deskripsi:	Mengambil sejumlah karakter dari suatu string,  dari karakter ke - n sampai N
Syntax:	Mid$(string, start(Char Ke-),Lenght) Keterangan: string   Required; string yang akan diambil sebagian karakternya start(Char ke-)      Required; Angka. posisi Karakter awal pengambilan pemecahan string  Lenght:   Optional; Angka. Jumlah/Panjang karakter yang diambil
Contoh:	strSubstr = Mid$("Visual Basic", 3, 4)          ' strSubstr = "sual" Note: Mid$ juga bisa digunakan untuk mengganti string sejumlah N pada suatu string, mirip dengan perintah Replace$                Contoh:                           strTest = "Visual Basic"        Mid$(strTest, 3, 4) = "xxxx"             'strTest menjadi  "Vixxxx Basic"

Fungsi:	Left$ (atau Left)
Deskripsi:	mengambil sebagian karakter dari kiri ke kanan, sejumlah N
Syntax:	Left$(string, Lenght) keterangan: string    Required. String yang akan diambil sebaian karakternya Lenght  Required; Angka. Jumlah karakter yang diambil.
Contoh:	strSubstr = Left$("Visual Basic", 3)      ' strSubstr = "Vis"

Fungsi:	Right$ (or Right)
Deskripsi:	Mengambil sebagian karakter sejumlah N dari sisi paling kanan
Syntax:	Right$(string, Lenght) Part      Description string    Required. String yang akan diambil sebagian karakternya lenght   Required; Angka. jumlah karakter yang akan diambil
Contoh:	strSubstr = Right$("Visual Basic", 3)    ' strSubstr = "sic"

Fungsi:	UCase$ (atau UCase)
Description:	Merubah semua huruf kecil di suatu string menjadi huruf besar
Syntax:	UCase$(string)
Contoh:	strUcase = UCase$("Visual Basic")           ' strUcase = "VISUAL BASIC"

Fungsi:	LCase$ (or LCase)
Deskripsi:	Merubah semua huruf di suatu string menjadi huruf kecil
Syntax:	LCase$(string)
Contoh:	strLcase = LCase$("Visual Basic")           ' strLcase = "visual basic"

Fungsi:	Instr
Deskripsi:	mencari posisi substring dalam suatu string dimulai dari posisi karakter ke -n, outputnya numerik posisi substring itu berada
Syntax:	InStr([start,] string1, string2 [, compare]) Keterangan start           Optional. Angka. Posisi awal pencarian, bila tidak diisi otomatis akan dicari dari posisi pertama/karakter pertama string1        Required. String yang akan dianalisa string2        Required. filter/substring yang dicari compare     Optional; Angka/Pilihan, Nilai defaultnya (bila tidak diisi) adalah "0" (vbBinaryCompare) = Case Sensitif,  "1" (vbTextCompare) = Tidak Case Sensitif "2" (vbDatabaseCompare)
Contoh:	lngPos = Instr("Visual Basic", "a") ' lngPos = 5 lngPos = Instr(6, "Visual Basic", "a") ' lngPos = 9 (dimulai dari posisi karakter ke -6) lngPos = Instr("Visual Basic", "A") ' lngPos = 0 (Pencarian Case Sensitif) lngPos = Instr(1, "Visual Basic", "A", 1) ' lngPos = 5 (Pencarian Tidak Case Sensitif)

Fungsi:	InstrRev
Deskripsi:	Sama dengan Instr, perbedaannya InstrRev mencari dari posisi karakter terakhir/terbalik
Syntax:	InStrRev(string1, string2[, start, [, compare]]) Keterangan: string1        String yang akan dianalisa string2        String yang akan dicari start           posisi karakter awal pencarian (bila tidak diisi, otomatis pencarian akan dimulai dari karakter terakhir) compare     Optional; Angka/Pilihan, Nilai defaultnya (bila tidak diisi) adalah "0" (vbBinaryCompare) = Case Sensitif,  "1" (vbTextCompare) = Tidak Case Sensitif "2" (vbDatabaseCompare)
Contoh:	lngPos = InstrRev("Visual Basic", "a") ' lngPos = 9 lngPos = InstrRev("Visual Basic", "a", 6)  ' lngPos = 5 (dimulai dari posisi karakter ke- 6) lngPos = InstrRev("Visual Basic", "A") ' lngPos = 0 (Pencarian Case Sensitif) lngPos = InstrRev("Visual Basic", "A", , 1) ' lngPos = 9 (Tidak Case Sensitif)

Fungsi:	String$ (atau String)
Deskripsi:	Mengulang karakter (string) sepanjang jumlah yang ditentukan
Syntax:	String$(jumlah, karakter) Jumlah             Required; Angka jumlah/panjang perulangan karakter           Required; String/Ascii Code, karakter yang akan diulang
Contoh:	strTest = String$(5, "a") ' strTest = "aaaaa" strTest = String$(5, 97) ' strTest = "aaaaa" (97 is the ASCII code for "a")

Fungsi:	Space$ (atau Space)
Deskripsi:	Menghasilkan spasi sejumlah n
Syntax:	Space$(angka) angka = jumlah spasi yang diinginkan
Contoh:	strTest = Space$(5)           ' strTest = "     "

Fungsi:	Replace$ (atau Replace)
Deskripsi:	Menggantikan/merubah karakter dari suatu string, fungsinya sama dengan Search and Replace di notepad atau Microsoft Word
Syntax:	Replace$(string, Cari, Replace) Keterangan: string       Required. String String yang akan dirubah/diganti karakternya/subsringnya Cari                 Required. Karakter/substring yang akan diganti Replace      Required. Karakter/subString pengganti
Contoh:	strTanggal = Replace$("08/31/2001", "/", "-") ' strTanggal = "08-31-2001"

Fungsi	StrReverse$ (atau    StrReverse)
Deskripsi	Membalik String
Syntax:	StrReverse$(string)
Contoh	strTest = StrReverse$("Visual Basic")           Output: "cisaB lausiV"

Fungsi	LTrim$ (or LTrim)
Deskripsi	Menghapus Spasi diawal string
Syntax:	LTrim$(string)
Contoh	strTest = LTrim$("  Visual Basic  ") output: "Visual Basic  "

Fungsi	RTrim$ (or RTrim)
Deskripsi:	Menhapus spasi di akhir string
Syntax:	RTrim$(string)
Contoh:	strTest = RTrim$("  Visual Basic  ")      output: "  Visual Basic"

Fungsi:	Trim$ (or Trim)
Deskripsi	Menghapus semua spasi pada string
Syntax:	Trim$(string)
Contoh	strTest = Trim$("  Visual Basic  ")      output:  "Visual Basic"

Fungsi:	Asc
Deskripsi:	Merubah/mengkonversi karakter/string ke kode ASCII
Syntax:	Asc(string)
Contoh:	intCode = Asc("*")      Output: 42 intCode = Asc("A")    Output = 65

Fungsi:	Chr$ (or Chr)
Deskripsi:	Mengkonversi/merubah kode ASCII menjadi karakter/string
Syntax:	Chr$(ASCII) ASCII = kode ascii yang ingin di konversi
Contoh:	strChar = Chr$(65)                                 Output: "A"

Contoh Aplikasi

Buat Project baru, kemudian buat satu tombol, beri nama cmdCoba

Masukkan kode ini pada cmdCoba

Private Sub cmdCoba_Click()

 Dim strTest    As String

 strTest = InputBox("Please enter a string:")
 Print "Contoh Len:"; Tab(25); Len(strTest)
 Print "Contoh Mid$:"; Tab(25); Mid$(strTest, 3, 4)
 Print "Contoh Left$:"; Tab(25); Left$(strTest, 3)
 Print "Contoh Right$:"; Tab(25); Right$(strTest, 2)
 Print "Contoh UCase$:"; Tab(25); UCase$(strTest)
 Print "Contoh LCase$:"; Tab(25); LCase$(strTest)
 Print "Contoh Instr:"; Tab(25); InStr(strTest, "a")
 Print "Contoh InstrRev:"; Tab(25); InStrRev(strTest, "a")
 Print "Contoh LTrim$:"; Tab(25); LTrim$(strTest)
 Print "Contoh RTrim$:"; Tab(25); RTrim$(strTest)
 Print "Contoh Trim$:"; Tab(25); Trim$(strTest)
 Print "Contoh String$ & Space$:"; Tab(25); String$(3, "*") _
                                            & Space$(2) _
                                            & Trim$(strTest) _
                                            & Space$(2) _
                                            & String$(3, 42)
    Print "Contoh Replace$:"; Tab(25); Replace$(strTest, "a", "*")
    Print "Contoh StrReverse$:"; Tab(25); StrReverse$(strTest)
    Print "Contoh Asc:"; Tab(25); Asc(strTest)

    Print "Contoh Len:"; Tab(25); Len(strTest)
    Print "Contoh Mid$:"; Tab(25); Mid$(strTest, 3, 4)
    Print "Contoh Left$:"; Tab(25); Left$(strTest, 3)
    Print "Contoh Right$:"; Tab(25); Right$(strTest, 2)
    Print "Contoh UCase$:"; Tab(25); UCase$(strTest)
    Print "Contoh LCase$:"; Tab(25); LCase$(strTest)
    Print "Contoh Instr:"; Tab(25); InStr(strTest, "a")
    Print "Contoh InstrRev:"; Tab(25); InStrRev(strTest, "a")
    Print "Contoh LTrim$:"; Tab(25); LTrim$(strTest)
    Print "Contoh RTrim$:"; Tab(25); RTrim$(strTest)
    Print "Contoh Trim$:"; Tab(25); Trim$(strTest)
    Print "Contoh String$ & Space$:"; Tab(25); String$(3, "*") _
                                            & Space$(2) _
                                            & Trim$(strTest) _
                                            & Space$(2) _
                                            & String$(3, 42)
    Print "Contoh Replace$:"; Tab(25); Replace$(strTest, "a", "*")
    Print "Contoh StrReverse$:"; Tab(25); StrReverse$(strTest)
    Print "Contoh Asc:"; Tab(25); Asc(strTest)
End Sub