[文本处理] 【练习-049】批处理按要求对齐整理文本内容

batman

＆＆有文本a.txt内容如下：

3、接下来，你试着回答我一个问题批处理中最常用最复杂也是最强大的命令是哪个命令？

　　　　相信经过以上两次的训练，你会脱口而出“for”。是的，for命令的确是批处理中最重要的命令，学好它的意义是不容置疑的。管理员就此命令特为大家精心撰写了for命令从入门到精通一贴，你所要做的就是前前后后将此贴通遍，将其搞懂弄明白，并结合大量的for命令练习，以熟练掌握for命令的各种应用。

　　　　　　　　　　　　　　　　　　　　至此，我可以说你已经脱菜了。但是不是掌握了for命令就可以“天下无敌，无坚不摧了呢”？非也，接下来，你还要继续提升自己。
复制代码

　　要求通过批处理将其按60个左右的字节（一个英文字符占1字节，一个汉字字符占2字节）一行进行重整理（如遇分段可以不足60），同时对于空行要按原样输出，并且在每段(出现空行才视为分段)的开头空出两个汉字空格以对齐，生成的文本如下：

　　
　　3、接下来，你试着回答我一个问题批处理中最常用最复杂也是最
强大的命令是哪个命令？

　　相信经过以上两次的训练，你会脱口而出“for”。是的，for命令的
确是批处理中最重要的命令，学好它的意义是不容置疑的。管理员就此
命令特为大家精心撰写了for命令从入门到精通一贴，你所要做的就是
前前后后将此贴通遍，将其搞懂弄明白，并结合大量的for命令练习，以
熟练掌握for命令的各种应用。

　　至此，我可以说你已经脱菜了。但是不是掌握了for命令就可以“
天下无敌，无坚不摧了呢”？非也，接下来，你还要继续提升自己。
复制代码

　　本题满分15分，先不考虑特殊字符但请注意代码通用性，视情况加分。

[ 本帖最后由 batman 于 2009-8-18 21:02 编辑 ]

zqz0012005

@echo off
del "%temp%\~line*.tmp" >nul 2>nul

if "%~1" neq "" goto LTrimInit
for /f "eol= tokens=* delims=　 " %%a in ('"%~f0" LTrimInit') do (
    if "%%a"=="" (
        for %%i in ("%temp%\~line.tmp") do (
            for /f "usebackq delims=" %%A in (%%i) do if %%~zi gtr 60 (
                set var=%%A
                set size=%%~zi
                call :split
            ) else (del "%temp%\~line.tmp" & echo=%%A)
        )
        echo;
    ) else (
        if not exist "%temp%\~line.tmp" (set /p="　　%%a"<nul>>"%temp%\~line.tmp"
        ) else set /p= %%a<nul>>"%temp%\~line.tmp"
    )
)
rem 最后一段后面没有空行的情况
if exist "%temp%\~line*.tmp" (
    for %%i in ("%temp%\~line.tmp") do (
        if %%~zi gtr 60 (
            set size=%%~zi
            for /f "usebackq delims=" %%A in (%%i) do set var=%%A
            call :split
        ) else echo=　　%%a
    )
)

pause&exit/b

:LTrimInit
set "tab=        "
for /f "delims=" %%a in ('findstr /n .* a.bat') do (
    set var=%%a
    setlocal enableDelayedExpansion
    set var=!var:%tab%= !
    set var=!var:*:= !
    echo=!var!
    endlocal
)
goto :eof

:split
set offset=0
setlocal enableDelayedExpansion
fsutil file createnew "%temp%\~line2.tmp" !size! >nul
for /f "tokens=2 delims=: " %%a in ('fc /b "%temp%\~line.tmp" "%temp%\~line2.tmp" ^| more +1') do (
    set /a n+=1, n%%=60
    if 0x%%a geq 128 (set /a byte+=1) else set /a byte+=2
    if !n!==0 (
        if 0x%%a geq 128 (
            if 0x!prev! lss 128 (set /a "len=(byte-1)>>1", byte=1, n=1) else set /a "len=byte>>1", byte=0
        ) else (
           set /a "len=byte>>1", byte=0
        )
        for /f "tokens=1,2" %%i in ("!offset! !len!") do echo=!var:~%%i,%%j!
        set /a offset+=len
    )
    set prev=%%a
)
if %n% neq 0 echo=!var:~%offset%!
del "%temp%\~line*.tmp"
goto :eof
复制代码

针对题目新要求做了改动，还需要完善。

[ 本帖最后由 zqz0012005 于 2009-8-18 22:50 编辑 ]

PakTC

支持特殊字符的 用了fsutil

@echo off
err>result.x 2>nul
set /a x=0
for /f "delims= eol=#" %%a in (text.txt) do (
   set /a x+=1
   set /a seta=0,setb=80
   echo,    %%a>x.x
   call :func
)
start result.x
pause
exit

:func
   echo,Sentence%x%
   type x.x>temp.x
   fsutil file setzerodata offset=0 length=%seta% temp.x     >nul
   fsutil file setzerodata offset=%setb% length=10000 temp.x >nul
   (for /f "delims= eol=#" %%c in ('more temp.x') do (echo,%%c>temp.x))||goto :eof
   for /f "tokens=3" %%a in ('dir temp.x /-c ^|find "个文件"') do (set num=%%a)
   set /a seta=seta+num-2,setb=seta+80 &type temp.x>>result.x &goto :func
goto :eof
复制代码

处理的文本名称为 text.txt 下面是增加了字符串  "!!%%! !test!  的示例

3、接下来，你试着回答我一个问题批处理中最常用最复杂也是最强大的命令是哪个命令？

　　　　相信经过以上两次的训练，你会脱口而出“for”。是的，for命令的确是批处理中最重要的命令，学好它的意义是不容置疑的。管理员就此命令特为大家精心撰写了for命令从入门到精通一贴，你所要做的就是前前后后将此贴通遍，将其搞懂弄明白，并结合大量的for命令练习，以熟练掌握for命令的各种应用。

　　　　　　　　　　　　　　　　　　　　至此，我可以说你已经脱菜了。但是不是掌握了for命令就可以“天下无敌，无坚不摧了呢”？非也，接下来，你还要继续提升自己。"!!%%! !test!

结果

    3、接下来，你试着回答我一个问题批处理中最常用最复杂也是最强大的命令是哪个命
令？
    　　　　相信经过以上两次的训练，你会脱口而出“for”。是的，for命令的确是批处
理中最重要的命令，学好它的意义是不容置疑的。管理员就此命令特为大家精心撰写了for
命令从入门到精通一贴，你所要做的就是前前后后将此贴通遍，将其搞懂弄明白，并结合大
量的for命令练习，以熟练掌握for命令的各种应用。
    　　　　　　　　　　　　　　　　　　　　至此，我可以说你已经脱菜了。但是不是
掌握了for命令就可以“天下无敌，无坚不摧了呢”？非也，接下来，你还要继续提升自己
。"!!%%! !test!

[ 本帖最后由 PakTC 于 2009-8-18 16:38 编辑 ]

523066680

先重定向30个字符~ 然后再循环，但感觉效率不是高，没有继续

@echo off
setlocal enabledelayedexpansion
err>result.x 2>nul
for /f "tokens=*" %%a in (text.txt) do (
set a=%%a
call :next
)
pause
exit


:next
set /p x=%a:~0,30%>temp.x<nul
set a=%a:~30%
   :innext
    for /f "tokens=3" %%a in ('dir temp.x /-c ^|find "个文件"') do (set num=%%a)
    if %num% lss 60 (if not "%a%"=="" (
    set /p x=%a:~0,1%>>temp.x<nul
    set a=!a:~1!
    goto :innext
    ))
type temp.x>>result.x
echo,>>result.x
if not "%a%"=="" (goto :next)
goto :eof
复制代码

[ 本帖最后由 523066680 于 2009-8-16 22:08 编辑 ]

zqz0012005

临到考虑特殊字符的时候了。
使用了临时文件，且鉴于tab制表符的特殊性，将其替换成了一个空格。

@echo off

if "%~1" neq "" goto LTrimInit
for /f "eol= tokens=* delims=　 " %%a in ('"%~f0" LTrimInit') do (
    if "%%a"=="" (echo;) else (
        set "var=　　%%a"
        set /p="　　%%a"<nul>"%temp%\~line.tmp"
        for %%i in ("%temp%\~line.tmp") do (
            if %%~zi gtr 60 (set size=%%~zi&call :split) else echo=　　%%a
        )
    )
    del "%temp%\~line*.tmp" >nul 2>nul
)
pause&exit/b

:LTrimInit
set "tab=	"
for /f "delims=" %%a in ('findstr /n .* a.txt') do (
    set var=%%a
    setlocal enableDelayedExpansion
    set var=!var:%tab%= !
    set var=!var:*:= !
    echo=!var!
    endlocal
)
goto :eof

:split
set offset=0
setlocal enableDelayedExpansion
fsutil file createnew "%temp%\~line2.tmp" !size! >nul
for /f "tokens=2 delims=: " %%a in ('fc /b "%temp%\~line.tmp" "%temp%\~line2.tmp" ^| more +1') do (
    set /a n+=1, n%%=60
    if 0x%%a geq 128 (set /a byte+=1) else set /a byte+=2
    if !n!==0 (
        if 0x%%a geq 128 (
            if 0x!prev! lss 128 (set /a "len=(byte-1)>>1", byte=1, n=1) else set /a "len=byte>>1", byte=0
        ) else (
           set /a "len=byte>>1", byte=0
        )
        for /f "tokens=1,2" %%i in ("!offset! !len!") do echo=!var:~%%i,%%j!
        set /a offset+=len
    )
    set prev=%%a
)
if %n% neq 0 echo=!var:~%offset%!
goto :eof
复制代码

netbenton

已经解决21楼说的问题

 
@echo off&setlocal enabledelayedexpansion
set "tab= "
for /f "tokens=1* delims=:" %%a in ('findstr /o .* a.txt^&echo;') do (rem 加个echo;最后补一行空行
 if "%%b" neq "" (set "str=!str!%%b") else (if defined str (rem 遇到空行并且段落不为空才分析
         for /f "tokens=* delims=　%tab% " %%c in ("!str!") do (set str=%%c)
   set/a a=8180,c=0&for /l %%a in (1,1,14) do (
       set/a "b=(a-c)/2+c"&for %%b in (!b!) do if "!str:~%%b,1!" equ "" (set/a a=b) else (set/a c=b)
   )&rem 此段字符长度计算用到 随风 的折半法
   set n=4
   set "ec=    "
   for /l %%a in (0,1,!a!) do (set "one=!str:~%%a,1!"&rem 根所段落长度来逐字判断
       set ec=!ec!!one!
       if "!one!" geq "z" (set /a n+=2) else (set /a n+=1)
       if !n! geq 60 echo;!ec!&set ec=&set n=0
   )
   if defined ec echo;!ec!&rem 根据最后一节是否为空，在段落间加入空行，
   echo;&set str=
 ))
)
pause
复制代码

[ 本帖最后由 netbenton 于 2009-8-14 08:03 编辑 ]

batman

代码还是存在一点问题，如出下以下文本时，代码会出错：

        古人日：读书有三到，眼到、口到、心到。而我们
学习批处理则讲究四多：多看、多问、多想、
多练。那么这四多又分别是什么意思呢？

    所谓多看就是多看看学习资料如教程，多看看别人写好的代码。。。
复制代码

上面的三行处理后应该是一句，而经20楼的代码处理后就成了三句，当然在现实中一般不会有这样的文字书写形式出现。

523066680

帮楼上的顶起来~

netbenton

一个for内解决问题，

 
@echo off&setlocal enabledelayedexpansion
set "tab=        "
for /f "tokens=1* delims=:" %%a in ('findstr /o .* a.txt') do (
        if "%%b" equ "" (echo;) else (
                for /f "tokens=* delims=　%tab% " %%c in ("%%b") do (set str=%%c)

                        set/a a=8180,c=0&for /l %%a in (1,1,14) do (
                            set/a "b=(a-c)/2+c"&for %%b in (!b!) do if "!str:~%%b,1!" equ "" (set/a a=b) else (set/a c=b)
                        )&rem 此段字符长度计算用到 随风 的折半法

                        set n=4
                        set "ec=    "
                        for /l %%a in (0,1,!a!) do (set "one=!str:~%%a,1!"
                            set ec=!ec!!one!
                            if "!one!" geq "z" (set /a n+=2) else (set /a n+=1)
                            if !n! geq 60 echo;!ec!&set ec=&set n=0
                        )
                        echo;!ec!
        )
)
pause
复制代码

[ 本帖最后由 netbenton 于 2009-8-12 22:58 编辑 ]

terse

用的临时文件

@echo off&setlocal enabledelayedexpansion
set k1=tab&set k2=　&set "k3= "
if "%k1%"=="tab" echo 上面这里set k1=tab设置成TAB键&pause&exit
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
   if "%%b"=="" (
       set "bk=　　"
       if defined var (echo;&echo;)else echo;
       for %%b in (~tem.txt) do set/a n=%%~zb+60
    ) else (
       for /f "tokens=* delims=%k1%%k2%%k3%" %%i in ("%%b") do (
       if defined n (set var=!bk!%%i&set "bk=")else set n=60&set var=!k2!!k2!%%i
   )
       >"%temp%\tem~.tem" echo !var!
       for %%b in ("%temp%\tem~.tem") do set/a m=%%~zb-2
       for /l %%i in (0 1 !m!) do (
       if "!var:~%%i,1!" neq "" (
       for %%b in (~tem.txt) do if %%~zb lss !n! (set/p=!var:~%%i,1!<nul)else (
           echo;&set/p=!var:~%%i,1!<nul
           set/a n=%%~zb+62
))))))>~tem.txt
del "%temp%\tem~.tem"
pause
复制代码

batman

正是，不然批是达不到这种智能程度。

terse

是不是以空行分段的啊

zhouyongjun

逐字显示是我一开始就放弃的想法，没想到速度比我的快（经测试硬是比我的快了10多毫秒，长文本就更明显了）。看来echo|findstr的方法是太不好了。

batman

可能是本人在顶楼给出的文本有问题，这里再传上一份文本（此文本内容里就有三种空格，行首的需要处理，但行内的是要求原样输出的）同时附上本人的代码（注请将第一个tab字符替换成tab再运行）：

@echo off&setlocal enabledelayedexpansion
set "k1= "&set "k2=　"&set "k3=tab"
for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
     set "str=%%b"
     if defined str (
        call :lp
        ) else (
        echo.&echo.&set "fd=a"
     )
)
pause>nul&goto :eof
:lp
for %%a in ("%k1%" "%k2%" "%k3%") do if "!str:~,1!" equ %%a set "str=!str:~1!"&goto lp
if defined fd set "str=　　!str!"&set "fd="&set /a n=4
:loop
set /p=!str:~,1!<nul&set /a n+=1
if "!str:~,1!" gtr "Z" set /a n+=1
if %n% geq 60 set /a n=0&echo.
set "str=!str:~1!"
if defined str goto loop 
复制代码

[attach]1733[/attach]

Lumiere

不是说60字节左右，我就没对英文字符判断了，不过空行问题确实没有解决。至于行首的空格，我复制你的文本，在我机器上运行效果很好啊，最大的一个问题就是没有处理空行。还有我发觉复制的时候空行里都有一个空格，可是复制到文本中后那个空格就消失了，不知道怎么回事。