VB 怎样删除文本框里面重复的数字或者字符?(新手)

来源：百度知道 编辑：UC知道 时间：2024/06/21 19:23:25
例如文本框1
05,21,01,09,10,11,14,15,23,41,08,26,28,34,35,40,44,48,46
26,46,48,08,28,34,35,36,37,40,42,44,01,03,11,23,05,21,03,
去除重复的数字,输出到文本框2(有重复的数字只保留一个)
05,21,...........,
写一写完整代码好吗?

提供一个思路:
用数组来实现吧

放到一个一维数组中
然后对每个元素进行遍历
如果出现相同,去掉

最后把整理后的数组元素再全部显示出来

写好了,你看看

Dim strNum
Dim arrNum
Dim strResult
Dim i,j

strNum = "05,21,01,09,10,11,14,15,23,41,08,26,28,34,35,40,44,48,46,26,46,48,08,28,34,35,36,37,40,42,44,01,03,11,23,05,21,03"

arrNum = Split(strNum,",")
strResult = CStr(arrNum(0))
For i=1 To UBound(arrNum)
If InStr(strResult,arrNum(i)) = 0 Then
strResult = strResult&","&arrNum(i)
End if
Next

Response.Write strResult

测试结果:
05,21,01,09,10,11,14,15,23,41,08,26,28,34,35,40,44,48,46,36,37,42,03

用上面那个兄弟把 就是他写的那样