批处理怎样按照字符串长度对文本进行排序？

BatCoder

原文举例：
aaa
bbbb
cc
ddddd

希望得到的结果：
cc
aaa
bbbb
ddddd

TX_kakashi

文本文件的内容大概有多少行？

hfg1977

纯P

1. 
   
2. @echo off
   
3. setlocal enabledelayedexpansion&cls
   
4. echo.                · 按照字符串长度对文本进行排序
   
5. echo.               
   
6. :start ============================================================
   
7. if "%~1"=="" (set fname=1.txt) else (if not exist "%~1." (if exist "%~1" (set "fname=%~1") else (echo 文件不存在&goto end)) else (echo 不想处理文件夹&goto end))
   
8. cd.>temp1.txt
   
9. for /f "tokens=* usebackq delims=" %%a in ("%fname%") do (
   
10. call:getStrLen "%%a"
    
11. set "strlen=0000!strlen!"&set "strlen=!strlen:~-4!
    
12. echo.!strlen!:%%a>>temp1.txt
    
13. )
    
14. cd.>"%fname%"
    
15. for /f "tokens=1,* delims=:" %%a in ('sort temp1.txt') do (echo %%b>>"%fname%")
    
16. :end ==============================================================
    
17. for /l %%a in (5,-1,1) do (set/p =退出... ^(%%a^)<nul&ping/n 2 127.1>nul)
    
18. del temp1.txt
    
19. exit /b
    
20. 
    
21. ::=======================获得字符串长度==============================
    
22. ::返回值在中%strlen%
    
23. :getStrLen mystr
    
24. set "mystr=%~1"&set "strlen=0"
    
25. if not defined mystr goto :eof
    
26. for /l %%i in (0,1,8191) do (set strlen=%%i&if "!mystr:~%%i,1!"=="" (goto :eof))
    
27. goto :eof
    
28. ::==============END======获得字符串长度========== by hf-g ===========

复制代码

[ 本帖最后由 hfg1977 于 2010-9-9 11:53 编辑 ]

hfg1977

set/p =退出... ^(%%a^) 退格键退格键<nul
这里带有 退格键12个的呦 论坛没显示出来

sgaizxt001

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "delims=" %%a in (03.txt) do (
   
4.   set str=00000000000000000000000000%%a
   
5.   set _!str:~-20!=0
   
6. )
   
7. for /f "tokens=2 delims=0=" %%a in ('set _') do echo %%a
   
8. pause

复制代码

对set str=00000000000000000000000000%%a和set _!str:~-20!=0可以根据自己的需求自己定义一下长度

zqz0012005

为避免以0开头的行被误处理及兼容特殊字符，来段js

1. fso = new ActiveXObject('Scripting.FileSystemObject');
   
2. s = fso.OpenTextFile('01.txt').ReadAll().replace(/\r/g,''); //'\r'非常恶心！
   
3. if (s.slice(-1)=='\n') s=s.slice(0,-1); //需要稍作修整，为下面replace(/^/gm,head)
   
4. head=new Array(1000).join('.')+':'; //head为1000个.加一个:
   
5. s=s.replace(/^/gm,head).match(/.{1000}$/gm).sort().join('\r\n').replace(/^\.+:/gm,'');
   
6. fso.OpenTextFile('02.txt',2,true).Write(s);

复制代码

zqz0012005

再来个js

fso = new ActiveXObject('Scripting.FileSystemObject');
s = fso.OpenTextFile('01.txt').ReadAll().replace(/\r/g,'');
if (s.slice(-1)=='\n') s=s.slice(0,-1);
s=s.replace(/^.*$/gm, function(ss){return ss.length+'-'+ss});
s=s.split('\n').sort(
  function(a,b){return (a.replace(/-.*$/,'') - b.replace(/-.*$/,''));}
)
s=s.join('\r\n').replace(/^\d+-/gm,'');
fso.OpenTextFile('02.txt',2,true).Write(s);

cm535

试了一下3楼的代码，针对小文件使用时很好，但用于大文件就非常慢了，我的3M的文件运行了半个小时还没有搞定！能针对大文件做一个代码吗？谢谢，谢谢！感谢各位高手！

tmplinshi

1. gawk "{print length(), $0}" a.txt | sort -n | csed -n "/^[^0]/ s/^[0-9]\+ //p" >b.txt

复制代码