7,762
社区成员
发帖
与我相关
我的任务
分享★有个函数我忘了？就是可以得到某个字符串中某个字符的个数？？？
如:abacdefafefsdfwa
然后可以得到上边字符串的a为4个
那个函数是什么？？？
然后可以得到上边字符串的a为4个
那个函数是什么？？？
...全文
请发表友善的回复…
发表回复
lihonggen0 2004-08-15
- 打赏
- 举报
早就有人问过:
建议提问前先搜索
http://community.csdn.net/Expert/topic/3083/3083428.xml?temp=.4085199
建议提问前先搜索
http://community.csdn.net/Expert/topic/3083/3083428.xml?temp=.4085199
Andy__Huang 2004-08-15
- 打赏
- 举报
這個很好理解
dim aa as string
dim x as integer
aa = "abacdefafefsdfwa"
x = Len(a) - Len(Replace(a, "a", ""))
x為所要找的字符串的個數
dim aa as string
dim x as integer
aa = "abacdefafefsdfwa"
x = Len(a) - Len(Replace(a, "a", ""))
x為所要找的字符串的個數
northwolves 2004-08-15
- 打赏
- 举报
ljc_zy(彷徨)结果有误，改为：
Private Sub Command1_Click()
Const x = "abacdefafefsdfwa"
MsgBox UBound(Split(x, "a"))
End Sub
Private Sub Command1_Click()
Const x = "abacdefafefsdfwa"
MsgBox UBound(Split(x, "a"))
End Sub
xao7n 2004-08-15
- 打赏
- 举报
'在字符串str1中查找字符串str2的出现个数
Public Function str_count(ByVal str1 As String, ByVal str2 As String) As Integer
Dim count As Integer
Dim start As Integer
Dim len_str2 As Integer
count = -1
start = 1
len_str2 = Len(str2)
Do
count = count + 1
start = InStr(start, str1, str2) + len_str2
Loop Until start = len_str2
str_count = count
End Function
Public Function str_count(ByVal str1 As String, ByVal str2 As String) As Integer
Dim count As Integer
Dim start As Integer
Dim len_str2 As Integer
count = -1
start = 1
len_str2 = Len(str2)
Do
count = count + 1
start = InStr(start, str1, str2) + len_str2
Loop Until start = len_str2
str_count = count
End Function
xao7n 2004-08-15
- 打赏
- 举报
//有个函数我忘了？
搞笑！好像真有这么一个函数似的
搞笑！好像真有这么一个函数似的
落伍者 2004-08-15
- 打赏
- 举报
应该是
debug.print ubound(x)-1
debug.print ubound(x)-1
落伍者 2004-08-15
- 打赏
- 举报
确实高呀！
dim x
x=split(a,"a")
debug.print ubound(x)+1 '
dim x
x=split(a,"a")
debug.print ubound(x)+1 '
lqtflwg718 2004-08-15
- 打赏
- 举报
len
cdbqss1 2004-08-15
- 打赏
- 举报
高！
hhjjhjhj 2004-08-15
- 打赏
- 举报
a = "abacdefafefsdfwa"
b = Len(a) - Len(Replace(a, "a", ""))
MsgBox b
b = Len(a) - Len(Replace(a, "a", ""))
MsgBox b
