Question

VB 修改 TXT中指定的某一行

比如有一个txt中有如下内容：
AdapterTroubleshooter.exe>|1/294|38912|09:14 2009/July/14|||||
ARP.EXE>|2/294|20992|09:14 2009/July/14|||||
at.exe>|3/294|24064|09:14 2009/July/14|||||
AtBroker.exe>|4/294|29184|09:14 2009/July/14|||||
attrib.exe>|5/294|16384|09:14 2009/July/14|||||
auditpol.exe>|6/294|50176|09:14 2009/July/14|||||
AUTMGR32.EXE>|7/294|153088|00:00 1998/April/24|||||
autochk.exe>|8/294|668160|04:16 2010/November/20|||||
autoconv.exe>|9/294|679424|04:16 2010/November/20|||||
autofmt.exe>|10/294|658944|04:16 2010/November/20|||||
bitsadmin.exe>|11/294|186368|04:16 2010/November/20|||||
bootcfg.exe>|12/294|81408|09:14 2009/July/14|||||

我想修改
ARP.EXE>|2/294|20992|09:14 2009/July/14|||||
这行的内容，我应该如何修改？

ARP.EXE>|2/294|20992|09:14 2009/July/14|||||
不一定是第二行，是会变化的。
我已经能够根据关键字找到
ARP.EXE>|2/294|20992|09:14 2009/July/14|||||这行，请问如何修改？？

Answer 1

有时问题不用提问两次，参见

http://zhidao.baidu.com/question/390437702.html?push=category

不明白可以追问！

追问

饿。。。。那个不小心点了选为满意答案了 。。。回答道这里吧

追答

不能再简单了，总得有一个读写的过程吧，中间的4行可以写成一行，只是为了容易阅读

Private Sub Form_Load()

Open "c:\123.txt" For Input As #1
m = Input(LOF(1), #1)
Close #1

a = InStr(1, m, "ARP.EXE") '关键词的开始
aa = InStr(a, m, vbCrLf) '关键词结尾
th_txt = "123123" '要替换的文本
m = Replace(m, Mid(m, a, aa - a), th_txt)

Open "c:\123.txt" For Output As #1
Print #1, m
Close #1

End Sub