Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Запись и чтение личных данных

Автор: Guest 23.4.2005, 18:54

нужно сделать такую фишку:
при запуске программы она проверяет наличие файла user.txt
если такого файла нет, то задается несколько вопросов о пользователе (имя, дата рождения и т.п.)
ответы записываются в файл user.txt
при запуске программы если есть файл user.txt вопросы о пользователе не задаются, выводится сообщение "здравствуйте xxxx"
где вместо хххх - имя которое ты ввел ранее и которое сохранилось в user.txt

Автор: cardinal 23.4.2005, 19:52

Набросок:

Private Sub Form_Load()
If "FileExists Method" Then ' если файл существует
"Open Statement" ' открываем файл
"Get Statement" ' читаем данные из файла
"Close Statement" ' закрываем файл
"MsgBox Function" ' выводится сообщение "здравствуйте xxxx"
Else
"InputBox Function" ' вопросы о пользователе
"Open Statement" ' открываем файл
"Put Statement" ' запись данных в файл
"Close Statement" ' закрываем файл
End If
End Sub

То, что написано в ковычках тебе надо поискать на форуме (или в том же MSDN). Информация, которая находится на форуме тебе будет достаточно!

Автор: Guest 23.4.2005, 21:42

а можно подробнее

Автор: cardinal 23.4.2005, 21:54

Если тебе с нуля то нет, а если не с нуля, то я жду конкретных вопросов...

Автор: Guest 24.4.2005, 07:36

там же небольшой листинг, подскажи очень надо.

Автор: Exception 24.4.2005, 12:34

Код



Private Sub Form_Load()
If Dir("C:\myfile.txt")<>"" Then
Open "C:\myfile.txt" For Input As #1
Dim str as string
Read #1,str
Close #1
MsgBox str
Else
dim name as string
name=InputBox("Введите имя:")
Open "C:\myfile.txt" For OutPut As #1
Print #1,name
Close #1
Msgbox name & " привет!"
End If
End Sub

Автор: Naghual 24.4.2005, 14:31

2 Run-time error
Зря ты гостей так балуеш. К тому-же ленивых.

Автор: Exception 25.4.2005, 15:45

Цитата(Naghual @ 24.4.2005, 15:31)

Зря ты гостей так балуеш

Знаю-знаю... из жалости smile

Автор: Guest 25.4.2005, 20:33

Read #1,str
пишет красным, типа ошибка почему?

Автор: amt 25.4.2005, 21:45

замени на Input

Автор: Exception 26.4.2005, 11:14

Блин... чего-то я и правда подзабыл операторы I/O smile

2 Guest
Не понимаю, зачем ты вообще программированием занялся? Если это тебе надо "чтобы получить 5 в зачетке", то смысла в таком учении? Если ты уже кем-то работаешь ( smile

), то это просто нонсенс - такое нежелание нормально учиться языку и лезть в хелп.
И под конец: мне кажется более чем не уважительно задавать такие вопросы, лениться полазить в MSDN, лениться написать хоть одну строчку кода и не зарегистрироваться. Все таки IMHO, это форум а не Сборище Пьяных Программистов smile

О как сказал smile

Автор: Guest 26.4.2005, 22:33

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

Автор: Naghual 27.4.2005, 09:10

Цитата

а как сделать лучше спросить... чем рыться в поисках ответа...

А это основы. Если ты роешся в поисках ответа на такие вопросы, то может лучше сначала подучится, почитать?

Автор: Ignis 4.5.2005, 12:22

Цитата(Guest @ 26.4.2005, 22:33)

Ну да, кто-то годами опыт набирал и рылся в книгах до ослепления, а тут быстренько и просто...
Я не против помощи, всякое бывает, но таблицу умножения знать все же надо, тут не поможешь...