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 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 akanberisi 84
menghasilkan angka ASCII dari suatu karakter tunggal yang ditetapkan.
Contoh : karakter = Asc(“T”) ‘varian KARAKTER akanberisi 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 :
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.
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”)
‘makavarian SEKARANG akan berisi tanggal yang terformat YYYY-MM-DD (13-01-2010)
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”)
‘makavarian SEKARANG akan berisi tanggal yang terformat YYYY-MM-DD (13-01-2010)
Uang=Format(“1000000”, “###,###,###”)
‘makavarian UANG akanberisi 1.000.000
‘makavarian UANG akanberisi 1.000.000
Kata = Format(“riqie”,”>”)
‘maka varian KATA akan berisi 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 di belakang koma
Contoh :
Uang = Format Currency(“100000”,1)
‘maka varian UANG akan berisiRp. 100.000,0 (Output tampilan akan tergantung pada format region pada sistem komputer Anda)
mengubah string menjadi format currency yang ditentukan.
Expression :diisi string yang akan diformat.
NumDigitAfterDecimal : diisi angka untuk menentukan banyaknya angka di belakang koma
Contoh :
Uang = Format Currency(“100000”,1)
‘maka varian UANG akan berisiRp. 100.000,0 (Output tampilan akan tergantung pada format region pada sistem komputer Anda)
Uang = Format Currency(“100000”,3)
‘maka varian UANG akan berisi Rp. 100.000,000
‘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 :
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
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 bilangansesuaidengan option yang diberikan. Dan format bilanganitubertipeString (FormatNumber(…) As String) .
Expression :diisi string bilangan yang akandiformat
NumDigitAfterDecimal : banyaknyaangkasetelahkoma
UseParensForNegativeNumber : jikabernilai True(vbTrue) makabilangantidakakanbernilainegatif.
GroupDigit :pengelompokanangkaberdasarkanribuan. JikabernilaiTrue(vbTrue)atauDefault(vbUseDefault) makabilanganakanterformatribuan(100.000).
Contoh :
Bilangan =FormatNumber(“100000”,2) ‘varian BILANGAN akanterisi 100.000,00
Bilangan =FormatNumber(“100000”) ‘varian BILANGAN akanterisi 100.000
membuat format bilangansesuaidengan option yang diberikan. Dan format bilanganitubertipeString (FormatNumber(…) As String) .
Expression :diisi string bilangan yang akandiformat
NumDigitAfterDecimal : banyaknyaangkasetelahkoma
UseParensForNegativeNumber : jikabernilai True(vbTrue) makabilangantidakakanbernilainegatif.
GroupDigit :pengelompokanangkaberdasarkanribuan. JikabernilaiTrue(vbTrue)atauDefault(vbUseDefault) makabilanganakanterformatribuan(100.000).
Contoh :
Bilangan =FormatNumber(“100000”,2) ‘varian BILANGAN akanterisi 100.000,00
Bilangan =FormatNumber(“100000”) ‘varian BILANGAN akanterisi 100.000
—————————————————————————–
FormatPercent(Expression,[NumDigitsAfterDecimal As Long=-1],[IncludeLeadingDigit As VbTriState],[UsParensForNegativeNumber As VbTriState=vbUseDefault],[GroupDigits As VbTriState=vbUseDefault]) As string
membuat format bilanganmenjadipercent (dikali 100%). Dan format bilanganitubertipeString(FormatPercent(…) As String) .
Expression :diisi string bilangan yang akandiformat
NumDigitAfterDecimal : banyaknyaangkasetelahkoma
UseParensForNegativeNumber : jikabernilai True(vbTrue) makabilangantidakakanbernilainegatif.
GroupDigit :pengelompokanangkaberdasarkanribuan. JikabernilaiTrue(vbTrue)atauDefault(vbUseDefault) makabilanganakanterformatribuan(100.000).
Contoh :
Bilangan=FormatPercent(“1”,2) ‘varianbilanganakanberisi 100,00%
membuat format bilanganmenjadipercent (dikali 100%). Dan format bilanganitubertipeString(FormatPercent(…) As String) .
Expression :diisi string bilangan yang akandiformat
NumDigitAfterDecimal : banyaknyaangkasetelahkoma
UseParensForNegativeNumber : jikabernilai True(vbTrue) makabilangantidakakanbernilainegatif.
GroupDigit :pengelompokanangkaberdasarkanribuan. JikabernilaiTrue(vbTrue)atauDefault(vbUseDefault) makabilanganakanterformatribuan(100.000).
Contoh :
Bilangan=FormatPercent(“1”,2) ‘varianbilanganakanberisi 100,00%
—————————————————————————–
InStr([Start],[String1],[String2],[Compare As VbCompareMethod = vbBinaryCompare])
mencariposisikarakter / string yang dimintadari string yang diinputkan. PencariandimulaidariposisitertentudalamsuatuString yang dianalis.
Start :Posisiawalpencarian (mis : saya (posisikarakter “s” pada kata sayaadalah 1))
String1 : DiisiString yang akandianalis.
String2 :DiisiString yang dicari.
Compare :
mencariposisikarakter / string yang dimintadari string yang diinputkan. PencariandimulaidariposisitertentudalamsuatuString yang dianalis.
Start :Posisiawalpencarian (mis : saya (posisikarakter “s” pada kata sayaadalah 1))
String1 : DiisiString yang akandianalis.
String2 :DiisiString yang dicari.
Compare :
VbCompareMethod
|
Kode
|
Penjelasan
|
| vbBinaryCompare |
0
| Case Sensitif (membedakanbesarkecilyasuatukarakter |
| vbTextCompare |
1
| non Case Sensitif |
| vbDatabaseCompare |
2
| non Case Sensitif |
Contoh :
Ketemu = InStr(1,”saya”,”S”,vbBinaryCompare)
‘varianketemuakanberisi 0,karena karakter “S” (s besar) tidakditemukandalam kata “saya”
Ketemu = InStr(1,”saya”,”S”,vbBinaryCompare)
‘varianketemuakanberisi 0,karena karakter “S” (s besar) tidakditemukandalam kata “saya”
Ketemu = InStr(1,”saya”,”S”,1)
‘angka 1 merupakankodedarivbTextCompare,dimanavbTextComparetidakmembedakanantarakarakterbesardankecilsehinggavarian KETEMU akanberisi 1(karenaposisi “S” beradapadaawal kata )
Ketemu= InStr(1,”saya”,”a”)
‘apabilavbCompareMehtodtidakditentukanmakasecara default akanbernilaivbBinaryCompare(Compare As ….. = vbBinaryCompare) .Makavarian KETEMU akanberisi 2(karenakarakter “a” pertamaberadapadaposisi 2)
‘apabilavbCompareMehtodtidakditentukanmakasecara default akanbernilaivbBinaryCompare(Compare As ….. = vbBinaryCompare) .Makavarian KETEMU akanberisi 2(karenakarakter “a” pertamaberadapadaposisi 2)
—————————————————————————–
InStrRev(StringCheck As String, StringMatch As String,[Start As Long=-1],[Compare As VbCompareMethod=vbBinaryCompare]) As Long
fungsinyasamasepertifungsiInStrperbedaannyahanyapada start pencarian.InStrRevpencariannyadimulaidariposisiterbesarkeposisiterkecil/pencariandimulaidariakhir.HasiloperasiInStrRevbertipe Long/Integer ( InStrRev(…) As Long )
StringCheck: DiisiString yang akandianalis
StringMatch : DiisiKarakter yang akandicari.
Contoh :
Ketemu = InStrRev(“saya”,”a”)
‘varian KETEMU akanterisi 4 karenaposisiterakhirkarakter “a” yang ditemukanadalah 4
fungsinyasamasepertifungsiInStrperbedaannyahanyapada start pencarian.InStrRevpencariannyadimulaidariposisiterbesarkeposisiterkecil/pencariandimulaidariakhir.HasiloperasiInStrRevbertipe Long/Integer ( InStrRev(…) As Long )
StringCheck: DiisiString yang akandianalis
StringMatch : DiisiKarakter yang akandicari.
Contoh :
Ketemu = InStrRev(“saya”,”a”)
‘varian KETEMU akanterisi 4 karenaposisiterakhirkarakter “a” yang ditemukanadalah 4
Ketemu = InStrRev(“pppppP”,”p”,5,vbTextCompare)
‘pengecekanakandimulaidarikarakter ke-5,ke-4,ke-3 sampaikarakter ke-1. Karenakarakterditemukanpadaposisi ke-5 makavarian KETEMU akanberisi 5
‘pengecekanakandimulaidarikarakter ke-5,ke-4,ke-3 sampaikarakter ke-1. Karenakarakterditemukanpadaposisi ke-5 makavarian KETEMU akanberisi 5
—————————————————————————–
Lcase(String)
mengubahsuatu string menjadihurufkecilsemua
Contoh :
Nama = Lcase(“IndaH”)
‘varian NAMA akanberisiindah
mengubahsuatu string menjadihurufkecilsemua
Contoh :
Nama = Lcase(“IndaH”)
‘varian NAMA akanberisiindah
—————————————————————————–
Left
mengambilkarakterdarisebelahkirisepanjang yang telahditentukan.
Contoh :
Karakter =Left(“1234567890”,3)
‘”1234567890” merupakanstring yang akandiambilkarakternya. Angka 3 merupakanpanjangkarakter yang diambildarisebelahkiri.Sehinggaisidarivarian KARAKTER adalah 123.
mengambilkarakterdarisebelahkirisepanjang yang telahditentukan.
Contoh :
Karakter =Left(“1234567890”,3)
‘”1234567890” merupakanstring yang akandiambilkarakternya. Angka 3 merupakanpanjangkarakter yang diambildarisebelahkiri.Sehinggaisidarivarian KARAKTER adalah 123.
—————————————————————————–
Len(Expression)
menghitungjumlahkarakter yang membentukString.
Expression :diisi string yang akandihitungpanjangkarakternya.
Contoh :
Panjang = Len(“ NamaSaya : “)
‘varian PANJANG akanberisi 13 (Spasitetapdihitung)
menghitungjumlahkarakter yang membentukString.
Expression :diisi string yang akandihitungpanjangkarakternya.
Contoh :
Panjang = Len(“ NamaSaya : “)
‘varian PANJANG akanberisi 13 (Spasitetapdihitung)
—————————————————————————–
Ltrim(String)
menghilangkanspasi di awal kata/kalimat
Contoh :
Nama = Ltrim(“ NamaSaya :”)
‘variannamaakanberisiNamaSaya (spasidepanterhapus).
menghilangkanspasi di awal kata/kalimat
Contoh :
Nama = Ltrim(“ NamaSaya :”)
‘variannamaakanberisiNamaSaya (spasidepanterhapus).
—————————————————————————–
Mid(String,Start As Long,[Length])
mengambilkarakterdarisuatustring dariposisi( start ) danpanjang(Length) karakter yang telahditentukan.
String :diisidenganString yang akandiambilkarakternya.
Start :diisidenganposisiawalpengambilankarakter
Length : diisidenganpanjangkarakter yang akandiambil
Contoh :
Karakter = Mid(“1234567890”,3,4)
‘varian KARAKTER akanberisi 3456
mengambilkarakterdarisuatustring dariposisi( start ) danpanjang(Length) karakter yang telahditentukan.
String :diisidenganString yang akandiambilkarakternya.
Start :diisidenganposisiawalpengambilankarakter
Length : diisidenganpanjangkarakter yang akandiambil
Contoh :
Karakter = Mid(“1234567890”,3,4)
‘varian KARAKTER akanberisi 3456
—————————————————————————–
Replace(Expression As String,Find As String,Replace As String,[Start As Long=1],[Count As Long=-1],[Compare As vbCompareMethod = vbBinaryCompare])
menggantisuatukarakter/kata darisuatu string yang ditetapkan.
Expression :diisidenganString yang akandianalisis.
Find :diisidengan string yang akandicaridandiganti
Replace : diisidenganstring pengganti
Start : diisidenganposisiawalpengecekankarakterstring
Count : jikadiisi -1 makatidakadapembatasanpenggantiankarakter.jikadiisilebihdari 1 makaadapembatasanuntukpenggantiansesuaidengan yang ditentukan.
Contoh :
Ganti = Replace(“aaaaa”,”a”,”b”,1,1)
‘maksuddari listing diatasadalah program akanmenggantikarakter “a” dengankarakter “b” sebanyak 1karakter danpencariankarakterdimulaidariawal. Sehinggalvarian GANTI berisibaaaa
menggantisuatukarakter/kata darisuatu string yang ditetapkan.
Expression :diisidenganString yang akandianalisis.
Find :diisidengan string yang akandicaridandiganti
Replace : diisidenganstring pengganti
Start : diisidenganposisiawalpengecekankarakterstring
Count : jikadiisi -1 makatidakadapembatasanpenggantiankarakter.jikadiisilebihdari 1 makaadapembatasanuntukpenggantiansesuaidengan yang ditentukan.
Contoh :
Ganti = Replace(“aaaaa”,”a”,”b”,1,1)
‘maksuddari listing diatasadalah program akanmenggantikarakter “a” dengankarakter “b” sebanyak 1karakter danpencariankarakterdimulaidariawal. Sehinggalvarian GANTI berisibaaaa
—————————————————————————–
Right(String,Length As Long)
mengambilsejumlahkarakterdarisuatustring
String : diisidenganString yang akandianalis
Length : diisidenganpanjangkarakter yang akandiambil.
Contoh :
Karakter = Right (“1234567890”,3)
‘varian KARAKTER akanberisi 098
mengambilsejumlahkarakterdarisuatustring
String : diisidenganString yang akandianalis
Length : diisidenganpanjangkarakter yang akandiambil.
Contoh :
Karakter = Right (“1234567890”,3)
‘varian KARAKTER akanberisi 098
—————————————————————————–
Rtrim(String)
menghilangkankarakterspasipadaakhir string
Contoh :
Nama = Rtrim(“KenalkanSaya “)
‘varian NAMA akanberisiKenalkanSaya (tanpaspasibelakang)
menghilangkankarakterspasipadaakhir string
Contoh :
Nama = Rtrim(“KenalkanSaya “)
‘varian NAMA akanberisiKenalkanSaya (tanpaspasibelakang)
—————————————————————————–
Space(Number As Long)
menghasilkankarakterspasisebanyak n karakter
Number : banyaknyakarakterspasi yang akandisisipkan.
Contoh :
Nama = “Arjuna”&Space(5)&”Saputra”
‘maksuddari listing diatasadalahdiantara kata ArjunadanSaputraakandisisipi SPASI sebanyak 5 karakter,sehinggavarian NAMA akanberisi “ArjunaSaputra”
menghasilkankarakterspasisebanyak n karakter
Number : banyaknyakarakterspasi yang akandisisipkan.
Contoh :
Nama = “Arjuna”&Space(5)&”Saputra”
‘maksuddari listing diatasadalahdiantara kata ArjunadanSaputraakandisisipi SPASI sebanyak 5 karakter,sehinggavarian NAMA akanberisi “ArjunaSaputra”
—————————————————————————–
String(Number As Long,Character)
membuat string yang berisisejumlahkarakter yang digandakan
Number : diisibanyaknyadenganangkabanyaknyakarakteringindigandakan
Character : diisidengankarakter yang ingindigandakan
Contoh
coba = String(3,”A”)
‘varian COBA akanberisi AAA
membuat string yang berisisejumlahkarakter yang digandakan
Number : diisibanyaknyadenganangkabanyaknyakarakteringindigandakan
Character : diisidengankarakter yang ingindigandakan
Contoh
coba = String(3,”A”)
‘varian COBA akanberisi AAA
—————————————————————————–
StrConv(String, Conversion As VbStrConv)
mengubahsuatukaraktermanjadikarakterbesarataukecil.
String :diisidenganstring yang ingindiproses
Conversion :
mengubahsuatukaraktermanjadikarakterbesarataukecil.
String :diisidenganstring yang ingindiproses
Conversion :
VbStrConv
|
Kode
|
Penjelasan
|
| vbLowerCase |
1
| Semuakaraktermenjadikecil |
| vbUpperCase |
2
| Semuakaraktermenjadibesar |
| vbProperCase |
3
| Awal kata menjadikarakterbesar |
Contoh :
Nama = StrConv(“arjunadwi mahardika”,3)
‘varian NAMA akanberisiArjunaDwiMahardika”
Nama = StrConv(“arjunadwi mahardika”,3)
‘varian NAMA akanberisiArjunaDwiMahardika”
Nama =StrConv(“ArjunaDwi MAHArdika”,1)
‘varian NAMA akanberisiarjunadwimahardika
‘varian NAMA akanberisiarjunadwimahardika
—————————————————————————–
StrComp(String1,String2,[Compare As VbCompareMethod = vbBinaryCompare])
membandingkandua string
membandingkandua string
VbStrConv
|
Kode
|
Penjelasan
|
| vbLowerCase |
1
| Semuakaraktermenjadikecil |
| vbUpperCase |
2
| Semuakaraktermenjadibesar |
| vbProperCase |
3
| Awal kata menjadikarakterbesar |
Contoh :
A = StrComp(“ABCD”, “abcd”, 1)
‘varian A akanberisi 0
A = StrComp(“ABCD”, “abcd”, 1)
‘varian A akanberisi 0
A = StrComp((“ABCD”, “abcd”, 0)
‘varian A akanberisi -1
‘varian A akanberisi -1
A = StrComp((“ABCD”, “abcd”)
‘varian A akanberisi 1
‘varian A akanberisi 1
—————————————————————————–
StrReverse(Expression As String) As String
membalikurutankarakterString
Expression : diisidenganstring yang akandiproses
Contoh :
Balik = StrReverse(“abc45678”)
‘varian BALIK akanberisi 87654cba
membalikurutankarakterString
Expression : diisidenganstring yang akandiproses
Contoh :
Balik = StrReverse(“abc45678”)
‘varian BALIK akanberisi 87654cba
Balik = StrReverse(“Saya”)
‘varian BALIK akanberisiayaS
‘varian BALIK akanberisiayaS
—————————————————————————–
Trim(String)
menghilangkankarakterspasi di awal / di akhir kata ataukalimat.
Contoh :
Coba =Trim(“ NamaSayaitu ….. “)
‘varian COBA akanberisiNamaSayaitu …. (karakterspasi di depan “N” dandibelakang “.” hilang)
menghilangkankarakterspasi di awal / di akhir kata ataukalimat.
Contoh :
Coba =Trim(“ NamaSayaitu ….. “)
‘varian COBA akanberisiNamaSayaitu …. (karakterspasi di depan “N” dandibelakang “.” hilang)
—————————————————————————–
UCase(String)
mengubahsuatukarakterstring menjadihurufbesarsemua.
Contoh :
Coba = Ucase(“ariFraHmaNHaKim”)
‘varian COBA akanberisi ARIF RAHMAN HAKIM
mengubahsuatukarakterstring menjadihurufbesarsemua.
Contoh :
Coba = Ucase(“ariFraHmaNHaKim”)
‘varian COBA akanberisi ARIF RAHMAN HAKIM
Tidak ada komentar:
Posting Komentar