求个批量替换TXT中内容并且递加数字的批处理程序
工作需要批量改些东西,求个批处理程序,例如一TXT文档名字为test.txt内容为[User]uid=ABC01password=ERTfirst_name=QWElas...
工作需要批量改些东西,求个批处理程序,例如 一TXT文档名字为 test.txt
内容为
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
.....
循环几十个吧
我想替换第一个ABC01为ABC01 第二个ABC01替换为ABC02,第三个为ABC03 依次递加1 然后输出新的TXT文件为 test0.txt
我编程盲,希望能给出直接能用的批处理代码,刚注册没有多少分对不起了,谢谢好心人了。 展开
内容为
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
[User]
uid=ABC01
password=ERT
first_name=QWE
last_name=DFG
accessibility=0
language=zh_CN
.....
循环几十个吧
我想替换第一个ABC01为ABC01 第二个ABC01替换为ABC02,第三个为ABC03 依次递加1 然后输出新的TXT文件为 test0.txt
我编程盲,希望能给出直接能用的批处理代码,刚注册没有多少分对不起了,谢谢好心人了。 展开
1个回答
展开全部
代码如下:
这是vbs代码,批处理不方便,将这代码保存为vbs格式文件放在test.txt同目录下双击运行
'============代===码======开===始=======================
set fso=CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile("test.txt",1)
set fw=fso.createtextfile("test0.txt",2)
i=1
Do
if i<10 Then
k="0"&i
Else
k=i
end if
linedata=fr.readline
if left(linedata,4)="uid="Then
linedata="uid=ABC"&k
i=i+1
end if
fw.writeline(linedata)
Loop Until fr.atendofstream
'=============VBS团队======escortmnm====================
'Created By escortmnm From VBS团队,Welcome Join Us!
'http://zhidao.baidu.com/team/view/VBS%CD%C5%B6%D3#home-1
'============代===码======结===束=======================
这是vbs代码,批处理不方便,将这代码保存为vbs格式文件放在test.txt同目录下双击运行
'============代===码======开===始=======================
set fso=CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile("test.txt",1)
set fw=fso.createtextfile("test0.txt",2)
i=1
Do
if i<10 Then
k="0"&i
Else
k=i
end if
linedata=fr.readline
if left(linedata,4)="uid="Then
linedata="uid=ABC"&k
i=i+1
end if
fw.writeline(linedata)
Loop Until fr.atendofstream
'=============VBS团队======escortmnm====================
'Created By escortmnm From VBS团队,Welcome Join Us!
'http://zhidao.baidu.com/team/view/VBS%CD%C5%B6%D3#home-1
'============代===码======结===束=======================
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询