Question

vb过滤掉其中出现过的一些数字

我想写一段程序，导入一个txt的数据进去后，显示在text1里面，然后从1000里面把出现过的数字过滤掉，剩下的数字显示在text2里面，再从text2里面导出到另外一个txt，请教高手怎么弄，我能导入进去，导入进去后在text1里面的排序不整齐，就是连续的一排数字，我还想让它直观点，怎么弄？高分求教育
Private Sub Command1_Click()
Open "C:\Documents and Settings\Administrator\桌面\3d.txt" For Input As #1
Do While EOF(1) = False
Line Input #1, a
Text1 = Text1 & a & vbCrLf
Loop
Close
End Sub
这是我导入的代码，导入后，数字排列很紧密，一个挨一个，怎么才能让他们排列好看一小点
Private Sub Command2_Click()
Open "C:\334.txt" For Output As #2
Print #2, Text2.Text
Close
End Sub
这是导出代码，不能成功导出，是哪里错了

Answer 1

Private Sub Command1_Click()
'导入到text1
Open App.Path & "\3d.txt" For Input As #1
Do While EOF(1) = False
Line Input #1, a
Text1 = Text1 & a & vbCrLf
Loop
Close
End Sub
Private Sub Command2_Click()
'导入到文件
Open App.Path & "\334.txt" For Output As #2
Print #2, Text2.Text
Close
End Sub

Private Sub Command3_Click()
'过滤数字
Dim T2 As String
For I = 1 To 100
If InStr(Text1, I & vbCrLf) = 0 Then
If T2 = "" Then T2 = I Else T2 = T2 & vbCrLf & I
End If
Next I
Text2 = T2
End Sub

追问

我试试，可以就把分给你

追答

注意把3d.txt与程序放到同一个文件夹下

追问

我引导了路径的，可以了，谢谢，分给你把

Answer 2

把 Text1 = Text1 & a & vbCrLf
改成 Text1 = Text1.text & a & ", "
试试看

追问

如何过滤掉出现过的数字，知道吗？而且，你说的这个不得行，导入是false