Question

VB6.0 如何统计字符串中某一单词出现次数

我是VB菜鸟，请给出详细注释

Answer 1

s="字符串"
f="查找字"
n=(len(s)-len(replace(s,f,"")))/len(f)
'n就是出现的次数,原理就是利用replace函数,将原字符串中的查找字都替换为空,然后计算替换前和替换后字符串长度的差值,再除以查找字的长度,就能得到准确的次数了.

Answer 2

这段程序在歌词中找“you”，运行结果是2

A = "爱你就说I love you，想你就上ICQ(I seek you)..."
B = "you"
C = 1
D = 0
'AB不解释了，C是查找的起点，D是统计出现次数
Do
C = InStr(C, A, B) '第1次从1开始找，找到you位置在12，结果C=12(第2次就从15开始找)
If C > 0 Then D = D + 1: C = C + Len(B) '如果找到了，加1次：下次向后跳3格找(因为you是3个字母)
Loop Until C = 0 '如果找不到，循环结束
MsgBox D

Answer 3

一个文本框text1,一个命令按钮command1
绝对好

Private Sub command1_Click()
Dim search2 As String, start&, Num&, a#, Zifushu1%, Zifushu2#, searchInwhere$
search2 = InputBox(Chr(10) & Chr(10) & Chr(10) & Chr(10) & " 统计内容")
start = 1: Num = 0: Zifushu1 = Len(search2): searchInwhere = Text1.Text: Zifushu2 = Len(searchInwhere)
If search2 <> "" Then
Do While start <= Zifushu2
If search2 = Mid$(searchInwhere, start, Zifushu1) Then Num = Num + 1
start = start + 1
Loop
MsgBox "共找到" & Num & "个" & "'" & search2 & "'", vbOKOnly + vbInformation
End If
End Sub

Answer 4

Function strCount(strA As String, strB As String) As Long
Dim lngA As Long
Dim lngB As Long
Dim lngC As Long
lngA = Len(strA)
lngB = Len(strB)
lngC = Len(Replace(strA, strB, ""))
strCount = (lngA - lngC) / lngB
MsgBox strCount
End Function