如何批量替换【多个文件的多处文字】

[qq_39274260]

比如有文件：a/b/c/d/e/f.....文件后缀是.txt

批量替换规则：我|硪 你|妳 他|她 .......

要替换的字符有好几千几万，最好是枚举某个文件来匹配替换

贴代码 感谢！

[「已注销」]

补充：文件后缀是 txt

[郴郴]

百度有现成的code

要修改的文件D:\123.txt，修改后的文件保存为D:\abc.txt
Private Sub Command1_Click()
     Dim FileNumber1, FileNumber2, Str As String
     FileNumber1 = FreeFile  '得到一个未使用的文件号。
     Open "D:\123.txt" For Input As #FileNumber1 '打开要读取的文件
     FileNumber2 = FreeFile
     Open "D:\abc.txt" For Output As #FileNumber2 '打开要写入的文件
   While Not EOF(1) ‘直到最后一行
     Line Input #FileNumber1, Str  ’按行读取文件
     Str = Replace(Str, "@02", "大") ‘替换第一个字符
     Str = Replace(Str, "@03", "100") '替换第二个字符
     Str = Replace(Str, "@04", "567")'替换第三个字符
     Print #FileNumber2, Str '写入替换后的内容
   Wend
     Close #FileNumber1 '关闭文件
     Close #FileNumber2 '关闭文件
End Sub