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

chmz 2003-12-27 02:11:27
現小弟有一個問題﹕怎樣計算出在字符串中有多個豆號中的最后一個豆號在字符串中的位置?小弟雖然知道用InStrRev這個函數但不知該怎樣計算出最后一個豆號的位置﹐請各位大大幫忙﹗
...全文
43 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
chmz 2003-12-27
  • 打赏
  • 举报
回复
謝謝各位大大的幫忙﹗現小弟已解決了這個問題﹗thank you!
yoki 2003-12-27
  • 打赏
  • 举报
回复
eg:
debug.print InStrRev("abc,de,f,g,h,j", ",")





InStrRev函数


描述

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

语法

InstrRev(string1, string2[, start[, compare]])
zmcpu 2003-12-27
  • 打赏
  • 举报
回复
End Sub
zmcpu 2003-12-27
  • 打赏
  • 举报
回复
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
踏平扶桑 2003-12-27
  • 打赏
  • 举报
回复
不好意思,我把逗号看成句号了:)
踏平扶桑 2003-12-27
  • 打赏
  • 举报
回复
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
rainstormmaster 2003-12-27
  • 打赏
  • 举报
回复
或者:
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
rainstormmaster 2003-12-27
  • 打赏
  • 举报
回复
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧