terse

是不是以空行分段的啊

batman

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

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
复制代码

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 编辑 ]

523066680

帮楼上的顶起来~

batman

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

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

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

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

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 编辑 ]

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
复制代码

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 编辑 ]

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 编辑 ]

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 编辑 ]