VB的问题，检查重复的数据

来源：百度知道 编辑：UC知道 时间：2024/06/09 10:54:20
现有一个txt文件，10000行，每行都有8位的数据，如下
96780457
01687792
。
。
06546466
现求一VB程序，可以检查出这一文件中是否有重复的数据。
就是检查是否有两行都是相同的数字。
会飞的青蛙说的这种方法我懂，就是因为运行速度太慢了。所以才想找一个更好的方法，
比如在WORD里的查找功能，速度相当快的。

zhangyuhangk 能说的详细一点吗？

用richtextbox的find
'添加richtextbox1读取文件
'***********云是风的梦**********
'***********2009-1-4 14:59:22**********
'***********云是风的梦**********
'***********2009-1-4 14:59:22**********
Private Sub Command1_Click()
Dim a() As String

a() = Split(RichTextBox1.Text, vbNewLine)
For i = 0 To UBound(a)
'a(i)就是你要的每一行内容
FormatCode (a(i))

Next i
End Sub
Private Sub FormatCode(ByVal vstrKey As String) '这是一个搜索的子过程
Static t As Integer
Dim lngCodeLen As Long
Dim lngPlace As Long, lngVbcrlf As Long
Dim lngKeyCount As Long

lngKeyCount = Len(vstrKey)
lngCodeLen = LenB(RichTextBox1.Text)
t = 0
RichTextBox1.SelStart = 0
Do While lngPlace <> -1
With RichTextBox1
lngPlace = .Find(vstrKey, , lngCodeLen) 'object.Find(string, start, end, options)
If lngPlace <> -1 Then
t = t + 1
If t > 1 Then
.SelColor = vb