对文本文件进行改写

chinasa　发表于：2017-12-05 09:22:57 　

复制

我有如下文本文件,其中第二行的“XU YAO GAI XIE NEIR ONG”我想把它更改为“ABC”，假设该文件放在D盘根目录，文件名为AAA.TXT。

说明：我想在原文件上进行修改，并不想生成新文件，然后再删除原文件。我在网上有看到 open xx for binary as #1，可以对原文件进行读写。但研究半天还是不会。

00:aa:access:123456'

10:xx:XU YAO GAI XIE NEIR ONG:aabb:adf'

12:afasdf:012'

99:4'

Top

王大哥发表于：2017-12-05 14:12:18

点击下载此附件

试试，看能不能满足你的要求。

Top

chinasa 发表于：2017-12-05 14:19:11

王大哥，内容没发上来？

Top

张志发表于：2017-12-05 14:25:31

刷新后，就能看到1楼中的附件

Top

chinasa 发表于：2017-12-05 14:32:30

看到啦，非常感谢！

Top

大海发表于：2017-12-05 15:17:02

Sub cc()
Dim i&, s() As String
Open "D:\新建文本文档.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
Open "D:\新建文本文档.txt" For Output As #1
For i = 0 To UBound(s)
If InStr(s(i), "XU YAO GAI XIE NEIR ONG") And i = 1 Then s(i) = Replace(s(i), "XU YAO GAI XIE NEIR ONG", "ABC")
Print #1, s(i)
Next
Close #1
End Sub

Top

chinasa 发表于：2017-12-05 15:20:25

万分感谢！完美解决我的问题。

王大哥的方法也很好，只是与我的需求稍有不同，非常感谢！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

对文本文件进行改写