按日期对行进行排序 (DD.MM.YYYY)

Question

是否可以按日期对文本文件中的行进行排序并将结果保存到另一个输出文件？每行都以日期 (DD.MM.YYYY) 开头。日期和文本之间的分隔符是制表符（没有空格）。我更喜欢 VBS 中的解决方案。

来源

25.11.1968 厄普顿·辛克莱逝世
14.06.1946 生日唐纳德特朗普
25.11.2016 菲德尔·卡斯特罗逝世
14.06.1969 生日 Steffi Graf
01.01.2017 新年

到新订单(target)

01.01.2017 新年
14.06.1946 生日唐纳德特朗普
14.06.1969 生日 Steffi Graf
25.11.1968 厄普顿·辛克莱逝世
25.11.2016 菲德尔·卡斯特罗逝世

顺序更改比较：月-日-年

Answer 1

在这里，它并不漂亮，也没有按照你想要的顺序排序，但如果你像我一样学习的话，希望这能教你一些东西......

Option Explicit
Const fsoForReading = 1
Const fsoForWriting = 2

inputFile = "input.txt"
outputFile = "output.txt"

dim inputFile, outputFile, lineCount, file, fline, lDate, lYear, lMonth, lDay, iDate,output
dim a, d, i

dim objFSO, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
set a = CreateObject("System.Collections.ArrayList")
set d = CreateObject("Scripting.Dictionary")

'open up the file for reading
Set objFile = objFSO.GetFile(inputFile)
Set file = objFile.OpenAsTextStream(fsoForReading,-2)
Do Until file.AtEndOfStream
    fline = file.ReadLine               'get the line
    lDate = left(fline,10)              'get the date portion at the beginning (the first 10 characters)
    lYear = split(lDate,".")(2)     'parse the year from the date
    lMonth = split(lDate,".")(1)        'parse the month
    lDay= split(lDate,".")(0)           'parse the day

    iDate = lYear + lMonth + lDay       'put together the "index date".  The date needs to be formatted as yyyymmdd so it is sortable

    a.add iDate                             'add the index date to an array for easier sorting
    d.add iDate, fline                  'add the index date and line contents to a dictionary object

Loop                                            'go to the next line in the file

a.Sort()                                        'sort the array of dates
for each i in a                         'loop through the array of dates
    output = output + d(i) + vbCrlf 'add the appropriate dictionary object to the output
Next

call writeFile(output)                  'write the file
file.Close


WScript.Quit 0

sub writeFile(fc)
    dim fso
   'fn = fn + ".hl7"
    Set fso = CreateObject("Scripting.FileSystemObject")
    if (fso.FileExists(outputFile)) then
        Set objFile = fso.OpenTextFile(outputFile,8,True)
        objFile.writeline fc
        objFile.Close  
    else
        Set objFile = fso.CreateTextFile(outputFile,True)
        objFile.writeline fc
        objFile.Close  
    end if
end sub