记不得，憋不住 | Can't Remember, Can't Shut Up

根据 换行, |, 空格来分割文本文件, 生成字符串数组 去掉数组中的空元素 以 | 作为分隔符, 把数据拼回一个单行的字符串 前后分别添加 / 和 /ig 根据 换行, 逗号, 空格来分割文本文件, 生成字符串数组 去掉数组中的空元素 以 逗号 作为分隔符, 把数据拼回一个单行的字符串 ' 定义输入输出文件 inputFile = "关键字.txt" outputFile = "outputkey.txt" ' 打开文件 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(inputFile, 1) ' 读取文件内容 strData = f.ReadAll ' 关闭文件 f.Close ' 将 换行 替换为 | strData = Replace(strData, vbCrLf, "|") ' 将 空格 替换为 | strData = Replace(strData, " ", "|") ' 以 | 为分隔符, 将文件内容分隔为字符串数组 arrData = Split(strData, "|") ' 去重 arrData = uniqFE(arrData) ' 将字符串数组用 | 为间隔拼起来 strData = Join(arrData, "|") '在开头添加 / strData = "/" + strData '在末尾添加 /ig strData = strData + "/ig" ' 打开文件 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(outputFile, 2, true) ' 写入文件 f.write strData ' 关闭文件 f.Close ' returns an array of the unique...

VBS 的数组没有去除重复值的方法 在网上搜了一圈， 找到一个可以无脑抄的方案 感谢  https://stackoverflow.com/questions/13743165/how-to-get-unique-values-from-a-list-of-values-using-vbscript#13744080 ' returns an array of the unique items in for-each-able collection fex Function uniqFE(fex)   Dim dicTemp : Set dicTemp = CreateObject("Scripting.Dictionary")   Dim xItem   For Each xItem In fex       dicTemp(xItem) = 0   Next   uniqFE = dicTemp.Keys() End Function

如果你需要不断地重复执行shell脚本，比如，搭建测试环境之类的。强烈建议你使用Xshell的操作脚本功能。