比如
今天星期六
变成
今丨天丨星丨期丨六
在线等。
文字很长,所以要用批处理实现,第三方软件麻烦。
如何用批处理替换一个TXT文本里的文字达到这样的效果?
答案:3 悬赏:60 手机版
解决时间 2021-04-07 18:30
- 提问者网友:人生佛魔见
- 2021-04-06 21:29
最佳答案
- 五星知识达人网友:迟山
- 2021-04-06 22:49
用vbs代码吧,比批处理方便:
'═════代═══码═══开═══始═════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set fr=fso.opentextfile("123.txt",1)
set fw=fso.createtextfile("结果.txt",2)
do
line=fr.readline
data=""
if trim(line)<>"" then
for i=1 to len(line)-1
data=data&mid(line,i,1)&"|"
next
data=data&right(line,1)
end if
fw.writeline data
loop until fr.atendofstream
msgbo "处理完毕"
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════
说明:
假设你的源文件叫做“123.txt”,将上面的代码保存为扩展名为vbs的文件,放在与源文件同目录运行即可。
运行后你会得到一个叫做“结果.txt”的新文件,里面就是结果。
'═════代═══码═══开═══始═════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set fr=fso.opentextfile("123.txt",1)
set fw=fso.createtextfile("结果.txt",2)
do
line=fr.readline
data=""
if trim(line)<>"" then
for i=1 to len(line)-1
data=data&mid(line,i,1)&"|"
next
data=data&right(line,1)
end if
fw.writeline data
loop until fr.atendofstream
msgbo "处理完毕"
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════
说明:
假设你的源文件叫做“123.txt”,将上面的代码保存为扩展名为vbs的文件,放在与源文件同目录运行即可。
运行后你会得到一个叫做“结果.txt”的新文件,里面就是结果。
全部回答
- 1楼网友:大漠
- 2021-04-07 00:42
find "是" test.txt > test1.txt
or
type test.txt | find "是" > test1.txt
- 2楼网友:零点过十分
- 2021-04-06 23:39
@echo off
for /f "delims=" %%i in ('dir /s/b *.txt') do (
for /f "delims=" %%a in ('type "%%~fi"') do (
set "foo=%%a"
call,set foo=%%foo:1234=4311%%
call,echo/%%foo%%>>"%%~fi._"
)
move "%%~fi._" "%%~fi"
)
exit
找到文件里数字1234 修改成 4321 保存 这样就可以了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯