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
复制代码

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
复制代码

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)
复制代码

@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
复制代码