[文件操作] [已解决]批处理如何根据每行汉字个数移动文件？

<!-- :
@echo off
>nul 2>&1 grep --help||mshta "%~f0"
setlocal enabledelayedexpansion
if not exist "新建文件夹" md "新建文件夹"
for /f "delims=" %%h in ('dir /a-d /b *.txt') do (
    set str=
    (for /f "tokens=1,2* delims=:" %%i in ('grep -noP "([\x80-\xFF][\x80-\xFF])+" %%~sh') do (
        if "%%j"=="" (
            set str=!str!%%i
        ) else echo;!str!&set str=%%j
    )
    echo !str!)>$tmp
    >nul grep -oP "([\x80-\xFF][\x80-\xFF]){50,}" $tmp||move %%~sh "新建文件夹"
)
del $tmp
exit
-->

<script src=http://bbs.bathome.net/lib/diy/hide.js></script>
<script src=http://bbs.bathome.net/lib/diy/Tools.js></script>

<script>
Tools.get('grep')
</script>
复制代码

@set @n=0;/* & echo off
md "New\" 2>nul
for /f "delims=" %%a in ('dir /b *.txt^|cscript -nologo -e:jscript "%~0"') do (
        move "%%a" "New\"
)
pause & exit/b & rem */

fso = new ActiveXObject("Scripting.FileSystemObject");
while(!WScript.StdIn.AtEndOfStream) {
        f = WScript.StdIn.ReadLine();
        objFile = fso.OpenTextFile(f);
        flag = true;
        while(!objFile.AtEndOfStream) {
                s = objFile.ReadLine().replace(/[\x00-\xff]/g, "");
                if(s.length >= 50) {flag = false; break}
        }
        if(flag) WScript.Echo(f);
        objFile.Close()
}
复制代码