怎樣計算出在字符串中有多個豆號中的最后一個豆號在字符串中的位置???急﹗在線等 ....

[chmz]

現小弟有一個問題﹕怎樣計算出在字符串中有多個豆號中的最后一個豆號在字符串中的位置?小弟雖然知道用InStrRev這個函數但不知該怎樣計算出最后一個豆號的位置﹐請各位大大幫忙﹗

[rainstormmaster]

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)

End Sub

[rainstormmaster]

或者：
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 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

[踏平扶桑]

不好意思，我把逗号看成句号了：）

[zmcpu]

Dim str As String
Dim IntLen As Integer
IntLen = 1
Do Until InStr(1, str, ",", vbTextCompare) = 0
IntLen = IntLen + 1
str = Mid(str, 2)
Loop
MsgBox "最后一個豆號的位置:" & IntLen - 1

[zmcpu]

End Sub

[yoki]

eg:
debug.print InStrRev("abc,de,f,g,h,j", ",")





InStrRev函数


描述

返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。

语法

InstrRev(string1, string2[, start[, compare]])

[chmz]

謝謝各位大大的幫忙﹗現小弟已解決了這個問題﹗thank you!