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 (Text1 As String, Text2 As String [,Start As Long] [, Compare As Integer])

Nilai balikan:

Long

Parameter:

Ekspresi1, Ekspresi2: Ekspresi apa saja yang hendak dibandingkan.

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.

Untuk menghindari galat run-time, jangan atur parameter Pembanding jika parameter pengembalian pertama dihilangkan.

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) ' Returns 1, search is case-insensitive
 Print iPos 
 iPos = InStrRev(sInput,"the",10,0) ' Returns 0, search is case-sensitive
 Print iPos
End Sub

InStr