
CODE: [Copy to clipboard]On Error Resume Next
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt",1)
if err.number<>0 then
err.clear
msgbox "对不起,没有找到a.txt文件!",4096,"错误"
wscript.quit
end if
do while file.AtEndOfStream <> True
m=file.readline
if left(m,7)="//@函数名称" then
set cfile=fso.createtextfile(trim(mid(m,9)) & ".txt",true)
end if
cfile.writeline m
loop
file.close
msgbox "文件分割完成!",4096,"提示"
CODE: [Copy to clipboard]格式略有变化,主要是空格。@echo off&setlocal enabledelayedexpansion
for /f "tokens=1*" %%i in (test.txt) do (
set var=%%i
set str=%%j
if "!var:~3,4!"=="函数名称" (set lxm=%%j&>>!lxm!.txt echo !var! !str!
) else (
>>!lxm!.txt echo !var! !str!
)
)
CODE: [Copy to clipboard]@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims=@" %%a in (test.txt) do (
if "%%a" equ "//" (
call:P "%%b"
) else (
>>!a! echo %%a%%b
)
)
goto:eof
:P
for /f "tokens=1* delims=: " %%x in (%1) do set a=%%y.txt&>>!a! echo %%a%%b
goto:eof
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |