InStrRev 函数:返回某一字符串从另一字符串的右侧开始算起第一次出现的位置。
格式:
Public Function InStrRevStringCheck
(
ByVal StringCheck As String,
ByVal StringMatch As String,
Optional ByVal Start As Integer = -1,
Optional ByVal Compare As CompareMethod = CompareMethod.Binary
)
As Integer
例子:
Dim mystring as string="the quick brown fox jumps over the lazy dog"
Dim mynumber as interger
mynumber=instrrev(mystring,"the") '返回32
mynumber=instrrev(mystring,"the",16) '返回1