Основы офисного программирования и язык VBA


Пример 14.4


Public Sub ReadingWithInput()

Dim MyStr As String, MyBool As Boolean, MyDate As Date

Dim MyNull As Variant, MyFloat As Double, MyErr As Variant

Dim i As Integer

'Открытие файла readme.txt

Open Path & "readme.txt" For Input As #7

'Чтение файла

'Первые 8 строк

For i = 1 To 8

Input #7, MyStr

Debug.Print MyStr

Next i

'Данные разных типов

Input #7, MyBool, MyDate, MyNull, MyFloat

Debug.Print MyBool, MyDate, MyNull, MyFloat

'читаем отформатированные числа

Input #7, MyStr

Debug.Print MyStr

Input #7, MyStr

Debug.Print MyStr

'дважды читаем данные типа Error

Input #7, MyErr

Debug.Print MyErr

Input #7, MyErr

Debug.Print MyErr

'чтение до конца файла

Do While Not EOF(7)

Input #7, MyStr

Debug.Print MyStr

Loop

End Sub




Начало  Назад  Вперед



Книжный магазин