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

Comments

comments