7,763
社区成员
发帖
与我相关
我的任务
分享请问如何获得某个字符在一个字符串中出现的次数。
一个字符串"dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"
请问怎样得到其中有多少个";"。
请问怎样得到其中有多少个";"。
...全文
请发表友善的回复…
发表回复
JeanLaw 2003-09-29
- 打赏
- 举报
终于知道怎么给分啦！
imur 2003-09-26
- 打赏
- 举报
haoo
maskzha 2003-09-25
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
Dim ss As String
Dim i As Integer
Dim i_Count As Integer
ss = "dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"
i = 1
i_Count = 0
While i <> 0
i = InStr(i + 1, ss, ";")
i_Count = i_Count + 1
Wend
MsgBox i_Count - 1
End Sub
Private Sub Command1_Click()
Dim ss As String
Dim i As Integer
Dim i_Count As Integer
ss = "dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"
i = 1
i_Count = 0
While i <> 0
i = InStr(i + 1, ss, ";")
i_Count = i_Count + 1
Wend
MsgBox i_Count - 1
End Sub
Fengq 2003-09-25
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox GetCnt("dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds", ";")
End Sub
Function GetCnt(str1 As String, str2 As String)
Dim pos1
pos1 = InStr(str1, str2)
Do While pos1 <> 0
GetCnt = GetCnt + 1
pos1 = InStr(pos1 + 1, str1, str2)
Loop
End Function
MsgBox GetCnt("dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds", ";")
End Sub
Function GetCnt(str1 As String, str2 As String)
Dim pos1
pos1 = InStr(str1, str2)
Do While pos1 <> 0
GetCnt = GetCnt + 1
pos1 = InStr(pos1 + 1, str1, str2)
Loop
End Function
射天狼 2003-09-25
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
Dim strTmp As String, strArray() As String
strTmp = "dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"
strArray = Split(strTmp, ";")
MsgBox UBound(strArray)
Erase strArray
End Sub
Private Sub Command1_Click()
Dim strTmp As String, strArray() As String
strTmp = "dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"
strArray = Split(strTmp, ";")
MsgBox UBound(strArray)
Erase strArray
End Sub
MSSQL 2003-09-25
- 打赏
- 举报
UBound(Split("dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds", ";"))
兄弟好方法。
兄弟好方法。
liyd1978 2003-09-25
- 打赏
- 举报
天狼，有思想。
佩服...
佩服...
northwolves 2003-09-25
- 打赏
- 举报
UBound(Split("dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds", ";"))
