批处理如何合并txt文本里以空行分割的每一段文字？

crx25 · 发表于 2011-11-22 15:44:06

本帖最后由 pcl_test 于 2016-9-24 13:29 编辑

例如1.txt上有如下文字：
花厅

我来看过
你，
可是你
不在家里，回来联系我！！
小明。

人物

要求结果为如下输出至2.txt
花厅

我来看过你，可是你不在家里，回来联系我！！小明。

人物

请高手赐教，谢谢！！

545810831 · 发表于 2011-11-22 16:22:49

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%i in ('findstr /n ".*" 1.txt') do (set _%%i=%%j
if "!_%%i!"=="" set _%%i=$
set str=!str!!_%%i!
set str=!str: =!
)
set str=!str:$= !
for %%i in (!str!) do (
echo %%i
echo.
)
pause

复制代码

crx25 · 发表于 2011-11-22 16:50:32

545810831 发表于 2011-11-22 16:22

师傅，你这代码没有输出呢？

545810831 · 发表于 2011-11-22 18:01:52

加上重定向符就可以了

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%i in ('findstr /n ".*" 1.txt') do (set _%%i=%%j
if "!_%%i!"=="" set _%%i=$
set str=!str!!_%%i!
set str=!str: =!
)
set str=!str:$= !
for %%i in (!str!) do (
echo %%i
echo.
)>>2.txt
pause

复制代码

awk · 发表于 2011-11-22 22:05:41

sed ":a;$!N;s/\n$..*$/\1/;ta;P;D" a.txt >b.txt

复制代码

powerbat · 发表于 2011-11-23 09:34:41

@set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b
file = "1.txt";
out = "2.txt";
fso = new ActiveXObject("Scripting.FileSystemObject");
s = fso.OpenTextFile(file).ReadAll();
s = s.replace(/(.)\r\n(?!\r\n)/g, '$1');
fso.OpenTextFile(out, 2, true).writeLine(s);

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 批处理如何合并txt文本里以空行分割的每一段文字？

评分