中国DOS联盟

最近弄了个板块分类，A文件夹下有几十个下级文件夹，每个下级文件夹中都有很多文本(个数不定，文件名不同)， 下级文件夹与文本都是中文名；某一下级文件夹中文本内容如下： 机电设备.TXT 000536 闽闽东 000617 石油济柴 000676 思达高科 000682 东方电子 000806 银河科技 002028 思源电气 002074 东源电器 002090 金智科技 002123 荣信股份 002169 智光电气 600192 长城电工 600268 国电南自 600343 航天动力 600382 广东明珠 600388 龙净环保 手动替换太麻烦，想用批处理解决，特来求助。 替换后内容如下： 机电设备.TXT SZ000536 SZ000617 SZ000676 SZ000682 SZ000806 SZ002028 SZ002074 SZ002090 SZ002123 SZ002169 SH600192 SH600268 SH600343 SH600382 SH600388 把替换后的文本放入B文件夹下的对应文件夹中， B文件夹下的下级文件夹同A文件夹(一一对应)，用来存放替换后的文本。 谁会写批处理文件。 [ Last edited by top on 2010-2-11 at 12:27 ]

请高手帮忙写个批处理文件。

测试是否可用。 @echo off setlocal enabledelayedexpansion :: 设定A、B目录路径，后面不要有\ set pathA=c:\a set pathB=c:\b :: 计算A目录长度用于截取后面的路径 for /l %%a in (1,1,200) do (if "!pathA:~%%a,1!"=="" (set A=%%a&goto start)) :start :: 遍历A目录下子目录，如果B目录无此子目录则创建，替换所有txt文档 for /f "tokens=*" %%a in ('dir /b /s %pathA%\*.txt') do ( set dest=%%a set dest=%pathB%!dest:~%A%! for /f "tokens=*" %%b in ("!dest!") do (if not exist %%~dpb md %%~dpb) for /f "tokens=1" %%c in (%%a) do (echo SZ%%c 1>>%!dest!) )

Originally posted by tongzj at 2010-2-10 06:09 PM: 测试是否可用。 @echo off setlocal enabledelayedexpansion :: 设定A、B目录路径，后面不要有\ set pathA=c:\a set pathB=c:\b :: 计算A目录长度用于截取后面的路径 ...

谢谢 tongzj 基本可行，但替换后的文本，其代码 6 当头的前面应该加 SH ，而不是 SZ 。 我是新手，不知道如何将附件传上来。 tongzj A.文件夹 已放入你邮箱中 请查收 [ Last edited by top on 2010-2-10 at 20:45 ]

[ Last edited by asnahu on 2010-2-10 at 23:51 ]

Originally posted by asnahu at 2010-2-10 11:48 PM:

sed -i "s/\s.*//g; s/^0/SZ&/g; s/^6/SH&/g" *.txt

[ Last edited by asnahu on 2010-2-10 at 23:51 ]

谢谢你的帮助 但，运行后没有反映，可能是没有 SED 的原因 SED 以下载，但不知道因放在那里，如何使用 刚开始学批处理，还请都指点

已回复邮件，因为目录中带有空格，所以做了一些修改。 @echo off setlocal enabledelayedexpansion :: 设定A、B目录路径，后面不要有\ set pathA=c:\a set pathB=c:\b :: 计算A目录长度用于截取后面的路径 for /l %%a in (1,1,200) do ( if "!pathA:~%%a,1!"=="" ( set A=%%a goto start ) ) :start :: 遍历A目录下子目录，如果B目录无此子目录则创建，替换所有txt文档 for /f "tokens=* delims=&" %%a in ('dir /b /s %pathA%\*.txt') do ( echo %%a set dest=%%a set dest=%pathB%!dest:~%A%! if exist "!dest!" del /q /f "!dest!" for /f "tokens=* delims=&" %%b in ("!dest!") do (if not exist "%%~dpb" md "%%~dpb") for /f "tokens=1" %%c in ('type "%%a"') do ( set code=%%c if "!code:~0,1!"=="6" ( echo SH%%c 1>>!dest! ) else ( echo SZ%%c 1>>!dest! ) ) )

谢谢 tongzj 的帮助，『第 7 楼』的回复已通过。

另有一问题 能否将替换后的文本文件全部转换成 .SBK 的格式，如行的话，把所有 .SBK 文件放在 B 文件夹下，.sbk 样本在你邮箱中。

简单!简单!再简单!

terse 请看邮箱 (采掘业.sbk)

sed下载放到c:\windows\system32\下

谢谢 asnahu