Sub str_test()
Dim str As String, str1 As String
str = "sd\sdsds\"
str1 = InStrRev(str, "\")
MsgBox (str1) '从右向左查找,返回值是9,核实位置确实在第九位
str1 = InStr(str, "\")
MsgBox (str1) '从左向右查找,返回值是3,核实位置确实在第三位
End Sub
Sub str_test()
Dim str As String, str1 As String
str = "sd\sdsds\"
str1 = InStrRev(str, "\")
MsgBox (str1) '从右向左查找,返回值是9,核实位置确实在第九位
str1 = InStr(str, "\")
MsgBox (str1) '从左向右查找,返回值是3,核实位置确实在第三位
End Sub