[技术讨论] 【出题】vbs去除重复的字符串

batman

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

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

输出为“bat home net”

dahual

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

Dim s	'源字符串
Dim final	'最终字符串
Dim ss,i,j

s="bat home home Net home net Bat net"
'For i=0 To 10
'	s=s & " " & s
'Next
ss=Split(s," ")
MsgBox "Length: " & Len(s) & vbNewLine & "Count: " & UBound(ss)+1
ReDim mark(UBound(ss))
For i=0 To UBound(ss)-1
	If (mark(i)=0) Then
		For j=i+1 To UBound(ss)
			If (mark(j)=0) Then
				If (StrComp(ss(i),ss(j),vbTextCompare)=0) Then
					mark(i)=1:mark(j)=-1
				End If
			End If
		Next
	End if
Next
For i=0 To UBound(ss)
	If (mark(i)=1) Then final=final & ss(i) & " "
Next
If (Len(final)>0) Then final=Left(final,Len(final)-1)
Erase mark

MsgBox final
复制代码

dahual

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

Sub Cut2
	Dim s	'源字符串
	Dim final	'最终字符串
	Dim ss,i
	Dim dic	'字典对象
	Set dic=CreateObject("Scripting.Dictionary")
	
	s="bat home home Net home net Bat net"
'	For i=0 To 10
'		s=s & " " & s
'	Next
	ss=Split(s," ")
	MsgBox "Length: " & Len(s) & vbNewLine & "Count: " & UBound(ss)+1
	For i=0 To UBound(ss)
		If (dic.Exists(LCase(ss(i)))=False) Then dic.Add LCase(ss(i)),ss(i)
	Next
	Erase ss
	
	For Each item In dic.Items
		final=final & item & " "
	Next
	Set dic=Nothing
	
	If (Len(final)>0) Then final=Left(final,Len(final)-1)
		
	MsgBox final
End Sub
复制代码

batman

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

batman

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

vbstr = "bat home home Net home net Bat net"
For Each str In Split(vbstr, Chr(32))
  If InStr(LCase(vbout), LCase(str)) = 0 Then vbout = vbout & str & Chr(32)
Next
MsgBox LCase(vbout)
复制代码

batman

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

@echo off&setlocal enabledelayedexpansion
set "str=bat home home Net home net Bat net"
set "var=@"
for %%a in (%str%) do if /i "!var:%%a=!" equ "!var!" set "var=!var! %%a"
echo !var:~2!
pause>nul
复制代码

wankoilz

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

CrLf

5# batman


这不是bat的思路么...

batman

8# zm900612
看6楼。。。