UC知道VB文本取字问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 06:36:26
现有一段文本：
“要学习的是狗叫，汪汪两声吓死猫它丫的！”
要把它变成：
“要学习的是狗叫，汪两声吓死猫它丫” （就是把重复的字去掉）
之后把取出的文字保存到text3中
要怎么写？
请问一下：Replace什么意思？
“要学习的是狗叫，汪汪两声吓死猫它丫的！”
要把它变成：
“要学习的是狗叫，汪两声吓死猫它丫” （就是把重复的字去掉）
之后把取出的文字保存到text3中
要怎么写？
请问一下：Replace什么意思？
a$ = "要学习的是狗叫，汪汪两声吓死猫它丫的！"
flag = True
Do While flag
For i = 1 To Len(a) - 1
If Mid(a, i, 1) = Mid(a, i + 1, 1) Then
a = Replace(a, Mid(a, i, 1), "", , 1)
flag = True
Else
flag = False
End If
Next i
Loop
Text3 = a
-----------------------
replace是字符替换函数.
详细请查msdn
Replace是替换函数
Replace(字符串,要替换的文本,替换成的文本,[开始位置],[替换长度],[比较方式：二进制、数据、文本])
楼上思路：
比如12456789
先一个一个获得字符（比如第一次获得1，第二次获得2），这个只要循环就可以了
然后Replace
可是
好像有一点问题，因为这个只能替换连续两个的