Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Ханли Лоллер -

Visual Basic .NET - Строки

Все примеры / Строки

Конвертирование RTF в HTML

Автор: Ханли Лоллер | добавлено: 13.06.2011, 18:35 | просмотров: 2244 (1+) | комментариев: 0 | рейтинг: *x0
Небольшая функция на Visual Basic .NET, которая позволяет конвертировать RTF-текст в HTML с сохранением форматирования. Конвертирование делает при помощи библиотеки Microsoft.Office.

Код

Public Function sRTF_To_HTML(ByVal sRTF As String) As String

  Dim MyWord As Microsoft.Office.Interop.Word.Application
  Dim oDoNotSaveChanges As Object = Microsoft.Office.Interop.Word.WdSaveOptions.wdDoNotSaveChanges
  Dim sReturnString As String = ""
  Dim sConvertedString As String = ""
  Try
    MyWord = CreateObject("Word.application")
    MyWord.Visible = False
    MyWord.Documents.Add()


    Dim doRTF As New System.Windows.Forms.DataObject
    doRTF.SetData("Rich Text Format", sRTF)
    Clipboard.SetDataObject(doRTF)
    MyWord.Windows(1).Selection.Paste()
    MyWord.Windows(1).Selection.WholeStory()
    MyWord.Windows(1).Selection.Copy()
    sConvertedString = Clipboard.GetData(System.Windows.Forms.DataFormats.Html)
    'Remove some leading text that shows up in the email
    sConvertedString = sConvertedString.Substring(sConvertedString.IndexOf("<html"))
    'Also remove multiple  characters that somehow got inserted 
    sConvertedString = sConvertedString.Replace("Â", "")
    sReturnString = sConvertedString
    If Not MyWord Is Nothing Then
      MyWord.Quit(oDoNotSaveChanges)
      MyWord = Nothing
    End If
  Catch ex As Exception
    If Not MyWord Is Nothing Then
      MyWord.Quit(oDoNotSaveChanges)
      MyWord = Nothing
    End If
    MsgBox("Error converting Rich Text to HTML")
  End Try
  Return sReturnString
End Function
Файлы RTF2HTML.zip (21,3 Кб)
Об авторе

Ханли Лоллер

Экс-профессиональной байдарочник. До 2001 года работал в Государственном университете Восточного Теннеси (США) в области компьютерных наук. На данный момент работает в Управлении Информационных Технологий в законодательном органе штата Кентукки (США).
В основном программирует на Visual Basic .NET и SQL.
Ханли Лоллер
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики