标题: [求助]增加换行符的问题 [打印本页]
作者: hgx126 时间: 2010-3-25 23:12 标题: [求助]增加换行符的问题
有多个文本文件，内容类似，其中一个a.txt如下：
1.abc.de
2、efg;.hijk
3.lmn;opq
4rst.uvw
xyz1.23
ghilk45、234
我现在要将以上文本中以数字开头，紧接着是逗号或顿号的段落前增加一个换行符，如果数字后跟着的是逗号则换成顿号。如将上文转换后的结果如下：2、efg;.hijk
3.lmn;opq
4rst.uvw
xyz1.23
ghilk45、234
1、abc.de
2、efg;.hijk
3、lmn;opq
4rst.uvw
xyz1.23
ghilk45、234
我写了如下P处理，2、efg;.hijk
3、lmn;opq
4rst.uvw
xyz1.23
ghilk45、234
setlocal enabledelayedexpansion
for /f "tokens=1,* delims=、." %%a in (a.txt) do (
set a=%%a
set b=%%b
echo !a!|findstr "^[0-9]*$">nul && echo.>>b.txt
echo !a!、!b!>>b.txt
)
可是它将4rst.uvw和xyz1.23中的逗号也替换成了顿号。请大家完善一下，如何避免这种情况。for /f "tokens=1,* delims=、." %%a in (a.txt) do (
set a=%%a
set b=%%b
echo !a!|findstr "^[0-9]*$">nul && echo.>>b.txt
echo !a!、!b!>>b.txt
)
作者: Hanyeguxing 时间: 2010-3-25 23:51
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (set i=%%i&set j=!i:~1,1!&set j=!j:.=、!
echo %%i|findstr "^[0-9].*">nul
if !ERRORLEVEL!==0 (if "!j!"=="、" (echo.&echo !i:~0,1!!j!!i:~2!) else echo %%i) else echo %%i)>>b.txt
[ Last edited by Hanyeguxing on 2010-3-26 at 00:31 ]for /f "delims=" %%i in (a.txt) do (set i=%%i&set j=!i:~1,1!&set j=!j:.=、!
echo %%i|findstr "^[0-9].*">nul
if !ERRORLEVEL!==0 (if "!j!"=="、" (echo.&echo !i:~0,1!!j!!i:~2!) else echo %%i) else echo %%i)>>b.txt
作者: Hanyeguxing 时间: 2010-3-25 23:57
| Quote: | |
|
因为 "delims=、." 是全文本内进行分隔的。
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
set i=%%i
set j=!i:~1,1!
set j=!j:.=、!
echo !i:~0,1!|findstr "[0-9]">nul
if !ERRORLEVEL!==0 (
if "!j!"=="、" (
echo.
echo !i:~0,1!!j!!i:~2!
) else echo %%i
) else echo %%i
)>>b.txt
for /f "delims=" %%i in (a.txt) do i解析文本，不以任何字符为分隔符号for /f "delims=" %%i in (a.txt) do (
set i=%%i
set j=!i:~1,1!
set j=!j:.=、!
echo !i:~0,1!|findstr "[0-9]">nul
if !ERRORLEVEL!==0 (
if "!j!"=="、" (
echo.
echo !i:~0,1!!j!!i:~2!
) else echo %%i
) else echo %%i
)>>b.txt
set i=%%将每行赋值给变量i
set j=!i:~1,1!和set j=!j:.=、!获取第二个字符，将.和、都替换成、
echo !i:~0,1!|findstr "[0-9]">nul检查行首第一个字符是否为数字，是则返回0，不是则返回1
if !ERRORLEVEL!==0 ...... else echo %%i检查返回代码，是则...否则原样输出
if "!j!"=="、" ...... else echo %%i如果第二个字符是、则...否则原样输出
echo.&echo !i:~0,1!!j!!i:~2!指定输出效果
[ Last edited by Hanyeguxing on 2010-3-26 at 00:58 ]
作者: hgx126 时间: 2010-3-29 12:05
感谢兄弟们。可是当数字大于9时，就不能增加换行符呢？还请你们帮忙哈。
作者: qinchun36 时间: 2010-3-29 13:27
那就换种脚本吧：
var fso = WScript.CreateObject("Scripting.FileSystemObject");
var newText = "", temp;
var f = fso.OpenTextFile("a.txt", 1);
while(!f.AtEndOfStream) {
temp = f.ReadLine();
if(/^\d+[\.|、].*$/.test(temp)) {
temp = temp.replace(/^(\d+)[\.|、](.*)$/,"$1、$2");
newText += "\r\n";
}
newText += "\r\n" + temp;
}
fso.CreateTextFile("b.txt", true, false).Write(newText);
var newText = "", temp;
var f = fso.OpenTextFile("a.txt", 1);
while(!f.AtEndOfStream) {
temp = f.ReadLine();
if(/^\d+[\.|、].*$/.test(temp)) {
temp = temp.replace(/^(\d+)[\.|、](.*)$/,"$1、$2");
newText += "\r\n";
}
newText += "\r\n" + temp;
}
fso.CreateTextFile("b.txt", true, false).Write(newText);
作者: Hanyeguxing 时间: 2010-3-29 15:45
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do call :x "%%i"
goto :eof
:x
set "i=%~1"&set n=0
:y
echo !i:~%n%,1!|findstr "[0-9]">nul
if !ERRORLEVEL!==0 set/a n+=1&goto y
set/a m=%n%+1
(if not %n%==0 (set "j=!i:~%n%,1!"&set "j=!j:.=、!"&if "!j!"=="、" (echo.&echo !i:~0,%n%!、!i:~%m%!) else echo.!i!) else echo.!i!)>>b.txt
[ Last edited by Hanyeguxing on 2010-3-29 at 17:42 ]for /f "delims=" %%i in (a.txt) do call :x "%%i"
goto :eof
:x
set "i=%~1"&set n=0
:y
echo !i:~%n%,1!|findstr "[0-9]">nul
if !ERRORLEVEL!==0 set/a n+=1&goto y
set/a m=%n%+1
(if not %n%==0 (set "j=!i:~%n%,1!"&set "j=!j:.=、!"&if "!j!"=="、" (echo.&echo !i:~0,%n%!、!i:~%m%!) else echo.!i!) else echo.!i!)>>b.txt
作者: hgx126 时间: 2010-3-29 16:26
6楼的怎么把大于4以后的段落全部去掉了呢？
作者: Hanyeguxing 时间: 2010-3-29 16:37
| Quote: | |
|
它本身是不会把4以后的段落去掉的，你看哪部分代码有如此功能呢？
但需要说明的是，3楼和6楼的代码都没有对敏感字符的问题进行处理。
以3楼的代码为例：
例如文本的某行内容为：
123&echo 456
处理后将显示
123
456
再比如，文本的某行内容为：
123&exit
那么处理到此行后，批处理将直接终止并退出。
虽然6楼的代码修改后能够解决这个问题，但如果某行文本的内容是：
%i%
或是
!j!
那么
在echo这内容时，如果批处理可以替换该变量，则直接替换，否则显示空。。。
所以，如果文本中含有敏感字符，最好用5楼的vbs进行处理
[ Last edited by Hanyeguxing on 2010-3-29 at 17:48 ]