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

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

Форум программистов > VB6 > Работа с файлом

Автор: bushman 13.3.2006, 09:57

Код


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:12

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

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

Автор: cardinal 13.3.2006, 13:56

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