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

来源：百度知道编辑：UC知道时间：2024/06/07 10:20:08

这段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
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.正则的我稍后再发

可以考虑用正则表达式

这段代码如何改才对？如何进一步完善我国城镇最低生活保障请问这段VB代码 VB 解释这段代码这段vb 代码是什么意思？帮忙分析这段VB代码!!! 求VB高手看看这段代码关于VB: 不能运行这段代码这段vb代码的意思是什么? 这段VB代码有什么问题？