Считывание данных с файла
Как всегда для начала мы будем ставить задачу, что же должна делать эта программа ? Программа должна считать все данные из файла autoexec.bat который расположен в корневом каталоге C:\ и выводить их в текстовое окно.
Вторым шагом, как обычно будет визуальное проектирование, то есть расстновка объектов на форму. У вас на форме должны быть такие объекты :
Текстовое окно (TextBo) : Name-Text1,
Caption-ничего Multiline-True
Кнопка (Button) :
Name-Button1, Caption-"Загрузить"
Кнопка (Button) :
Name-Button2, Caption-"Выход"
В результате должно получиться примерно так :
Теперь как всегда самая сложная, но и самая нужная и интересная часть : программирование в коде.Войдите в раздел глобальных объявлений и напишите там :
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.
Все ! Программа окончена.