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

Rank: 1

帖子
7 
积分
31 
技术
0  
捐助
0  
注册时间
2011-10-2 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-11-26 19:48 | 只看该作者

[文本处理] 批处理如何实现在文本行与行之间插入一行空行

本帖最后由 pcl_test 于 2016-10-14 12:55 编辑

感谢楼下的代码，现把自己的代码改了！
  1. @echo off

  2. title 添加空行2

  3. :start

  4. cls

  5. set "pathly=exit"

  6. echo,两行间隔一个空行,原来所以空行忽略。

  7. echo,拖文本到窗口

  8. echo,退出:exit

  9. set /p pathly=

  10. call :qyh %pathly%

  11. if "%pathly%"=="exit" exit

  12. cd.>"%pathmb%临时文件.txt"

  13. for /f "usebackq tokens=* delims=" %%i in ("%pathly%") do (

  14. echo,%%i>>"%pathmb%临时文件.txt"

  15. echo,>>"%pathmb%临时文件.txt"

  16. )

  17. del /q /s "%pathly%"

  18. ren "%pathmb%临时文件.txt" "%name%"

  19. goto start

  20. :qyh

  21. set "pathly=%~1"

  22. set "pathmb=%~dp1"

  23. set "name=%~nx1"

  24. goto :eof
复制代码
收藏 分享

545810831

Rank: 2

帖子
91 
积分
191 
技术
25  
捐助
0  
注册时间
2011-7-30 
2楼
发表于 2011-11-26 20:31 | 只看该作者 
  1. @echo off&setlocal enabledelayedexpansion

  2. for /f "delims=" %%i in (a.txt) do set str=%%i

  3. for /f "tokens=1,2 delims=:" %%i in ('findstr /n ".*" a.txt') do (

  4. echo.%%j 

  5. if !str! equ %%j exit

  6. )>>b.txt
复制代码

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
3楼
发表于 2016-10-14 13:09 | 只看该作者 
  1. rem win7以上系统运行

  2. powershell -c "([IO.File]::ReadAllText('测试.txt', [Text.Encoding]::Default) -split '[\r\n]+') -join \"`r`n`r`n\"">"结果.txt"

  3. pause
复制代码
  1. //&cls&cscript -nologo -e:jscript "%~f0"<"测试.txt">"结果.txt"&pause&exit

  2. WSH.echo(WSH.StdIn.ReadAll().split(/[\r\n]+/).join('\r\n\r\n'))
复制代码

TOP

返回列表