标题: [文本处理] [已解决]批处理如何实现指定行数内容替换? [打印本页]
作者: 逆流而上的熊猫 时间: 2015-5-21 17:05 标题: [已解决]批处理如何实现指定行数内容替换?
本帖最后由 逆流而上的熊猫 于 2015-5-22 01:43 编辑
e盘a.txt中指定的某一行,比如名称=1,2,3 b文本在d盘,b.txt中也有 名称=4,5,6 怎么把a的名称后面的内容123 替换到b文本 的456去呢 求大神!!要原来文本所在的路劲不变,不生成新的txt文本,在b文本里面直接改。并且在系统启动的时候启动项里面 可以自动运行的 谢谢
作者: 逆流而上的熊猫 时间: 2015-5-21 20:37
大神都去哪里啦。。。。
作者: pcl_test 时间: 2015-5-21 21:09
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 时间: 2015-5-21 21:48
如果问题已解决,请在标题最前面标上[已解决]
http://www.bathome.net/thread-3473-1-1.html
作者: 逆流而上的熊猫 时间: 2015-5-22 01:42
回复 4# pcl_test
谢谢大牛!很好用!
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |