Question

VB怎样去除textbox重复的字符

比如textbox里是1111222233334444，或44443333222111，我要去除掉重复数字后变成1234或者4321，但是数字出现的顺序保留. 注意：我的文本框只有1234这4个数字重复出现。

Answer 1

定义一个字符串，保存textbox的文本值，再定义一个空字符串保存返回值，从左向右依次替换出现的字符为空，并把这个字符累加到返回字符串中，当替换完所有字符之后，再把返回值字符串赋值给textbox，代码如下：

Private Sub Command1_Click()
    Dim str As String, rt As String
    str = Text1.Text
    rt = ""
    Do While Len(str) > 0
        rt = rt & Left(str, 1)
        str = Replace(str, Left(str, 1), "")
    Loop
    Text1.Text = rt
End Sub

执行效果如下：

Answer 2

Private Sub Command1_Click()
Dim s As String, i As Long
s = Text1.Text
i = 1
Do While i < Len(s)
s = Left(s, i) & Replace(s, Mid(s, i, 1), "", i + 1)
i = i + 1
Loop
Text1.Text = s
End Sub