【出题】vbs去除重复的字符串

batman

已知字符串“bat home home Net home net Bat net”

要求用vbs去除所有重复的字符串（忽略大小写）

输出为“bat home net”

dahual

路过，花时间写了个来支持。

1. 
   
2. Dim s        '源字符串
   
3. Dim final        '最终字符串
   
4. Dim ss,i,j
   
5. 
   
6. s="bat home home Net home net Bat net"
   
7. 'For i=0 To 10
   
8. '        s=s & " " & s
   
9. 'Next
   
10. ss=Split(s," ")
    
11. MsgBox "Length: " & Len(s) & vbNewLine & "Count: " & UBound(ss)+1
    
12. ReDim mark(UBound(ss))
    
13. For i=0 To UBound(ss)-1
    
14.         If (mark(i)=0) Then
    
15.                 For j=i+1 To UBound(ss)
    
16.                         If (mark(j)=0) Then
    
17.                                 If (StrComp(ss(i),ss(j),vbTextCompare)=0) Then
    
18.                                         mark(i)=1:mark(j)=-1
    
19.                                 End If
    
20.                         End If
    
21.                 Next
    
22.         End if
    
23. Next
    
24. For i=0 To UBound(ss)
    
25.         If (mark(i)=1) Then final=final & ss(i) & " "
    
26. Next
    
27. If (Len(final)>0) Then final=Left(final,Len(final)-1)
    
28. Erase mark
    
29. 
    
30. MsgBox final
    

复制代码

dahual

再贴一个利用Dictionary对象Key唯一性的方法。
这个和楼上的代码，大部分时间都花在Split上了；不过目前也没有好的解决办法。

1. 
   
2. Sub Cut2
   
3.         Dim s        '源字符串
   
4.         Dim final        '最终字符串
   
5.         Dim ss,i
   
6.         Dim dic        '字典对象
   
7.         Set dic=CreateObject("Scripting.Dictionary")
   
8.        
   
9.         s="bat home home Net home net Bat net"
   
10. '        For i=0 To 10
    
11. '                s=s & " " & s
    
12. '        Next
    
13.         ss=Split(s," ")
    
14.         MsgBox "Length: " & Len(s) & vbNewLine & "Count: " & UBound(ss)+1
    
15.         For i=0 To UBound(ss)
    
16.                 If (dic.Exists(LCase(ss(i)))=False) Then dic.Add LCase(ss(i)),ss(i)
    
17.         Next
    
18.         Erase ss
    
19.        
    
20.         For Each item In dic.Items
    
21.                 final=final & item & " "
    
22.         Next
    
23.         Set dic=Nothing
    
24.        
    
25.         If (Len(final)>0) Then final=Left(final,Len(final)-1)
    
26.                
    
27.         MsgBox final
    
28. End Sub
    

复制代码

batman

用split＋instr就可以解决问题了，当然用key更加规范。。。

batman

vbs就这样没人气。。。
my answer

1. 
   
2. vbstr = "bat home home Net home net Bat net"
   
3. For Each str In Split(vbstr, Chr(32))
   
4.   If InStr(LCase(vbout), LCase(str)) = 0 Then vbout = vbout & str & Chr(32)
   
5. Next
   
6. MsgBox LCase(vbout)
   

复制代码

batman

给上一段和楼上思路一样的批代码帮助大家理解（没有将大写转为小写）：

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set "str=bat home home Net home net Bat net"
   
4. set "var=@"
   
5. for %%a in (%str%) do if /i "!var:%%a=!" equ "!var!" set "var=!var! %%a"
   
6. echo !var:~2!
   
7. pause>nul
   

复制代码

wankoilz

5楼的方法真是好，以前写过去重复字符的vbs，但是比起5楼得方法显得太笨拙了，赞一个！

CrLf

5# batman


这不是bat的思路么...

batman

8# zm900612
看6楼。。。