替换重复文本工具

Question

替换重复文本工具比如：
文本里面有：
123
123
345
6789
123
589
345
软件会自己过滤重复的：
123
345
6789
589算法好，可以再加200分，大家尽管把自己的想法表达出来好了。
各种这样的都可以的，

Answer 1

Private Sub Command1_Click()
On Error GoTo ERR_HandleDim col As New Collection
Dim vStr As Variant
Dim i As Long
Dim Item As Variant
      vStr = Split(Text1.Text, vbCrLf)
      
      
For i = LBound(vStr) To UBound(vStr)      col.Add vStr(i), vStr(i)
Next i      
For Each Item In col
      Print Item
Next      Exit SubERR_Handle:
      If Err.Number = 457 Then Resume Next
End Sub
简单代码，lz可以在发挥的。

Answer 2

用Listview加载
listview1.listitems.add , "Key:" & s,ss是读出来的每一行文本，循环加载。前面加一句on error resume next重复的KEY就过滤掉了。