[问题求助] 将文本行内容按每一行末尾/最后的三个字符排序

iophuang

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

主要部分代码

con.Provider = "ADsDSOObject"
con.Open
Com.ActiveConnection = con
Com.CommandText = "<LDAP://DC=,DC=com>;" &"(objectClass=computer);name;subTree"
Com.Properties("Page Size") = 1000
Com.Properties("Searchscope") = ADS_SCOPE_SUBTREE 


Set rs = Com.Execute ()
rs.MoveFirst
Do Until rs.EOF   

 sResultText=rs.Fields("name").Value

 Select Case Left (sResultText,9)

 Case "关键字”
 
  Wscript.Echo (sResultText)
 
 End Select

 rs.MoveNext
Loop

con.Close

end if  
复制代码

iophuang

自己解决了 谢谢

taofan712

用批处理当题目做：

@echo off
setlocal enabledelayedexpansion
for /f %%a in (a.txt) do (
set str=%%a
echo,1!str:~-3!_!str!
)>>temp1.txt
sort temp1.txt>temp2.txt
for /f "delims=_ tokens=1,2" %%i in (temp2.txt) do (
echo %%j
)>>reoder.txt
echo,over&pause>nul
del /f /q temp?.txt 
复制代码