Mencari Posisi Sebuah Karakter/String Dengan VB

Untuk mengetahui posisi sebuah karakter pada sebuah string, menggunakan Visual Basic 6, kita dapat menggunakan syntax:
[sourcecode]
Public Shared Function InStr(_
ByVal String1 As String, _
ByVal String2 As String, _
Optional ByVal Compare As CompareMethod _
) As Integer
‘ -or-
Public Shared Function InStr(_
ByVal Start As Integer, _
ByVal String1 As String, _
ByVal String2 As String, _
Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod _
) As Integer
[/sourcecode]
Parameter:
– Start= nilai posisi awal pencarian, jika tidak diberikan maka akan dimulai dari awal string. optional
– String1= String dimana karakter yang akan dicari. harus ada.
– String2= String/karakter yang akan dicari. harus ada.
– Compare= metode yang digunakan. Binary atau Text.
Contoh:
[sourcecode]
‘String tujuan pencarian.
Dim SearchString As String = "XXpXXpXXPXXP"
‘karakter yang akan dicari "p".
Dim SearchChar As String = "P"
Dim TestPos As Integer
‘ Pencarian dengan metode Text, dimulai dari posisi 4. akan didapatkan 6
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)
‘ Pencarian dengan metode binary, dimulai dari posisi 1. didapatkan 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)
‘ Jika opsi pencarian tidak ditentukan, akan didapatkan 9.
‘ Jika metode pencarian ditentukan Text, akan didapatkan 3
TestPos = InStr(SearchString, SearchChar)’ Didapatkan 0
TestPos = InStr(1, SearchString, "W")
[/sourcecode]
Demikian, semoga bermanfaat.
Sumber: http://msdn.microsoft.com/en-us/library/8460tsh1%28v=vs.80%29.aspx

You may also like...

Leave a Reply

Your email address will not be published. Required fields are marked *