Foxtable(狐表)用户栏目专家坐堂 → 求助,字符串去重。


  共有2550人关注过本帖树形打印复制链接

主题:求助,字符串去重。

帅哥哟,离线,有人找我吗?
夜点蚊香
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
求助,字符串去重。  发帖心情 Post By:2023/12/12 9:22:00 [只看该作者]

“你好,我的,你好”  求助哪个函数可以字符串去重。
设定字符串是一个集合  str() 


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/12 9:52:00 [只看该作者]

dim ss() as string = "你好,我的,你好".split(",")
dim lst as new list(of string)
for i as integer = 0 to ss.length - 1
if lst.contains(ss(i)) = false then lst.add(ss(i))
next

msgbox(string.join(",",lst.toarray))

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4761 积分:34613 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2023/12/12 14:27:00 [只看该作者]

Dim 字符串 As String = "你好,我的,你好"
Output.Show (String.join(vbcrlf, 字符串.Split (",").distinct))

 回到顶部