文本文件的内容进行排序

概述文本文件的内容进行排序

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Dim objFSO,objfile,DataList,strTextConst 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:ScriptsComputers.txt",ForReading) Do Until objfile.AtEndOfStream strline = objfile.Readline DataList.AddNew DataList("Computername") = strline DataList.Update Loop objfile.Close DataList.sort = "Computername" DataList.MoveFirst Do Until DataList.EOF strText = strText & DataList.FIElds.Item("Computername") & vbCrLf DataList.MoveNext Loop Set objfile = objFSO.OpenTextfile("C:ScriptsComputers.txt",ForWriting) objfile.Writeline strText objfile.Close

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的文本文件的内容进行排序全部内容，希望文章能够帮你解决文本文件的内容进行排序所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。