VB处理文本，大家帮个忙
我D盘有个文件夹d:\sd,里面有1.txt 2.txt 3.txt三个文本
每个文本里面有很多行数据，每行数据只有两个数字，格式如下：
81
36
81
......
我想程序运行后读取第一个文本，检测里每行数据在这个文本里是否有出现重复的情况，如果没有，则计数+1，如果有重复则不加。从第一行检测到最后一行，当该文本检测完后，把计数结果放进变量存放。然后检测后面的文本，方法跟上面一样...文件夹里的所有文本统计完后，对比哪个文本的计数结果是最少的，然后将该文本的名字输出到提示框。
希望大家帮个忙，帮我写个完整的程序代码，急用，谢谢。
简单? VB 帮忙
[解决办法]
Private Sub Form_Load()
Dim tmp As String, M As Long
Open "F:\1.txt" For Input As #1
Open "F:\2.txt" For Output As #2
Open "F:\3.txt" For Output As #3
Do While Not EOF(1)
Line Input #1, tmp
If Len(tmp) > 5 Then
Print #2, Mid(s, Len(s) - 4, 1) & Mid(s, Len(s) - 1, 1)
Print #3, Mid(s, Len(s) - 2, 1) & Mid(s, Len(s), 1)
End If
Loop
Close #3
Close #2
Close #1
MsgBox "完成！"
End Sub
