标题: [问题求助] 将文本行内容按每一行末尾/最后的三个字符排序 [打印本页]
作者: iophuang 时间: 2017-2-6 17:52 标题: 将文本行内容按每一行末尾/最后的三个字符排序
现在输出的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 时间: 2017-2-7 14:55
自己解决了 谢谢
作者: taofan712 时间: 2017-2-9 20:06
用批处理当题目做:- @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
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |