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

batman

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

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

输出为“bat home net”

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

batman

8# zm900612
看6楼。。。