|
открытие для чтения (фрагмент программы):
Open App.Path & "\history" For Input As #1
i = 0
Dim tF(999) As String
Do Until EOF(1) ' делать пока не конец файла
Line Input #1, tF(i) ' записываем в массив строку
i = i + 1
Loop
Close #1
для записи -//-//-//-//-
Open App.Path & "\history" For Output As #1
Print #1, Date & " " & Time
For j = 0 To i - 1
Print #1, tF(j)
Next j
Close #1
ну типа того.....
|