txt文档部分内容的替换 批处理程序怎么编?
4个回答
展开全部
用批处理实现比较空难,用vbs脚本比较方便(此脚本是邪恶八进制一位朋友写的)
把一下内容保存为一文本文件,然后命名为“替换.vbs ”
然后把你要替换的文本拖到次文件上按照提示来操作即可
'批量文件字符串替换器
'Created By 千寂孤城
'on error resume next
set arg=WScript.Arguments
if arg.count=0 then
msgbox "Usage:"&vbcrlf&vbcrlf&" 不要直接运行这个脚本,把需要进行字符串替换的一个或多个文件拖曳到这个脚本文件上来就可以了。",,"批量文件字符串替换器 By 千寂孤城"
wscript.quit
end if
do
content1=inputbox("请输入你要替换的字符串","批量文件字符串替换器")
if isempty(content1) then
respond=msgbox("EXIT?",1)
if respond=1 then
wscript.quit
end if
elseif content1<>"" then
exit do
end if
msgbox "你没有输入你要替换的字符串呀!",,"批量文件字符串替换器"
loop
do
content2=inputbox("想把"""&content1&"""替换成什么呀?","批量文件字符串替换器")
if isempty(content2) then
respond=msgbox("EXIT?",1)
if respond=1 then
wscript.quit
end if
else
exit do
end if
loop
set fso=createobject("scripting.filesystemobject")
for i=0 to arg.count-1
name=arg(i)
set file=fso.opentextfile(name,1)
if file.AtEndOfStream<>true then
content=file.readall
file.close
content=replace(content,content1,content2)
set file=fso.opentextfile(name,2)
file.write content
file.close
else
file.close
end if
next
msgbox "OK 替换结束!",,"批量文件字符串替换器"
把一下内容保存为一文本文件,然后命名为“替换.vbs ”
然后把你要替换的文本拖到次文件上按照提示来操作即可
'批量文件字符串替换器
'Created By 千寂孤城
'on error resume next
set arg=WScript.Arguments
if arg.count=0 then
msgbox "Usage:"&vbcrlf&vbcrlf&" 不要直接运行这个脚本,把需要进行字符串替换的一个或多个文件拖曳到这个脚本文件上来就可以了。",,"批量文件字符串替换器 By 千寂孤城"
wscript.quit
end if
do
content1=inputbox("请输入你要替换的字符串","批量文件字符串替换器")
if isempty(content1) then
respond=msgbox("EXIT?",1)
if respond=1 then
wscript.quit
end if
elseif content1<>"" then
exit do
end if
msgbox "你没有输入你要替换的字符串呀!",,"批量文件字符串替换器"
loop
do
content2=inputbox("想把"""&content1&"""替换成什么呀?","批量文件字符串替换器")
if isempty(content2) then
respond=msgbox("EXIT?",1)
if respond=1 then
wscript.quit
end if
else
exit do
end if
loop
set fso=createobject("scripting.filesystemobject")
for i=0 to arg.count-1
name=arg(i)
set file=fso.opentextfile(name,1)
if file.AtEndOfStream<>true then
content=file.readall
file.close
content=replace(content,content1,content2)
set file=fso.opentextfile(name,2)
file.write content
file.close
else
file.close
end if
next
msgbox "OK 替换结束!",,"批量文件字符串替换器"
展开全部
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (原文本.txt) do (
set var=%%i
set "var=!var:123456=11!"
echo !var! >> 新文本.txt
)
pause
将你需要替换的文本改名为原文本并和P处理放一起,运行P处理后生成新文本。
空行是无法保留的,因为P处理只能做这些了。
for /f "tokens=*" %%i in (原文本.txt) do (
set var=%%i
set "var=!var:123456=11!"
echo !var! >> 新文本.txt
)
pause
将你需要替换的文本改名为原文本并和P处理放一起,运行P处理后生成新文本。
空行是无法保留的,因为P处理只能做这些了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼主要实现的功能是否要替换内容的同时,保证该文本的整体摸板,例如空行,特殊字符等..
如若要求比较高的话,可以使用Change.exe第三方工具来实现,或者用批处理也可以实现,如若需要的话,留个话!
如若要求比较高的话,可以使用Change.exe第三方工具来实现,或者用批处理也可以实现,如若需要的话,留个话!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
能详细介绍点内容吗??
TXT替换~~~
你新建一个TXT 里面内容 打 11 TXT文件名改成 123456 文件的相同文件名
然后复制粘贴覆盖他不就得了???
或者你按ctrl+F 查找 123456 凡查到一个123456 就粘贴替换 11
这不就得了!!
更好的办法就是用word 里面貌似有这个特换的功能
TXT替换~~~
你新建一个TXT 里面内容 打 11 TXT文件名改成 123456 文件的相同文件名
然后复制粘贴覆盖他不就得了???
或者你按ctrl+F 查找 123456 凡查到一个123456 就粘贴替换 11
这不就得了!!
更好的办法就是用word 里面貌似有这个特换的功能
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询