Запись данных в файл

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

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

Как всегда сначала в программе определяем, что же программа будет делать. Данная программа будет добавлять в файл с именем Data.dat имя и фамилию пользователя, которые он напишет в текстовых полях.

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

Вторым шагом мы приступаем к визуальному проектированию.Разместите на форме такие элементы :

Наклейка (Label1) - с параметром Caption - Имя
Наклейка (Label2) - с параметром Caption - Фамилия
Текстовое окно (Text1) - в окне свойства Text удалите всё
Текстовое окно (Text2) - в окне свойства Text удалите всё
Кнопка (Button1) - с Caption'oм - Записать
Кнопка (Button2) - с Caption'oм - Выйти

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

Теперь как всегда приступаем к программированию в коде. Для начала мне нужно объяснить некоторые положения.Vb может открывать файлы для нескольких действий : запись данных в файл по срокам (с удалением всего что было до этого)-оператор Output, загрузка данных из файла по строкам - оператор Input, добавление данных в файл по строкам (без удаление всего что было до этого)-оператор Append. Есть ещё несколько видов открытия файла, но они нам пока не нужны.В этом примере мы будем пользоваться оператором Append. И ещё одна особенность, если вы запустите программу из VB, то Data.dat будет записываться в рабочий каталог VB, если же вы запустите уже откомпилированную программу, то есть файл с расширением exe, то файл Data.dat будет записываться в тот каталог где находится этот exe'шный файл.Если файла Data.dat не будет, то будет создан новый файл с этим именем.Приступаем к программированию.

Войдите в раздел глобальных объявлеий ( в самом верху) и напишите там

Option Explicit 'Объявляем переменные

Dim fn As String 'Объявляем текстовую переменную fn - Имя
Dim ln As String 'Объявляем текстовую переменную ln - Фамилия

Войдите в программный код кнопки Записать и напишите там

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

ln = Text2.Text 'Переменная ln равна значению Text элемента Text2

Open "data.dat" For Append As #1 'Открываем файл data.dat , под номером 1, для добавления в него данных

Print #1, fn ;" "; ln 'Записать в файл номер 1 переменную fn,пробел и переменную ln

Close #1 'Закрываем файл номер 1

Войдите в код кнопки Выход и напишите там

End 'Выход

В результате всего этого у вас должно получиться

Option Explicit

Dim fn As String
Dim ln As String

Private Sub Command1_Click()
fn = Text1.Text
ln = Text2.Text
Open "data.dat" For Append As #1
Print #1, fn;" ";ln
Close #1
End Sub


Private Sub Command2_Click()
End
End Sub