Page 188 - 4192

Print #1, " Номер поїзду | Час відправлення | Станція
призначення | Час у дорозі | "
Else
GoTo Line1
End If
Close #1
Line1:
Open "C:\Поїзд.txt" For Append As #1
Print #1, A, "", "", B, "", "", C, "", D
If C = "Київ" And B >= 20 And B <= 24 And D < 15 Then
Print #1, "До станції Київ:"
Print #1, " Номер поїзду | Час відправлення | Станція
призначення | Час у дорозі | "
Print #1, A, "", "", B, "", "", C, "", D
End If
Close #1
End Sub

Private Sub Command2_Click()
If MsgBox("Ви справді бажаєте видалити файл?",
vbYesNo + vbQuestion, "Видалення") = vbYes Then
Kill ("C:\Поїзд.txt")
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Open "C:\Поїзд.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strFileContent

187