字符串求教高手:

msdn165168 2004-08-06 03:23:14
字符串求教高手:
字符串:
aaa
bbb kkk
bbb xxxxxxxx
ccc
ddd
bbb kkk
bbb xxxxxxxx
eee kkk
eee vvvvvvvvvvvv
eee kkk
eee vvvvvvvvvvvv
如何使其中的重复的只保留一个,谢谢!!!
结果为:
aaa
bbb kkk
bbb xxxxxxxx
ccc
ddd
eee kkk
eee vvvvvvvvvvvv
...全文
154 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-08-06
  • 打赏
  • 举报
回复
Option Explicit

Private Sub Command1_Click()
Dim x() As String, i As Integer, temp As New Collection
On Error Resume Next
x = Split(Text1, vbCrLf)
For i = 0 To UBound(x)
temp.Add x(i), x(i)
Next
ReDim x(1 To temp.Count)
For i = 1 To temp.Count
x(i) = temp(i)
Next
Text2.Text = Join(x, vbCrLf)
End Sub
msdn165168 2004-08-06
  • 打赏
  • 举报
回复
lovebeethoven(小佛) :
不是数据库,求用个数组 循环写代码,谢谢!!
_1_ 2004-08-06
  • 打赏
  • 举报
回复
这个不难写,

方法1:转到数据库里去

方法2: 用个数组 循环写代码, 我懒得写
zcm123 2004-08-06
  • 打赏
  • 举报
回复
http://community.csdn.net/Expert/topic/3147/3147625.xml?temp=.1629602
lovebeethoven 2004-08-06
  • 打赏
  • 举报
回复
这些字符串是在什么里面的?数据库内的?

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧