Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: vbcode Дата публикации: 10.6.04

Сохранение rtf-файла в htm-файл

Расположите на форме элемент RichTextBox (подключается через меню Project | Components - Microsoft Rich Textbox Control 6.0) а также CommandButton.
CODE NOW!
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


Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

Комментарии могут добавлять только пользователи,
зарегистрированные на форуме данного сайта. Если Вы не
зарегистрированы, то сначала зарегистрируйтесь тут

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты