| |
Сохранение 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
|
|
| |
|
|
|
|