VB 修改 TXT中指定的某一行
比如有一个txt中有如下内容:AdapterTroubleshooter.exe>|1/294|38912|09:142009/July/14|||||ARP.EXE>|...
比如有一个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|||||这行,请问如何修改?? 展开
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|||||这行,请问如何修改?? 展开
展开全部
追问
饿。。。。那个不小心点了选为满意答案了 。。。回答道这里吧
追答
不能再简单了,总得有一个读写的过程吧,中间的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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询