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

Обсуждение статей, опубликованных на сайте.
gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

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

Сообщение gaidar » 22.11.2006 (Ср) 23:01

Дреманович Павел
Конвертация RTF в HTML


http://vbstreets.ru/VB/Articles/66430.aspx
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

_ae_
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 165
Зарегистрирован: 08.10.2006 (Вс) 14:37

Сообщение _ae_ » 22.11.2006 (Ср) 23:13

Тэг font со своими атрибутами уже лет пять как попал в список нежелательных к применению. Или я что-то пропустил?

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 22.11.2006 (Ср) 23:16

_ae_ писал(а):Тэг font со своими атрибутами уже лет пять как попал в список нежелательных к применению. Или я что-то пропустил?


Нежелательных, да. Но он будет поддерживаться всеми последующими браузерами еще неизвесно сколько.
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

_ae_
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 165
Зарегистрирован: 08.10.2006 (Вс) 14:37

Сообщение _ae_ » 22.11.2006 (Ср) 23:57

И все же лучше заменить на span)

Самоделкин
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 29.09.2007 (Сб) 22:33
Откуда: Санкт-Петербург

Сообщение Самоделкин » 29.09.2007 (Сб) 22:59

Насчёт span'а я согласен, но это второстепенная деталь. Для начала нужно научить программу корректно отображать цвет. Для этого я предлагаю функцию TableConvertPallete заменить на следующую:

Код: Выделить всё
Function ConvColor(clr As Long) As String
Dim lngClr As Long, R As Long, G As Long, B As Long
Dim strClr As String, sR As String, sG As String, sB As String
strClr = Hex(CStr(clr))
If Len(strClr) = 1 Then
            sR = "0" & strClr
            sG = "00"
            sB = "00"
        ElseIf Len(strClr) = 2 Then
            sR = strClr
            sG = "00"
            sB = "00"
        ElseIf Len(strClr) = 3 Then
            sR = Right(strClr, 2)
            sG = "0" & Left(strClr, 1)
            sB = "00"
        ElseIf Len(strClr) = 4 Then
            sR = Right(strClr, 2)
            sG = Left(strClr, 2)
            sB = "00"
        ElseIf Len(strClr) = 5 Then
            sR = Right(strClr, 2)
            sG = Mid(strClr, 2, 2)
            sB = "0" & Left(strClr, 1)
        Else
            sR = Right(strClr, 2)
            sG = Mid(strClr, 3, 2)
            sB = Left(strClr, 2)
        End If
   ConvColor = Chr(34) & "#" & sR & sG & sB & Chr(34)
End Function


А вообще идея перспективная. Я сейчас делаю программку для одного чайника на "народе", который хочет сам обновлять свои новости, но кроме Word'а и блокнота ничем не владеет (сайт делаю я). Но там я сам ему всё отформатировал и загнал в файл.js, так что моя программка будет просто расставлять готовые тэги в простом тексте, сохранять в конкретный файл и отсылать его по конкретному ftp. Так сказать, персональный сервис. А то ещё запутается.
Глаза страшат, а руки делают.

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16473
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 29.09.2007 (Сб) 23:51

Код: Выделить всё
Function ConvColor(clr As Long) As String
Dim lngClr As Long, R As Long, G As Long, B As Long
Dim strClr As String, sR As String, sG As String, sB As String
strClr = Hex(CStr(clr))
If Len(strClr) = 1 Then
            sR = "0" & strClr
            sG = "00"
            sB = "00"
        ElseIf Len(strClr) = 2 Then
            sR = strClr
            sG = "00"
            sB = "00"
        ElseIf Len(strClr) = 3 Then
            sR = Right(strClr, 2)
            sG = "0" & Left(strClr, 1)
            sB = "00"
        ElseIf Len(strClr) = 4 Then
            sR = Right(strClr, 2)
            sG = Left(strClr, 2)
            sB = "00"
        ElseIf Len(strClr) = 5 Then
            sR = Right(strClr, 2)
            sG = Mid(strClr, 2, 2)
            sB = "0" & Left(strClr, 1)
        Else
            sR = Right(strClr, 2)
            sG = Mid(strClr, 3, 2)
            sB = Left(strClr, 2)
        End If
   ConvColor = Chr(34) & "#" & sR & sG & sB & Chr(34)
End Function


Нда....


Код: Выделить всё
Public Function L2H(ByVal color As Long) As String
    L2H = Hex(color Or &H10000000)
    L2H = """#" + Mid$(L2H, 7, 2) + Mid$(L2H, 5, 2) + Mid$(L2H, 3, 2) + """"
End Function


На мой взгляд, разница очевидна.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

HKEY_SUPER_MASHINE
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 78
Зарегистрирован: 02.07.2008 (Ср) 12:17
Откуда: Тольятти, школа, случайно

Сообщение HKEY_SUPER_MASHINE » 05.07.2008 (Сб) 17:29

А можно в окне сохранения поставить фильтр на html-документы. А то умудрился конвектированное сохранить в исходное (это не фатально - запоротым оказался образец к программе). А то вдруг попадётся под руку что-нибудь важное...
Чипсы оставляют неприятный осадок в желудке
Их состав оставляет неприятный осадок в душе


Вернуться в Статьи

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

    TopList