一个比对的问题
如何合并一个txt文件中相同字符的行数 如:
1
2
2
3
4
合并后为
1
2
3
4
[解决办法]
增加一个COMMAND控件 2个 LIST 控件
Private Sub Command1_Click()
Dim x() As String, tmp As String, i As Long, lof As Long, k As Long, k1 As Long, k2 As Long
Open "e:\1.txt " For Input As #1
k = FileLen( "e:\1.txt ") / 10 + 1
ReDim x(k)
i = 0
Do While Not EOF(1)
If i > UBound(x) Then
k = i + 10
ReDim Preserve x(k)
End If
Line Input #1, x(i)
List1.AddItem x(i)
i = i + 1
Loop
For k1 = 0 To k - 1
For k2 = k1 + 1 To k
If x(k1) = x(k2) Then
x(k2) = " "
End If
Next
If x(k1) <> " " Then List2.AddItem x(k1)
Next
End Sub
