中国DOS联盟

@echo off

set codes=100

(

for /f "delims=" %%a in (1.txt) do (

  set str=%%a

  Setlocal Enabledelayedexpansion

  call :lp

  endlocal

)

)>1_new.txt

start "" "1_new.txt"

goto :eof

:lp

set/p=!str:~0,%codes%!<nul

echo.

if not "!str:~%codes%!"=="" (

  set str=!str:~%codes%!

  goto :lp

)

goto :eof

if(WScript.arguments.length!=1){

    WScript.echo("请拖动要转换的文本文件到该脚本的图标上！\n\n"

                 +"或直接在命令行下输入参数！");

    WScript.quit();

}

doConverting(WScript.arguments(0));



function doConverting(File_Path){

    var fso=new ActiveXObject("scripting.filesystemobject");

    try{

        //备份文件

        fso.CopyFile(File_Path,File_Path+".bak");

        var fl=fso.opentextfile(File_Path,1);

        var sss=fl.readall();

    }catch(err){

        WScript.quit();

    }

    var fl=fso.opentextfile(File_Path,2);

    

    //把下面的数字100改为相应的数值即可控制每行字数

    //如把“{100}”改为“{50}”,即每行50字

    sss=sss.replace(/(.{100})/mg,"$1\r\n");

    fl.write(sss);

}