vb 在文本文件每行前加上时间（时间从00：00分开始）

Question

现有文本文件内容：
27.6156
27.6087
27.5868
27.5500
27.5273
27.5371
27.4310
27.3466
27.2953
27.2815
27.2791
27.2885
27.2527
27.1886
27.1633
27.1216
27.1244
加后格式为
2008-09-19 0000 27.6156
2008-09-19 0001 27.6087
2008-09-19 0002 27.5868
……
2008-09-19 0100 27.5356
2008-09-19 0101 27.5768
……

Answer 1

Private Sub Command1_Click()
    Dim s As String
    Dim t As Date
    t = "2008-09-19 00:00"
    Open "f:\1.txt" For Input As #1
    Open "f:\2.txt" For Output As #2
    Do While Not EOF(1)
        Line Input #1, s
        s = Format(t, "yyyy-mm-dd hhnn ") & s
        Print #2, s
        t = DateAdd("n", 1, t)
    Loop
    Close #1
    Close #2
    Kill "f:\1.txt"
    Name "f:\2.txt" As "f:\1.txt"
End Sub