double arrow

Do While Not EOF(2) With Студент

Input #2,.Фамилия,.Оценка

Cells(i, 1).Value =.Фамилия

Cells(i, 2).Value =.Оценка

End With

i = i + 1 Loop

Close #2

End Sub

Приведем пример использования инструкции Line input # для считывания данных из файла группаЭкономистов, имеющего ту же структуру, что и в предыдущем примере, но созданного с помощью инструкции Print #. Инструкция Line input # считывает всю строку из файла в строковую переменную. Поэтому в этом случае уже нет необходимости использовать введенный пользовательский тип, а достаточно ограничиться только обычной строковой переменной. Вся считываемая информация строка за строкой вводится в список диалогового.окна.

Private Sub UserForm_Initialize()

Dim Студент As String

Open "ГруппаЭкономистов"

For Input As #1

i = 1

With ListBoxl

Clear Do While Not EOF(l)

Line Input 11, Студент

Addltem Студент

i = i + 1 Loop

Close #l

End With

End Sub


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: