dim msFile as FileSystemObject , msText as TextStreamset msFile = new FileSystemObject
set msText = msFile.OpenTextFile()msString = msText.ReadLine '2000 12 22
....
msString = msText.ReadLine '2000 12 31
....
set msText = msFile.OpenTextFile()msString = msText.ReadLine '2000 12 22
....
msString = msText.ReadLine '2000 12 31
....
添加三个字段,
读文件每一行,创建记录,
然后排序。