将文本行内容按每一行末尾/最后的三个字符排序

iophuang

现在输出的sResultText 是乱的（应该是基于编辑日期） 希望输出结果能够按照后三位代码排序
先谢谢回答的大神了

主要部分代码

1. con.Provider = "ADsDSOObject"
   
2. con.Open
   
3. Com.ActiveConnection = con
   
4. Com.CommandText = "<LDAP://DC=,DC=com>;" &"(objectClass=computer);name;subTree"
   
5. Com.Properties("Page Size") = 1000
   
6. Com.Properties("Searchscope") = ADS_SCOPE_SUBTREE
   
7. 
   
8. 
   
9. Set rs = Com.Execute ()
   
10. rs.MoveFirst
    
11. Do Until rs.EOF   
    
12. 
    
13. sResultText=rs.Fields("name").Value
    
14. 
    
15. Select Case Left (sResultText,9)
    
16. 
    
17. Case "关键字”
    
18. 
    
19.   Wscript.Echo (sResultText)
    
20. 
    
21. End Select
    
22. 
    
23. rs.MoveNext
    
24. Loop
    
25. 
    
26. con.Close
    
27. 
    
28. end if  

复制代码

iophuang

自己解决了 谢谢

taofan712

用批处理当题目做：

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f %%a in (a.txt) do (
   
4. set str=%%a
   
5. echo,1!str:~-3!_!str!
   
6. )>>temp1.txt
   
7. sort temp1.txt>temp2.txt
   
8. for /f "delims=_ tokens=1,2" %%i in (temp2.txt) do (
   
9. echo %%j
   
10. )>>reoder.txt
    
11. echo,over&pause>nul
    
12. del /f /q temp?.txt

复制代码