这是VBS做的排序- option explicit
- dim fso, class1, class2, class3, str, count
- set fso = createobject("scripting.filesystemobject")
- set class1 = fso.opentextfile("a.txt")
- set class2 = createobject("scripting.dictionary")
- set class3 = fso.createtextfile("b.txt")
- do until class1.atendofstream
- str = class1.readline
- class2(len(str)) = str
- loop
-
- do while count < class2.count
- if not class2(count) = "" then class3.writeline class2(count)
- count = count + 1
- loop
复制代码
|