用vbs对文本文件的内容进行排序
2019-10-26 17:59:42
供稿：网友
问：
您好，脚本专家！我有一个包含计算机名称列表的文本文件。如何按照字母顺序对该文件进行排序？
-- LR
答：
您好，LR。如果想偷懒的话，我们就会告诉您：“对不起，您不能这样做。”我们也可以就此脱身，因为 Microsoft 的脚本编写技术中没有一个方法能在打开文本文件后对文件进行排序。不过，嗨，“脚本专家”什么时候偷过懒呢？
噢，对了，我们是偷过几次懒，不过希望所有的人都已经忘了。不过，这次我们将向您提供一个解决办法。
虽然没有能直接对文本文件进行排序的方法，但我们可以通过执行以下操作最终达到相同的效果：1) 使用 FileSystemObject 将文件读取到内存中；2) 在内存中按照字母顺序对文件进行排序；3) 使用内存中的已排序的数据替换文件现有的内容。这些操作虽然有点儿绕弯儿，但是您最后将得到一个已按照字母顺序进行排序的文本文件，而这正是您想要的结果。
为了完成此任务，我们选择使用一个断开连接的记录集。还有其他的方法能够实现此目的（比如说，冒泡排序），但是断开连接的记录集能提供更多的灵活性，且更易于讲解，尤其适合于那些曾有过数据库编程经验的用户。我们在此将向您简要介绍断开连接的记录集；若要获得有关其工作原理的详细说明，您可能需要访问 Scripting Week 2 网络广播 Things the Scripting Guys Never Told You（脚本专家从未告诉过您的事情）。（作为额外提供的补充信息，该网络广播还将向您说明如何使用冒泡排序对单个文件数据进行排序。）
在开始之前，我们假定您有一个与以下内容类似的文本文件，文件的每一行都有一个计算机名称：
red-ws-02
atl-ws-01
sf-ws-02
atl-ws-02
atl-ws-03
red-ws-02
sf-ws-01
如何读取这些计算机名称、对它们进行排序并接着将排序后的列表写回该文本文件呢？我们可以使用一个与以下内容类似的脚本：
Const adVarChar = 200
Const MaxCharacters = 255
Const ForReading = 1
Const ForWriting = 2
Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "ComputerName", adVarChar, MaxCharacters
DataList.Open
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:/Scripts/Computers.txt", ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
DataList.AddNew
DataList("ComputerName") = strLine
DataList.Update
