请问如何检测VB的text控件中某词汇的出现次数？（词汇为汉词）

11 |

运用Split()函数和数组也可以实现。dim A()A=split(text1.text,"大家")msgbox unbound(A)

千问 | 2009-9-15 10:58:08 | 显示全部楼层

一楼的代码改成这样就OK了。相对于后两种，这是最基本的方法。不要否定任何实现的可能性。Dim A As Integer, B As IntegerB = -1A = 0DoB = B + 1A = Instr(A+1, Text1.Text, "大家")Loop While A0MsgBox B

千问 | 2009-9-15 10:58:08 | 显示全部楼层

Dim A As Integer, B As IntegerB = -1A = 0DoB = B + 1A = Instr(A+1, Text1.Text, "大家")Loop While A0MsgBox B

千问 | 2009-9-15 10:58:08 | 显示全部楼层

不需要循环的啊！一句话就出来了！n=(len(text1.text)-len(replace(text1.text,"人家","")))/len("人家")

主题	0 回帖	4882万积分

Rank: 8 Rank: 8

热门排行