Private Sub Form_Load()
Dim str As String
Dim i, i1 As Integer
str = "sdf....sdafasf..sfd..dsf.sdf..f"
i = 1
Do While (i)
i1 = i
i = InStr(i + 1, str, ".", vbTextCompare)
Loop
MsgBox i1'i1 就是最后一个.的位置了
End Sub
或者:
Private Sub Command2_Click()
Dim s As String
s = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o"
Dim s1 As String
s1 = ","
Dim i As Long
i = Len(s)
Dim arr As Variant
arr = Split(s, s1)
Dim j As Long
j = Len(arr(UBound(arr)))
Debug.Print "最后一个,的位置为" + CStr(i - j)
End Sub
Private Sub Command1_Click()
Dim s As String
s = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o"
Dim s1 As String
s1 = ","
Dim i As Long
i = InStrRev(s, s1)
Debug.Print "最后一个,的位置为" + CStr(i)