查找重复文字

显示全部楼层 · 2009-6-29 20:23:22

如何查找一个文本里面的重复文字？
只要是重复的文字或数字都列出来
我想要把重复的东西都挑出来，你们说的ctrl+F只能自己输关键字查找
你们别弄这么专业，为了这么点东西我还要弄个C++ ?
OK我找到解决办法了，谁想要分随便送了算了。

千问 · 2009-6-29 20:23:22

窗体放一个textbox,一个按钮,不要做任何改动,复制代码,运行一下看看效果Private Sub Command1_Click()If Len(Text1.Text)0 Then
Dim i, j, k, t, s, p, m
p = "-": m = 0
For i = 1 To Len(Text1.Text)
For j = 1 To Len(Text1.Text) - i + 1
t = Mid$(Text1.Text, i, j)
If InStr(p, "-" & t) = 0 Then
...

千问 · 2009-6-29 20:23:22

什么叫重复?一个字,两个字,三个字?还是有很多字?如果文章很长,呢? 比如有文件:爱睡饭店格斗房间格斗房交付给格重复,斗重复,房重复格斗重复格斗房重复...

千问 · 2009-6-29 20:23:22

大魔法师，这样查找会把电脑搞死的，文本短还好，文本长的话。。。提供一个文本文件的重复内容搜索和查询，回车和全空格忽略不计Private Sub Command1_Click()Dim s As Stringfname1 = "f:\data.txt" '源文本文件fname2 = "f:\result.txt" '查询结果储存的...

查找 重复 文字

查找重复文字