在win平台下处理文本文件 字符串 使用VBS脚本
根据 换行, |, 空格来分割文本文件, 生成字符串数组 去掉数组中的空元素 以 | 作为分隔符, 把数据拼回一个单行的字符串 前后分别添加 / 和 /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
