VPF::Работа с файлом - Форум программистов

bushman

Дата 13.3.2006, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.3.2006

Репутация: нет
Всего: нет

Код


Private Sub Command1_Click()
Dim FileNum As Integer
Dim txt As String
FileNum = FreeFile
If Combo1.Text = "Тюшняков" Then Open "D:\Слава\исходники\Тюшняков.dat" For Output As FileNum
If Combo1.Text = "Горшков" Then Open "D:\Слава\исходники\Горшков.dat" For Output As FileNum
If Combo1.Text = "Мурзин" Then Open "D:\Слава\исходники\Мурзин.dat" For Output As FileNum
If Combo1.Text = "Иванов" Then Open "D:\Слава\исходники\Иванов.dat" For Output As FileNum
If Combo1.Text = "Бушманов" Then Open "D:\Слава\исходники\Бушманов.dat" For Output As FileNum
txt = MonthView1 & Text1
Print #FileNum, txt
Close #FileNum
End Sub

Смысл такой я хочу чтобы после каждого нажатия на кнопку созданый файл не заменялся а изменения ДОПИСЫВАЛИСЬ уже в существующий файл!! помогите начинающему PLEASE!!!!

M
Akina

Используем тег "Код".

Это сообщение отредактировал(а) Akina - 13.3.2006, 10:11

Akina

Дата 13.3.2006, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Open For Append
Добавлено @ 10:18
А еще лучше не плодить гору IF, а сразу

Код


Private Const ValidLastNames As String _ 
= "Иванов" & chr(0) & _
  "Петров" & chr(0) & _
  "Сидоров" & chr(0) 

Private Sub Command1_Click()
Dim FileNum As Integer
Dim txt As String
FileNum = FreeFile
If instr(ValidLastNames,trim(Combo1.Text) & chr(0)) Then
   Open "D:\Слава\исходники\" & trim(Combo1.Text) & ".dat" For Append As FileNum
else
   msgbox "А нету такой фамилии..."
end if
txt = MonthView1 & Text1
Print #FileNum, txt
Close #FileNum
End Sub

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

bushman

Дата 13.3.2006, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.3.2006

Репутация: нет
Всего: нет

Чего-то я не понял!! (простите новичка) куда мне это все вышеуказанное вбивать??? вот оригинальный вид:
Модератор: removed
Добавлено @ 11:32
Спасибо заработало!!!!!

cardinal

Дата 13.3.2006, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Модератор: Используй теги код!

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »