Utak-atik string di vb

Bagi rekan2 vb mania,maaf karena banyak kesibukan dan pekerjaan, baru sekarang saya sempat mengupdate post blog saya lagi.kali ini saya akan coba menyuguhkan beberapa fungsi untuk manipulasi string dalam VB 6.

Fungsi : Len
Deskripsi : Menghasilkan panjang string
Syntax: Len(string)
Contoh : 1. lngLen = Len("Visual Basic") ' lngLen = 12

---

Fungsi : Mid$ (or Mid)
Deskripsi : Menghasilkan potongan string mulai dan panjangnya dapat ditentukan
Syntax: Mid$(string, start[, length])
string String yang ingin dipotong.
start Start pemotongan.
length Optional; panjang pemotongan.

Contoh :
1. strSubstr = Mid$("Visual Basic", 3, 4) ' strSubstr = "sual"

---

Fungsi : Left$ (or Left)
Deskripsi : Memotong string dari kiri
Syntax: Left$(string, length)
string String yang ingin dipotong
length Required; Panjang pemotongan

Contoh : 1. strSubstr = Left$("Visual Basic", 3) ' strSubstr = "Vis"
2.
3. ' Note that the same thing could be accomplished with Mid$:
4. strSubstr = Mid$("Visual Basic", 1, 3)

---

Fungsi : Right$ (or Right)
Deskripsi : Memotong string dari kanan
Syntax: Right$(string, length)
string Required. String yang ingin dipotong..
length Required; Panjang pemotongan.
Contoh : 1. strSubstr = Right$("Visual Basic", 3) ' strSubstr = "sic"
2.
3. ' Note that the same thing could be accomplished with Mid$:
4. strSubstr = Mid$("Visual Basic", 10, 3)

---

Fungsi : UCase$ (or UCase)
Deskripsi : Merubah semua huruf jadi upperCase
Syntax: UCase$(string)
Contoh : 1. strNew = UCase$("Visual Basic") ' strNew = "VISUAL BASIC"

---

Fungsi : LCase$ (or LCase)
Deskripsi : Merubah semua huruf jadi lowerCase
Syntax: LCase$(string)
Contoh : 1. strNew = LCase$("Visual Basic") ' strNew = "visual basic"

---

Fungsi : Instr
Deskripsi : Menghasilkan posisi dari suatu karakter didalam string.
Syntax: InStr([start,] string1, string2 [, compare])
start Optional. Start posisi pecarian.
string1 Required. String.
string2 Required. Karakter yang dicari.
compare Optional; numeric. A value of 0 (the default) specifies a binary (case-sensitive) search. A value of 1 specifies a textual (case-insensitive) search.
Examples: lngPos = Instr("Visual Basic", "a")
' lngPos = 5
lngPos = Instr(6, "Visual Basic", "a")
' lngPos = 9 (starting at position 6)
lngPos = Instr("Visual Basic", "A")
' lngPos = 0 (case-sensitive search)
lngPos = Instr(1, "Visual Basic", "A", 1)
' lngPos = 5 (case-insensitive search)

---

Fungsi : InstrRev
Deskripsi : Menghasilkan posisi dari suatu karakter didalam string. Tapi start pencarian dari akhir string
Syntax: InStrRev(string1, string2[, start, [, compare]])
string1 Required. String.
string2 Required. Karakter yang akan di cari.
start Optional. Posisi awal pencarian (dari akhir string)
compare Optional; numeric. A value of 0 (the default) specifies a binary (case-sensitive) search. A value of 1 specifies a textual (case-insensitive) search.
Examples: lngPos = InstrRev("Visual Basic", "a")
' lngPos = 9
lngPos = InstrRev("Visual Basic", "a", 6)
' lngPos = 5 (starting at position 6)
lngPos = InstrRev("Visual Basic", "A")
' lngPos = 0 (case-sensitive search)
lngPos = InstrRev("Visual Basic", "A", , 1)
' lngPos = 9 (case-insensitive search)
' Note that this last example leaves a placeholder for the start argument

---

Fungsi : Space$ (or Space)
Deskripsi : Menghasilkan sejumlah karakter spasi.
Syntax: Space$(number)
Berapa jumlah spasi yang diinginkan.

Examples: 1. strTest = Space$(5) ' strTest = " "

---

Fungsi : Replace$ (or Replace)
Deskripsi : Mengganti sebagian karakter dalam string dengan karakter lain
Syntax: Replace$(expression, find, replacewith[, start[, count[, compare]]])
expression String.
find Required. Substring atau karakter yang dicari.
replacewith Required. Substring atau karakter pengganti.
start Optional. Posisi awal pencarian
Examples: 1. strNewDate = Replace$("08/31/2001", "/", "-")
2. ' strNewDate = "08-31-2001"

---

Fungsi : StrReverse$ (or StrReverse)
Deskripsi : Membalik string
Syntax: StrReverse$(string)
Examples: 1. strTest = StrReverse$("Visual Basic") ' strTest = "cisaBlausiV"

---

Fungsi : LTrim$ (or LTrim)
Deskripsi : Menghilangkan spasi di sebelah kiri dalam string
Syntax: LTrim$(string)
Examples: 1. strTest = LTrim$(" Visual Basic ")
2. ' strTest = "Visual Basic "

---

Fungsi : RTrim$ (or RTrim)
Deskripsi : Menghilangkan spasi di sebelah kanan string.
Syntax: RTrim$(string)
Examples: 1. strTest = RTrim$("Visual Basic") ' strTest = "Visual Basic"

---

Fungsi : Trim$ (or Trim)
Deskripsi : Menghilangkan spasi dalam string.
Syntax: Trim$(string)
Examples: 1. strTest = Trim$(" Visual Basic ") ' strTest = "Visual Basic"
2. ' Note: Trim$(x) accomplishes the same thing as LTrim$(RTrim$(x))

---

Fungsi : Asc
Deskripsi : Menghasilkan ascii dari karakter.
Syntax: Asc(string)
Examples: 1. intCode = Asc("*") ' intCode = 42
2. intCode = Asc("ABC") ' intCode = 65

---

Fungsi : Chr$ (or Chr)
Deskripsi : Menghasilkan karakter dari ascii.
Syntax: Chr$(charcode)
Where charcode is a number from 0 to 255 that identifies the character.
Examples: 1. strChar = Chr$(65) ' strChar = "A"