批处理之家 - Powered by Discuz! Board

标题: [文本处理] [已解决]另一个问题：句号为行的排版，怎样批量切换到上一行行尾处？ [打印本页]

作者: 每天几分 时间: 2012-9-21 14:04 标题: [已解决]另一个问题：句号为行的排版，怎样批量切换到上一行行尾处？

本帖最后由每天几分于 2012-9-21 22:08 编辑

示例：

登高望四海
。
天地何漫漫
。
霜被群物秋
。
风飘大荒寒
。
荣华东流水
。
复制代码

作者: apang 时间: 2012-9-21 19:38

保存为bat运行，与源文件a.txt放在一起，试试吧

@echo off
more +4 "%~0">$.vbs
cscript /NoLogo $.vbs
del $.vbs&goto :eof
Set FSO = CreateObject("Scripting.FileSysTemObject")
Set File = FSO.OpenTextFile("a.txt",1)
strOut = Replace(File.ReadAll,vbCrLf & "。","。")
FSO.CreateTextFile("b.txt",true).Write strOut
复制代码

作者: apang 时间: 2012-9-21 21:09

回复 3# 每天几分

我的Win7下可以，不知道为啥。
再试试：

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
  set/a n+=1
  set "_!n!=%%a"
  if "%%a"=="。" (
    set/a n-=1
    for %%b in (_!n!) do set %%b=!%%b!%%a
  )
) 
(for /l %%a in (1 1 !n!) do echo,!_%%a!)>b.txt
复制代码

作者: 每天几分 时间: 2012-9-21 22:08

嗯，可以了！谢谢！

欢迎光临批处理之家 (http://www.bathome.net/)