反向查找字符串位置的方法

反向查找字符串位置的方法（VBA法）

字符串的反向查找函数有么?

"dSdSd",反向查找第一个S,返回:4.

回复：

Sub TTT()

Dim T$, I%, J%, K%

T = "dSdSd"

I = Len(T)

For J = 1 To I

If Right(T, 1) = "S" Then

K = I - J + 1

Exit For

Else

T = Left(T, I- J)

End If

Next

MsgBox K

End Sub

*************************补充一下*************************************************************** 在VBA中InStrRev是执行反向查找的函数.

用法为:InStrRev(搜索的字符串, 查找的字符或字符串,开始查找的位置(倒数的位置))

本例可简化为:

InStrRev("dSdSd", "S")