FUNGSI STRING VISUAL BASIC

Fungsi String merupakan salah satu fungsi – fungsi yang ada dalam Visual Basic. Fungsi string biasanya fungsi yang dipakai untuk mengolah data / nilai yang bertipe string. Fungsi string juga dapat digunakan untuk validasi suatu inputan yang berbentuk string. Berikut saya akan jabarkan tentang fungsi dan bentuk listing dari fungsi string.

Asc(String As String) As Integer
menghasilkan angka ASCII dari suatu karakter tunggal yang ditetapkan.
Contoh :karakter = Asc(“T”) ‘varian KARAKTER akan berisi 84

-----------------------------------------------------------------------------

Chr(CharCode As Long)
menghasilkan suatu karakter dari angka ASCII (CharCode As Long) tertentu. Dengan kata lain fungsi Chr merupakan kebalikan dari fungsi Asc.
Contoh :

kode = Chr(84) ‘varian kode akan berisi T
Msgbox “Coba fungsi Chr”+chr(13)+”Ini Fungsinya”
‘ Chr(13) merupakan kode Ascii dari karakter Enter . Sehingga menyebabkan adanya karakter Enter pada MsgBox .

-----------------------------------------------------------------------------

Format(Expression,[format],[FirstDayOfWeek=vbSunday],[FirstWeekOfYear As VbFirstWeekOfYear=vbFirstJan1])
Mengatur String sehingga terformat sesuai dengan yang ditentukan.
Expression : diisi string yang akan diformat.
Format : diisi format dari string yang diinginkan
Contoh :
Sekarang = Format(Now,”yyyy-mm-dd”)
‘maka varian SEKARANG akan berisi tanggal yang terformat YYYY-MM-DD (13-01-2010)

Uang=Format(“1000000”, "###,###,###")
‘maka varian UANG akan berisi 1.000.000

Kata = Format(“riqie”,”>”)
‘maka varian KATA akan berisi RIQIE

-----------------------------------------------------------------------------

FormatCurrency(Expression,[NumDigitAfterDecimal As Long=-1])
mengubah string menjadi format currency yang ditentukan.
Expression : diisi string yang akan diformat.
NumDigitAfterDecimal : diisi angka untuk menentukan banyaknya angka dibelakang koma
Contoh :
Uang = FormatCurrency(“100000”,1)
‘maka varian UANG akan berisi Rp. 100.000,0 (Output tampilan akan tergantung pada format region pada sistem komputer Anda)

Uang = FormatCurrency(“100000”,3)
‘maka varian UANG akan berisi Rp. 100.000,000

-----------------------------------------------------------------------------

FormatDateTime(Expression,[NameFormat As VbDateTimeFormat=vbGeneralDate]) As String
menghasilkan ekspresi tanggal( Date ) dan waktu(Time) sesuai dengan yang diingkan.
Expression : diisi string yang akan diformat.
NamedFormat :

Named Format	Output
vbGeneralDate	13/03/2010 16:30:08
vbLongDate	13 Maret 2010
vbLongTime	16:30:08
vbShortDate	13/03/2010
vbShortTime	16:30

‘output formatDateTime tergantung pada settingan regional (saya menggunakan regional Indonesia)
Contoh :
Waktu = FormatDateTime(Now,vbGeneralDate)
‘maka varian WAKTU akan terisi 13/03/2010 16:30:08

-----------------------------------------------------------------------------

FormatNumber(Expression,[NumDigitsAfterDecimal As Long=-1],[IncludeLeadingDigit As VbTriState],[UseParensForNegativeNumber As VbTriState=vbUseDefault],[GroupDigits As VbTriState=vbUseDefault]) As string
membuat format bilangan sesuai dengan option yang diberikan. Dan format bilangan itu bertipe String (FormatNumber(...) As String) .
Expression : diisi string bilangan yang akan diformat
NumDigitAfterDecimal : banyaknya angka setelah koma
UseParensForNegativeNumber : jika bernilai True(vbTrue) maka bilangan tidak akan bernilai negatif.
GroupDigit : pengelompokan angka berdasarkan ribuan. Jika bernilai True(vbTrue) atau Default(vbUseDefault) maka bilangan akan terformat ribuan(100.000).
Contoh :
Bilangan =FormatNumber(“100000”,2) ‘varian BILANGAN akan terisi 100.000,00
Bilangan =FormatNumber(“100000”) ‘varian BILANGAN akan terisi 100.000

-----------------------------------------------------------------------------

FormatPercent(Expression,[NumDigitsAfterDecimal As Long=-1],[IncludeLeadingDigit As VbTriState],[UsParensForNegativeNumber As VbTriState=vbUseDefault],[GroupDigits As VbTriState=vbUseDefault]) As string
membuat format bilangan menjadi percent (dikali 100%). Dan format bilangan itu bertipe String(FormatPercent(...) As String) .
Expression : diisi string bilangan yang akan diformat
NumDigitAfterDecimal : banyaknya angka setelah koma
UseParensForNegativeNumber : jika bernilai True(vbTrue) maka bilangan tidak akan bernilai negatif.
GroupDigit : pengelompokan angka berdasarkan ribuan. Jika bernilai True(vbTrue) atau Default(vbUseDefault) maka bilangan akan terformat ribuan(100.000).
Contoh :
Bilangan=FormatPercent(“1”,2) ‘varian bilangan akan berisi 100,00%

-----------------------------------------------------------------------------

InStr([Start],[String1],[String2],[Compare As VbCompareMethod = vbBinaryCompare])
mencari posisi karakter / string yang diminta dari string yang diinputkan. Pencarian dimulai dari posisi tertentu dalam suatu String yang dianalis.
Start : Posisi awal pencarian (mis : saya (posisi karakter “s” pada kata saya adalah 1))
String1 : Diisi String yang akan dianalis.
String2 : Diisi String yang dicari.
Compare :

VbCompareMethod	Kode	Penjelasan
vbBinaryCompare	0	Case Sensitif (membedakan besar kecilya suatu karakter
vbTextCompare	1	non Case Sensitif
vbDatabaseCompare	2	non Case Sensitif

Contoh :
Ketemu = InStr(1,”saya”,”S”,vbBinaryCompare)
‘varian ketemu akan berisi 0,karena karakter “S” (s besar) tidak ditemukan dalam kata “saya”


Ketemu = InStr(1,”saya”,”S”,1)

‘angka 1 merupakan kode dari vbTextCompare,dimana vbTextCompare tidak membedakan antara karakter besar dan kecil sehingga varian KETEMU akan berisi 1(karena posisi “S” berada pada awal kata )

Ketemu= InStr(1,”saya”,”a”)
‘apabila vbCompareMehtod tidak ditentukan maka secara default akan bernilai vbBinaryCompare(Compare As ..... = vbBinaryCompare) . Maka varian KETEMU akan berisi 2(karena karakter “a” pertama berada pada posisi 2)

-----------------------------------------------------------------------------

InStrRev(StringCheck As String, StringMatch As String,[Start As Long=-1],[Compare As VbCompareMethod=vbBinaryCompare]) As Long
fungsinya sama seperti fungsi InStr perbedaannya hanya pada start pencarian. InStrRev pencariannya dimulai dari posisi terbesar ke posisi terkecil/pencarian dimulai dari akhir. Hasil operasi InStrRev bertipe Long/Integer ( InStrRev(...) As Long )
StringCheck : Diisi String yang akan dianalis
StringMatch : Diisi Karakter yang akan dicari.
Contoh :
Ketemu = InStrRev(“saya”,”a”)
‘varian KETEMU akan terisi 4 karena posisi terakhir karakter “a” yang ditemukan adalah 4

Ketemu = InStrRev(“pppppP”,”p”,5,vbTextCompare)
‘pengecekan akan dimulai dari karakter ke-5,ke-4,ke-3 sampai karakter ke-1. Karena karakter ditemukan pada posisi ke-5 maka varian KETEMU akan berisi 5

-----------------------------------------------------------------------------

Lcase(String)
mengubah suatu string menjadi huruf kecil semua
Contoh :
Nama = Lcase(“IndaH”)
‘varian NAMA akan berisi indah

-----------------------------------------------------------------------------

Left
mengambil karakter dari sebelah kiri sepanjang yang telah ditentukan.
Contoh :
Karakter =Left(“1234567890”,3)
‘”1234567890” merupakan string yang akan diambil karakternya. Angka 3 merupakan panjang karakter yang diambil dari sebelah kiri. Sehingga isi dari varian KARAKTER adalah 123.

-----------------------------------------------------------------------------

Len(Expression)
menghitung jumlah karakter yang membentuk String.
Expression : diisi string yang akan dihitung panjang karakternya.
Contoh :
Panjang = Len(“ Nama Saya : “)
‘varian PANJANG akan berisi 13 (Spasi tetap dihitung)

-----------------------------------------------------------------------------

Ltrim(String)
menghilangkan spasi di awal kata/kalimat
Contoh :
Nama = Ltrim(“ Nama Saya :”)
‘varian nama akan berisi Nama Saya (spasi depan terhapus).

-----------------------------------------------------------------------------

Mid(String,Start As Long,[Length])
mengambil karakter dari suatu string dari posisi( start ) dan panjang(Length) karakter yang telah ditentukan.
String : diisi dengan String yang akan diambil karakternya.
Start : diisi dengan posisi awal pengambilan karakter
Length : diisi dengan panjang karakter yang akan diambil
Contoh :
Karakter = Mid(“1234567890”,3,4)
‘varian KARAKTER akan berisi 3456

-----------------------------------------------------------------------------

Replace(Expression As String,Find As String,Replace As String,[Start As Long=1],[Count As Long=-1],[Compare As vbCompareMethod = vbBinaryCompare])
mengganti suatu karakter/kata dari suatu string yang ditetapkan.
Expression : diisi dengan String yang akan dianalisis.
Find : diisi dengan string yang akan dicari dan diganti
Replace : diisi dengan string pengganti
Start : diisi dengan posisi awal pengecekan karakter string
Count : jika diisi -1 maka tidak ada pembatasan penggantian karakter.jika diisi lebih dari 1 maka ada pembatasan untuk penggantian sesuai dengan yang ditentukan.
Contoh :
Ganti = Replace(“aaaaa”,”a”,”b”,1,1)
‘maksud dari listing diatas adalah program akan mengganti karakter “a” dengan karakter “b” sebanyak 1karakter dan pencarian karakter dimulai dari awal. Sehinggal varian GANTI berisi baaaa

-----------------------------------------------------------------------------

Right(String,Length As Long)
mengambil sejumlah karakter dari suatu string
String : diisi dengan String yang akan dianalis
Length : diisi dengan panjang karakter yang akan diambil.
Contoh :
Karakter = Right (“1234567890”,3)
‘varian KARAKTER akan berisi 098

-----------------------------------------------------------------------------

Rtrim(String)
menghilangkan karakter spasi pada akhir string
Contoh :
Nama = Rtrim(“Kenalkan Saya “)
‘varian NAMA akan berisi Kenalkan Saya (tanpa spasi belakang)

-----------------------------------------------------------------------------

Space(Number As Long)
menghasilkan karakter spasi sebanyak n karakter
Number : banyaknya karakter spasi yang akan disisipkan.
Contoh :
Nama = “Arjuna”&Space(5)&”Saputra”
‘maksud dari listing diatas adalah diantara kata Arjuna dan Saputra akan disisipi SPASI sebanyak 5 karakter,sehingga varian NAMA akan berisi “Arjuna Saputra”

-----------------------------------------------------------------------------

String(Number As Long,Character)
membuat string yang berisi sejumlah karakter yang digandakan
Number : diisi banyaknya dengan angka banyaknya karakter ingin digandakan
Character : diisi dengan karakter yang ingin digandakan
Contoh
coba = String(3,”A”)
‘varian COBA akan berisi AAA

-----------------------------------------------------------------------------

StrConv(String, Conversion As VbStrConv)
mengubah suatu karakter manjadi karakter besar atau kecil.
String : diisi dengan string yang ingin diproses
Conversion :

VbStrConv	Kode	Penjelasan
vbLowerCase	1	Semua karakter menjadi kecil
vbUpperCase	2	Semua karakter menjadi besar
vbProperCase	3	Awal kata menjadi karakter besar

Contoh :
Nama = StrConv(“arjuna dwi mahardika”,3)
‘varian NAMA akan berisi Arjuna Dwi Mahardika”

Nama =StrConv(“Arjuna Dwi MAHArdika”,1)
‘varian NAMA akan berisi arjuna dwi mahardika

-----------------------------------------------------------------------------

StrComp(String1,String2,[Compare As VbCompareMethod = vbBinaryCompare])
membandingkan dua string

VbStrConv	Kode	Penjelasan
vbLowerCase	1	Semua karakter menjadi kecil
vbUpperCase	2	Semua karakter menjadi besar
vbProperCase	3	Awal kata menjadi karakter besar

Contoh :
A = StrComp(“ABCD”, “abcd”, 1)
‘varian A akan berisi 0

A = StrComp((“ABCD”, “abcd”, 0)
‘varian A akan berisi -1

A = StrComp((“ABCD”, “abcd”)
‘varian A akan berisi 1

-----------------------------------------------------------------------------

StrReverse(Expression As String) As String
membalik urutan karakter String
Expression : diisi dengan string yang akan diproses
Contoh :
Balik = StrReverse(“abc45678”)
‘varian BALIK akan berisi 87654cba

Balik = StrReverse(“Saya”)
‘varian BALIK akan berisi ayaS

-----------------------------------------------------------------------------

Trim(String)
menghilangkan karakter spasi di awal / di akhir kata atau kalimat.
Contoh :
Coba =Trim(“ Nama Saya itu ..... “)
‘varian COBA akan berisi Nama Saya itu .... (karakter spasi di depan “N” dan dibelakang “.” hilang)

-----------------------------------------------------------------------------

UCase(String)
mengubah suatu karakter string menjadi huruf besar semua.
Contoh :
Coba = Ucase(“ariF raHmaN HaKim”)
‘varian COBA akan berisi ARIF RAHMAN HAKIM

Untuk mendownload Tutorial ini silahkan klik disini