在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 items in for-each-able collection fex Function uniqFE(fex) Dim dicTemp : Set dicTemp = CreateObject("Scripting.Dictionary") Dim xItem For Each xItem In fex If (xItem) <> "" Then dicTemp(xItem) = 0 End If Next uniqFE = dicTemp.Keys() End Function
' 定义输入输出文件 inputFile = "频道和群.txt" outputFile = "outputchlgrp.txt"
' 打开文件 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(inputFile, 1)
' 读取文件内容 strData = f.ReadAll
' 关闭文件 f.Close
' 将 https://t.me/ 删除 strData = Replace(strData, "https://t.me/", "")
' 将 换行 替换为 , strData = Replace(strData, vbCrLf, ",")
' 将 空格 替换为 , strData = Replace(strData, " ", ",")
' 以 , 为分隔符, 将文件内容分隔为字符串数组 arrData = Split(strData, ",")
' 去重 arrData = uniqFE(arrData)
' 将字符串数组用 , 为间隔拼起来 strData = Join(arrData, ",")
' 打开文件 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(outputFile, 2, true)
' 写入文件 f.write strData
' 关闭文件 f.Close
' 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 If (xItem) <> "" Then dicTemp(xItem) = 0 End If Next uniqFE = dicTemp.Keys() End Function
博文
