Asp classic ASP-从字符串中删除重复的单词

经典ASP

我的字符串包含重复的单词，如下所示：

myString = "cat dog dog mouse dog cat dog"

…我需要重新构造字符串，使其看起来像

“猫-狗-老鼠”

，这与字符串的最终顺序无关，尽管我更希望保持第一个实例与原始字符串的顺序相同

---

在不编写20行代码的情况下，有没有更有效的方法可以实现这一点？

我想展示两种方法。

使用字典对象键

myString=“猫狗老鼠狗猫狗”
设置oDict=Server.CreateObject（“Scripting.Dictionary”）
oDict.CompareMode=vbTextCompare
对于拆分中的每个单词（myString，“”）
oDict（字）=空
下一个
Write（Join（oDict.Keys，“”）
设置oDict=Nothing

字符串串联

myString=“猫狗老鼠狗猫狗”
arrWords=Split（myString，“”）
sTmp=“”
每一个字，每一个字
如果单词“”和InStr（1，sTmp，“&word&”，vbTextCompare）=0，则_
sTmp=sTmp&word&“”
下一个
响应写入（Trim（sTmp））

我想要第一个。

---

注意：所有比较都不区分大小写。如果要进行区分大小写的比较，需要将所有vbTextCompare常量更改为vbBinaryCompare。

第一个示例工作正常，但第二个示例失败。我用了第一个。