
CODE: [Copy to clipboard]@echo off
setlocal enabledelayedexpansion
for /f "tokens=1-7" %%a in (d:\1.txt) do (
set var="%%a|%%b|%%c %%d|%%e %%f|%%g"
set var=!var:~1,-1!
>>2.txt echo !var!
)
echo 2.txt done
pause >nul
| Quote: | |
|
CODE: [Copy to clipboard]@echo off
setlocal EnableDelayedExpansion
for /f "delims=" %%i in (1.txt) do (
set N=%%i
set N=!N:测量=^|测量^|!
set N=!N:小时=小时^|!
set N=!N:简约=^|简约!
set N=!N: =!
set N=!N:^| =^|!
set N=!N: ^|=^|!
echo !N!)
pause
CODE: [Copy to clipboard]@echo off
for /f "delims=" %%a in (d:\1.txt) do (
setlocal enabledelayedexpansion
set "str=%%a"
set "str=!str: = !"
set "str=!str: =|!"
echo !str!
echo !str!>>d:\2.txt
endlocal
)
pause
notepad.exe d:\2.txt
goto :eof
| Quote: | |
|
CODE: [Copy to clipboard]测试结果:@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (1.txt) do (
call :test %%i
echo "!str!")
pause>nul
:test
if not "%1"=="" (
set "str=!str!%1|"
shift
goto :test)
goto :eof
CODE: [Copy to clipboard]执行之后:0 1 2 3 4 5 6
7 8 9 10 11 12 12
CODE: [Copy to clipboard]"0|1|2|3|4|5|6|"
"0|1|2|3|4|5|6|7|8|9|10|11|12|12|"
| Quote: | |
|
CODE: [Copy to clipboard]on error resume next
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("1.txt",1)
do while file.AtEndOfStream <> True
a=file.readline
do until instr(a," ")=0
a=replace (a," "," ")
loop
b=b & replace(a," ","|")& vbcrlf
loop
file.close
set file=fso.createtextfile("222.txt")
file.write b
file.close
msgbox "文件处理完毕,请查看222.txt文件",48+4096,"操作成功"
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |