Fungsi InStrRev [VBA]

Mengembalikan posisi string dalam string lain, dimulai dari sisi kanan string.

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

Fungsi InStrRev mengembalikan posisi saat kecocokan ditemukan, dari kanan. Jika string tidak ditemukan, fungsi mengembalikan 0.

Sintaksis:


InStrRev (StringCheck As String, StringMatch As String [,Start As Long] [, Compare As Integer])

Nilai balikan:

Long

Parameter:

StringCheck: The string expression that you want to search.

StringMatch: The string expression that you want to search for.

Mulai: Ekspresi numerik opsional yang menandai posisi dari kiri dalam string tempat pencarian substring yang ditentukan dimulai. Jika Anda menghilangkan parameter ini, pencarian dimulai pada karakter terakhir dari string. Nilai maksimum yang dibolehkan adalah 65535.

Membandingkan:Ekspresi numerik opsional yang menentukan jenis perbandingan. Nilai parameter ini dapat berupa

1: Nilai baku 1 menentukan perbandingan teks yang tidak peka huruf besar-kecil.

0: Nilai 0 menentukan perbandingan biner yang peka terhadap huruf besar-kecil.

To avoid a run-time error, do not set the Compare parameter if the first return parameter is omitted.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
 sInput = "The book is on the table"
 iPos = InStrRev(sInput,"the",10,1) ' Mengembalikan 1, pencarian tidak peka huruf besar-kecil
 Print iPos 
 iPos = InStrRev(sInput,"the",10,0) ' Mengembalikan 0, pencarian peka huruf besar-kecil
 Print iPos
End Sub

InStr