Автор: vbcode. Дата публикации: 10.06.2004
Расположите на форме элемент RichTextBox (подключается через меню Project | Components - Microsoft Rich Textbox Control 6.0) а также CommandButton.
Сохранение rtf-файла в htm-файл
Расположите на форме элемент RichTextBox (подключается через меню Project | Components - Microsoft Rich Textbox Control 6.0) а также CommandButton.
Private Sub Command1_Click()
'присваиваем переменной содержимое RichTextBox1
Dim txt As String
txt = RichTextBox1.Text
'переменная для хранения htm-файла
Dim a As String
a = "<html>" & vbCrLf & "<head>" &
vbCrLf & "<title>Заголовок</title>" & vbCrLf &
"</head>" & vbCrLf & "<body>"
a = a & vbCrLf & "<pre>" & txt & "</pre>" & vbCrLf &
"</body>" & vbCrLf & "</html>"
'сохранение в htm-файл
Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = "C:\index.htm"
Open FName For Output As #FN
Print #FN, a
Close #FN
End Sub
Private Sub Form_Load()
'загрузка файла
RichTextBox1.FileName = "C:\Мои документы\1.rtf"
End Sub
Комментарии |
| отсутствуют |
Добавление комментария |