• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

字符串删去重复(总结) [复制链接]

1#
本帖最后由 we似曾相识 于 2013-8-4 20:24 编辑

翻看老帖和我的写法,将字符串去重复代码总结如下:

[写法一]
str = "我我我爱爱我爱按键精灵精灵按按按按按按键键精精精灵灵灵灵灵12"
ReDim a(len(str))
For i = 0 To UBound(a)-1
a(i)=Mid(str,i+1,1)
Next
For i = 0 To UBound(a)-1
If Instr(b, a(i)) = 0 Then
b=b & a(i)
End If
Next
Msgbox b

[写法二]
Str = "按按按键键键精灵灵灵灵灵按键键键"
tStr = Str
For i=1 To len(Str)-1
tStr = Left(tStr, i) & Replace(Right(Str, Len(Str)-i), Mid(Str, i, 1), "龖")
Next
tStr = Replace(tStr, "龖", "")
Msgbox tStr

[写法三]
Str = "按按按键键键精灵灵灵灵灵按键键键"
i=1:j=len(Str)
Do
If i=j Then
Exit Do
End If
If Mid(Str, i, 1) = Mid(Str, i+1, 1) Then
Str = Left(Str, i) & Right(Str,Len(Str)-(i+1))
j=len(Str)
Else
i=i+1
End If
Loop
Msgbox Str

[写法四]
'By:xuyuzui
str = "我爱大家我爱大家我我我爱按键我爱按键12"
Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.pattern = "((.)+)\1"
While regEx.test(str)
str =regEx.replace(str,"$1")
Wend
Msgbox str

[写法五]
'By:gsdjy
Dim str, str1, i
str = "我我我爱爱我爱按键精灵精灵按按按按按按键键精精精灵灵灵灵灵12"
For i = 1 To Len(str)
If InStr(str1, Mid(str, i, 1)) = 0 Then
str1 = str1 & Mid(str, i, 1)
End If
Next
Msgbox str1

[写法六]
'By:风.雨
a="刚7833888888888888888888888888888ghhihhhghgffgfgffff软弱防台风 分"
For i = 1 To Len(a)-1
a = Mid(a, 1, i) & Replace(a, Mid(a, i, 1), "",i+1)
'Mid(a, 1, i) Left(a,i) 这两个效果是一样的
Next
Msgbox a


[写法七]
By:掛失的記憶
Dim Str, Str1
Str = "我我我爱爱我爱按键精灵精灵按按按按按按键键精精精灵灵灵灵灵12"
Do
Str1 = Str1 & Left(Str, 1)
TracePrint Str1
Str = Replace(Str, Left(Str, 1), "")
Loop Until Len(str) < 1
Msgbox Str1


附:
【总结脚本】删除数组重复元素(数组去重)
showtopic.aspx?topicid=414772&forumpage=1&page=1


    已有1评分我要评分查看所有评分

    We're brothers that is why we are called vrbrothers

    [新手密卷]“诱惑”高手帮忙有高招!
    2#


    3#

    回复学习一下~~!!

    4#

    1111111111111

    5#

    asfduhasf

    6#

    事实上是事实是事实是事实上

    7#

    学习下

    8#

    为什么啊,我要疯了啊啊啊啊!!!!!!!

    9#

    回复 1楼we似曾相识的帖子

    感谢分享,受教了~

    10#

    啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

    为了做脚本而游戏
    11#

    学习!!!!!!!!!!!!

    12#

    看下哪一种方法快

    13#

    526465的a45f

    14#

    感谢分享

    大话西游2 脚本制作 源码 内存数据 QQ50080338
    15#

    该用户帖子内容已被屏蔽

    16#

    该用户帖子内容已被屏蔽

    17#

    该用户帖子内容已被屏蔽

    18#


    19#

    该用户帖子内容已被屏蔽

    20#

    该用户帖子内容已被屏蔽

    发新话题 回复该主题