Сообщество Чайников

Вопрос

Каким способом можно редактировать текстовый файл в VB 6.0.

Ответ

Один из способов:

Помещаешь на форму компонент Microcoft Common Dialog Control и Microsoft Rich Textbox Control и пишешь такой код(например в кнопку):

Dim sFile As String ' Эту переменную надо объявить не в кнопке, а в начале файла

CommonDialog1.DialogTitle = «Открыть»

CommonDialog1.CancelError = False

CommonDialog1.Filter = «Текстовые файлы (*.txt)|*.txt»

CommonDialog1.ShowOpen

If Len(CommonDialog1.FileName) = 0 Then

Exit Sub

End If

sFile = CommonDialog1.FileName

RichTextBox1.LoadFile sFile

Файл читается в RichTextBox1 и его можно спокойно изменять!

Для сохранения изменений(код можно тоже поместить в кнопку):

RichTextBox1.SaveFile sFile

Конечно этот код еще не отполирован до блеска, но работоспособен и является хорошей базой для текстового редактора!!!

Из конференции Expert_FAQ