Board logo

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

作者: iophuang    时间: 2017-2-6 17:52     标题: 将文本行内容按每一行末尾/最后的三个字符排序

现在输出的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. Set rs = Com.Execute ()
  8. rs.MoveFirst
  9. Do Until rs.EOF   
  10. sResultText=rs.Fields("name").Value
  11. Select Case Left (sResultText,9)
  12. Case "关键字”
  13.   Wscript.Echo (sResultText)
  14. End Select
  15. rs.MoveNext
  16. Loop
  17. con.Close
  18. end if  
复制代码

作者: iophuang    时间: 2017-2-7 14:55

自己解决了 谢谢
作者: taofan712    时间: 2017-2-9 20:06

用批处理当题目做:
  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
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2