Question

vb删除text重复的行

text1的文本内容

D:\Desktop\新建文件夹 (3)\新建 好压 ZIP 压缩文件.zip
d:\Desktop\新建文件夹 (3)\新建 好压 ZIP 压缩文件.zip
d:\Desktop\新建文件夹 (3)\新建 好压 ZIP 压缩文件.zip
D:\Desktop\新建文件夹 (3)
D:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)
我要在command按钮点击后 删除重复的行到text2
text2的内容
d:\Desktop\新建文件夹 (3)\新建 好压 ZIP 压缩文件.zip
D:\Desktop\新建文件夹 (3)

Answer 1

Private Sub Command1_Click()
Dim myLine() As String, i As Integer, myTempStr As String
myTempStr = Text1.Text
myLine = Split(myTempStr, vbCrLf)
For i = 0 To UBound(myLine)
If Len(myLine(i)) < Len(myTempStr) - Len(Replace(myTempStr, myLine(i), "")) Then
Text2.Text = Text2.Text & myLine(i) & vbCrLf
myTempStr = Replace(myTempStr, myLine(i), "")
End If
Next
End Sub

根据题义，结果应该是：
d:\Desktop\新建文件夹 (3)\新建 好压 ZIP 压缩文件.zip
D:\Desktop\新建文件夹 (3)
d:\Desktop\新建文件夹 (3)

Answer 2

用回车符分割，然后用for一行一行查找，遇到相同的就替换掉！！！！！