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

[gaidar]

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

http://vbstreets.ru/VB/Articles/66430.aspx

[_ae_]

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

[gaidar]

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

Нежелательных, да. Но он будет поддерживаться всеми последующими браузерами еще неизвесно сколько.

[_ae_]

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

[Самоделкин]

Насчёт 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. Так сказать, персональный сервис. А то ещё запутается.

[Хакер]

Код: Выделить всё

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

На мой взгляд, разница очевидна.

[HKEY_SUPER_MASHINE]

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