Question

如何在VB中实现导入文本，查找文本中是否有重复字符，如果有，保留重复字符中的第一个，其余重复字符删...

如何在VB中实现导入文本，查找文本中是否有重复字符，如果有，保留重复字符中的第一个，其余重复字符删除，直到无重复字符后保存到D盘。求完整代码

Answer 1

Private Sub Command2_Click()
Dim s As String
Dim s2 As String
Dim s3 As String
Dim i As Long
Dim j As Long
Open App.Path & "\1.txt" For Input As #1
Open "g:\2.txt" For Output As #2
Do While Not EOF(1) '将文本1中的文本导入字符串s中
Line Input #1, s
s2 = s2 & s
Loop
s3 = Mid(s2, 1, 1)

For j = 2 To Len(s2)

If InStr(s3, Mid(s2, j, 1)) = 0 Then
s3 = s3 & Mid(s2, j, 1)
End If
Next

Print #2, s3
Close #1
Close #2
End Sub