Question

用vb如何去掉重复的行？

用vb建立一个窗体，上面有两个文本框text1、text2（multiline属性都是true）和一个按钮command1。现在在文本框text1中输入如下有重复行的内容（输入的行数不限，可能很多），在文本框text2中自动把那些重复的行去掉：
<a href="http://www.haoting.com/hao123/90.htm">追 (马三立)</a>
<a href="http://www.haoting.com/hao123/90.htm">追 (马三立)</a>
<a href="http://www.haoting.com/hao123/236.htm">走向世界 (李伯祥/杜国芝)</a>
<a href="http://www.haoting.com/hao123/236.htm">走向世界 (李伯祥/杜国芝)</a>
<a href="http://www.haoting.com/hao123/256.htm">爱的挫折 (姜昆、李文华)</a>
<a href="http://www.haoting.com/hao123/256.htm">爱的挫折 (姜昆、李文华)</a>

Answer 1

我觉得这种问题不需要太多代码。
**********************************************************************
Private Sub Command1_Click()
Dim ObjStr, StrTemp, I%
Text2 = ""
StrTemp = Replace(Text1, vbCrLf, "||")
For Each ObjStr In Split(StrTemp, "||")
If InStr(StrTemp, ObjStr) Then StrTemp = Replace(StrTemp, ObjStr, ""): Text2 = Text2 & ObjStr & vbCrLf
Next
End Sub
**********************************************************************

Answer 2

不用其它组件的话只能放数组,然后一个一个比较....

Answer 3

Private Sub Command1_Click()
Dim a() As String, b As String, i%, j%
b = Text1
Open App.Path & "\1.txt" For Output As #1
Print #1, b
Close
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1) '循环读取数据直到文件末尾
Line Input #1, b '每次读入一行文本数据
ReDim Preserve a(i) '重新定义动态数组
a(i) = b
If i > 1 Then
If a(i) <> a(i - 1) Then
i = i + 1
End If
Else
i = i + 1
End If
Loop
Close
For j = 0 To i - 1
For k = j + 1 To i - 1
If Trim(a(j)) = Trim(a(k)) Then
Exit For
ElseIf k = i - 1 Then
Text2 = Text2 & a(j) & vbCrLf
End If
Next
Next
kill App.Path & "\1.txt"
End Sub