爱问知识人 爱问教育 医院库

VB怎样删除多行相同字符?

首页

VB怎样删除多行相同字符?

例如
文本框内容:
虎,龙,蛇,马,羊,虎,
猴,鸡,狗,狗,鼠,
牛,兔,龙,蛇,羊,龙,
猴,狗,猪,鼠,猪,虎,
龙,蛇,马,羊,鸡,
狗,猪,鼠,虎,蛇,
猴,猴,鸡,狗,
猪,牛,牛,龙,蛇,

改为:
虎,龙,蛇,马,羊,
猴,鸡,狗,鼠,
牛,兔,龙,蛇,羊,
猴,狗,猪,鼠,虎,
龙,蛇,马,羊,鸡,
狗,猪,鼠,虎,蛇,
猴,鸡,狗,
猪,牛,龙,蛇,

意思就是删除每行重复的字符.

单行的代码有了,如下 就是不知道怎么处理多行.
strNum = Text1.Text
arrNum = Split(strNum, ",")
strResult = CStr(arrNum(0))
For ii = 1 To UBound(arrNum)
If InStr(strResult, arrNum(ii)) = 0 Then
strResult = strResult & "," & arrNum(ii)
Text2.Text = strResult

text1.text =虎,龙,蛇,马,羊,虎,
运行如下"
text2.text =虎,龙,蛇,马,羊,

谢谢

提交回答

类似问题

换一换
  • 程序设计 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):