Этот пример описывает как можно получить данные из файла, его желательно употреблять вместе с предыдущим примером-"Запись данных в файл".


Шаг №1 - Постановка задачи

Как всегда для начала мы будем ставить задачу, что же должна делать эта программа ? Программа должна считать все данные из файла autoexec.bat который расположен в корневом каталоге C: и выводить их в текстовое окно.


Шаг №2 - Визуальное проектирование

Вторым шагом, как обычно будет визуальное проектирование, то есть расстновка объектов на форму. У вас на форме должны быть такие объекты :

Текстовое окно (TextBo) : Name-Text1, Caption-ничего Multiline-True
Кнопка (Button) : Name-Button1, Caption-"Загрузить"
Кнопка (Button) : Name-Button2, Caption-"Выход"

В результате должно получиться примерно так :

Все, с визуальным проектированием покончено.


Шаг №3 - Программирование в коде

Теперь как всегда самая сложная, но и самая нужная и интересная часть : программирование в коде.Войдите в раздел глобальных объявлений и напишите там :

Option Explicit- этим мы даем понять программе что объявляем переменные

Dim st as String - мы объявляем текстовую переменную st, она нам нужна для обозначения очередной строки, то есть в нее мы будем записывать данные из очередной строки

Dim AllText as String - мы объявляем текстовую переменную AllText, я думаю что из названия вы уже поняли для чего нам нужна эта переменная. Если это не так то объясняю : эта переменная нужна нам для обозначения всего текста, то есть всех данных вытащеных из файла.

Теперь зайдите в код кнопки Считать.Напишите там :

Open "C:autoexec.bat" for Input as #1 - этой строкой мы открываем файл autoexec.bat, под номером 1, для чтения из него данных по сторкам.

Do While Not EOF (1) - для понимания смысла этого выражения можно перевести его дословно : делать пока нет конца файл (Eon of File) номер 1

Input #1, st - Считываем из файла номер один очередную строку ( в начале цикла это будет первая, потом вторая и так пока не кончится файл)

AllText = AllText + st+ chr(13)+chr(10)- То есть весь тект равен весь тект плюс очередная строка ( в начале цикла весь текст - пустой, то есть в этой переменной ничего не записано, дальше весь текст - это первая строка, потом первая и вторая строка и т.д. пока не кончится файл) и плюс клавиша Enter ( сейчас я не буду описывать почему Enter - Это Chr(10) +chr(13) это будет описанно в соответствующей статье).Клавиша Enter тут нужна для перехода на другую строчку, если ее не нажать, то переменная AllText будет сплошным слиянием строк, то есть все строки будут записанны в одну большую строку.К тому моменту когда он кончится переменная AllText будет равна всему тексту файла.

Loop - заканчиваем цикл, то есть если еще нет конца файла то программа идет к началу цикла, а если конец файла достигнут, то программа идет на свою следующую строчку.

Close #1 - закрываем файл номер 1

Text1.Text = AllText - Придаем параметру Text элемента Text1 значение переменной AllText.

Все ! Программа окончена.


Шаг №4 - Подведение итогов

Проверьте программу.Если все работает то попробуйте открыть другие файлы, наример файл data.dat который (я надеюсь) вы сделали с программой запись в файл.Если вы не сделали его, то пожалуйста, сделайте, это очень легко, но если вы хотите стать програмистом то это вам обязательно поможет.Если же программа не работает то, можете попробовать разобраться в исходниках.