Question

这段vb代码如何进一步完善，才能过滤掉重复的数字？

这段vb代码如何进一步完善，才能过滤掉重复的数字？

下面一段代码可以实现把temp1.txt中重复的行过滤掉并保存到temp2.txt中。现在想对这段代码进行完善，使其增加一个新功能，就是在原来的基础上仅过滤掉重复的数字。比如，有一行内容是：“张三电话：123456789”；另一行是：123456789。过滤后仅保留包含汉字的一行：“张三电话：88888888”，而去掉没有汉字只有数字的一行：123456789。

Private Sub Command1_Click() '把temp1.txt中重复的行过滤掉并保存到temp2.txt

Dim str1() As String
Dim str2 As String
Dim i As Integer, J As Integer
Open App.Path & "\temp1.txt" For Input As #1
ReDim Preserve str1(J)
Do
Line Input #1, str2
str2 = Trim(str2)
For i = 0 To UBound(str1)
If str2 = str1(i) Then GoTo AA:
Next
ReDim Preserve str1(J)
str1(J) = str2
J = J + 1
AA:
Loop While Not EOF(1)
Close #1
Open App.Path & "\temp2.txt" For Output As #1
For i = 0 To UBound(str1)
Print #1, str1(i)
Next
Close #1

End Sub

为了清楚起见，对完善上面这段代码的想法进一步说明如下：
假如temp1.txt的内容有五行，是：
123456789
美国
123456789
123456
美国

上面的那段vb代码目前已经可以将temp1.txt的内容中重复的行过滤掉并保存到temp2.txt中，即变成：
123456789
美国
123456

现在假如temp1.txt的内容有六行，是：
张三电话：123456789
王五电话：123
123456789
123456
123456
123

完善后的代码应该可以将上面temp1.txt的内容中不同行中重复的数字过滤掉并保存到temp2.txt中，即变成：
张三电话：123456789
王五电话：123
123456

注意：如果两行都是相同的数字，则保留任意一行；如果两行中数字相同，其中一行只有数字，另一行还有其他字符（如汉字），则要保留包含有其他字符的一行（此外还有一种情况，可以考虑，也可以不考虑，就是：两行中仅数字相同，但这两行中都还有其他字符。这种情况可以保留任意一行，也可以不管它，作为不同行处理，都保留）。

Answer 1

1.用文本处理 '显示在Text1 和 text2只是为了对比
Private Sub Command1_Click()
Dim str2 As String
Open App.Path & "\temp1.txt" For Input As #1
Text1 = ""
Do
Line Input #1, str2
Text1 = Text1 & str2 & vbNewLine '把文件内容读进Text1
If InStr(Text2, str2) = 0 Then Text2 = Text2 & str2 & vbNewLine
'结果显示在text2
Loop While Not EOF(1)
Close #1
Open App.Path & "\temp2.txt" For Output As #1 '保存
Print #1, Text2
Close #1
End Sub

2.正则的我稍后再发

Answer 2

可以考虑用正则表达式