batman

苦思n久，终于有了希望，代码编写中。。。

batman

需要用到split.exe
下载地址：http://bbs.bathome.net/viewthrea ... ighlight=%2Bbatcher

@echo off&setlocal enabledelayedexpansion
md temp
split -b 8000 a.txt temp\
for /r temp %%a in (*) do (
    for /f "delims=" %%b in (%%a) do ( 
        set "str=!str!%%b"
        for /l %%b in (0,100,3900) do (
            set /a m+=1
            if !m! leq 10 (
               set "a=!a!!str:~%%b,100!指定字符"
               set "str=!str:~100!"
               ) else (
               set /a n+=1,m=0
               echo !a!>fg_!n!.txt&set "a="
            )
        )
    )
)
if "!a!" neq "" set /a n+=1&echo !a!>fg_!n!.txt
rd /s /q temp
复制代码

batman

解决问题了不？

batman

首先告诉我问题得到解决了不，没解决我好修改代码。。。

batman

就在这个链接中你找到split.exe下载就是的啊，放在当前目录下就可以了，我也是刚从这里下的。。。

batman

19# zm900612
你测试了sed能处理楼主这样的问题？

batman

@echo off&setlocal enabledelayedexpansion
for /r %%a in (*.txt) do (
     set /a n+=1
     if !n! leq 10 set "str=!str!%%~nxa+"
     if !n! equ 10 set /a m+=1,n=0&copy /y !str:~,-1! fg_!m!.tm&set "str="
)
if defined str set /a m+=1&copy /y !str:~,-1! fg_!m!.tm
del /q *.txt&ren *.tm *.txt         
复制代码

batman

本来还想修改文本分割的代码，但既然楼主已经走到这一步了，就算了。。。

batman

@echo off&setlocal enabledelayedexpansion
rd /s /q temp fgfile 2>nul&md temp fgfile
split -b 8000 a.txt temp\
set /a b=0
for /r temp %%a in (*) do (
    set /a "a=(%%~za+b)/200","b=(%%~za+b)%%200"
    for /f "delims=" %%b in (%%a) do ( 
        set "str=!str!%%b"
        for /l %%b in (1,1,!a!) do (
            set /a m+=1
            if !m! leq 9 set "c=!c!!str:~,100!指定字符"
            if !m! equ 10 set /a n+=1,m=0&echo !c!!str:~,100!指定字符>fgfile\fg_!n!.txt&set "c="
            set "str=!str:~100!"
        )
    )
)
if "!c!" neq "" set /a n+=1&echo !c!>fgfile\fg_!n!.txt
rd /s /q temp&start fgfile
复制代码

--------------------------------------------------------------------------
郁闷，转成unicode根本实现不了读取，8000改成16000也会出错。。。

batman

32# qzwqzw
学习了，功能已加到代码中。。。

batman

你可不可以将你的文本做附件贴上来？

batman

35# sunflowerr_88
在编辑时掉了一个x字符，已经修改。。。