中国DOS联盟论坛 - Powered by Discuz! Board

标题: [求助]增加换行符的问题 [打印本页]

作者: hgx126 时间: 2010-3-25 23:12 标题: [求助]增加换行符的问题

有多个文本文件，内容类似，其中一个a.txt如下：

1.abc.de
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处理，

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中的逗号也替换成了顿号。请大家完善一下，如何避免这种情况。

作者: 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 ]

作者: Hanyeguxing 时间: 2010-3-25 23:57

Originally posted by hgx126 at 2010-3-25 23:12: 可是它将4rst.uvw和xyz1.23中的逗号也替换成了顿号。请大家完善一下，如何避免这种情况。

因为 "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解析文本，不以任何字符为分隔符号 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);

作者: 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 ]

作者: hgx126 时间: 2010-3-29 16:26

6楼的怎么把大于4以后的段落全部去掉了呢？

作者: Hanyeguxing 时间: 2010-3-29 16:37

Originally posted by hgx126 at 2010-3-29 16:26: 6楼的怎么把大于4以后的段落全部去掉了呢？

它本身是不会把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 ]