[文本处理] [已解决]批处理如何实现指定行数内容替换？

逆流而上的熊猫

e盘a.txt中指定的某一行，比如名称=1,2,3  b文本在d盘，b.txt中也有 名称=4,5,6  怎么把a的名称后面的内容123 替换到b文本 的456去呢 求大神！！要原来文本所在的路劲不变，不生成新的txt文本，在b文本里面直接改。并且在系统启动的时候启动项里面 可以自动运行的 谢谢

逆流而上的熊猫

大神都去哪里啦。。。。

pcl_test

VBS

Set fso = CreateObject("Scripting.FileSystemObject")
Function Checkstr(file)
Set f = fso.OpenTextFile(file, 1)
word="名称"
Set re = New RegExp
re.Pattern = word&"=.+"
re.IgnoreCase = True
re.Global = True
Set matches = re.Execute(f.ReadAll)
Checkstr=""
For Each match in matches
Checkstr=Checkstr&match
Next
set re = nothing
f.Close
End Function
str1 = Checkstr("E:\a.txt")
str2 = Checkstr("D:\b.txt")
Set f1 = fso.OpenTextFile("D:\b.txt", 1)
str = Replace(f1.ReadAll,str2,str1)
f1.Close
Set f2 = fso.OpenTextFile("D:\b.txt", 2)
f2.WriteLine str
f2.Close
复制代码

pcl_test

如果问题已解决，请在标题最前面标上[已解决]
http://www.bathome.net/thread-3473-1-1.html

逆流而上的熊猫

回复 4# pcl_test


    谢谢大牛！很好用！