Эта статья очень нужна тем, кто собирается работать с файлами, а это в конце концов становится нужно любому программисту.Ведь очень часто нужно сохранить что-нибудь, какие-нибудь переменные например имя пользователя или что-нибудь в этом роде.
Как всегда сначала в программе определяем, что же программа будет делать. Данная программа будет добавлять в файл с именем Data.dat имя и фамилию пользователя, которые он напишет в текстовых полях.
Вторым шагом мы приступаем к визуальному проектированию.Разместите на форме такие элементы :
Наклейка (Label1) - с параметром Caption -
Имя
Наклейка (Label2) - с параметром Caption -
Фамилия
Текстовое окно (Text1) - в окне свойства Text удалите
всё
Текстовое окно (Text2) - в окне свойства Text удалите
всё
Кнопка (Button1) - с Caption'oм - Записать
Кнопка
(Button2) - с Caption'oм - Выйти
В результате у вас должно получиться так :
Теперь как всегда приступаем к программированию в коде. Для начала мне нужно объяснить некоторые положения.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
Все, программа готова, теперь надо проверить её.Желательно перед проверкой программы, откомпилировать ее.Теперь запустите exe'шный файл и введя свое имя и фамилию нажмите Записать.Теперь введите ещё чьи-нибудь имя и фамилию и опять запишиите их.Выйдите из программы и зайдите в тот каталог, откуда вы запускали ее. Найдите там файл Data.dat и просмотрите его любым текстовым редактором, там должны быть те данные котрые вы вписали, если же их нет, то напишите мне, я постараюсь вам помочь.Можете также взять исходники и попробовать разобраться в них.
