gsHTMCodeColor (2)

Utilidad para colorear código y generar el código HTML

15/Nov/2002: Sigue este link para ver las últimas actualizaciones

Publicado: 11/Abr/2001

Revisión del 26/Jun/2002: gsHTMCodeColor Versión 2

En esta revisión, he añadido un control WebBrowser para poder visualizar el código generado, de esta forma, se puede copiar lo mostrado y pegarlo directamente en la página abierta con el editor de nuestra elección, sin tener que hacerlo por la puerta de atrás, es decir modificándolo con un editor de textos.
Aunque aún asi, tendrás que darle el formato correcto... en fin... no se puede tener todo ¿verdad?

A continuación te muestro los cambios que habría que hacer al código anterior.

Desde este link puedes bajarte el código completo, junto al ejecutable: gsHTMCC2.zip 42.4KB


'------------------------------------------- 
' El control WebBrowser está el el Frame1(2)
'------------------------------------------- 
'
'
'----------------------------------------- 
' Este código está en el evento Form_Load
'-----------------------------------------
' Crear y asignar los captions al TabStrip
With Me.TabStrip1
    .Tabs(1).Caption = "Colorear código"
    .Tabs.Add , , "Palabras clave"
    .Tabs.Add , , "Navegador"
End With

'-----------------------------------------
'
Private Sub cmdProcessFile_Click()
    ' Procesar el contenido del fichero de origen
    ' y guardarlo en el fichero de destino
    Dim s As String
    '
    ' Si no se especifica el fichero de origen o destino...
    If Len(Trim$(txtFileFrom.Text)) = 0 Then
        MsgBox "Debes seleccionar el fichero de origen.", vbInformation, "Procesar Fichero"
        cmdBrowseFrom.SetFocus
        Exit Sub
    End If
    '
    If Len(Trim$(txtFileTo.Text)) = 0 Then
        MsgBox "Debes seleccionar el fichero de destino.", vbInformation, "Procesar Fichero"
        cmdBrowseTo.SetFocus
        Exit Sub
    End If
    '
    ' Leer el fichero de origen, procesarlo y guardarlo en el de destino
    s = mFile.StringFromFile(txtFileFrom.Text)
    s = ProcesarFichero(s)
    ' Guardar el contenido en el fichero indicado
    Call mFile.WriteStringToFile(txtFileTo.Text, s)
    '
    ' Mostrarlo en el control WebBrowser                            (09/Abr/01)
    WebBrowser1.Navigate2 txtFileTo.Text
End Sub

Private Sub cmdProcessText_Click()
    ' Procesar el contenido del TextBox
    '
    txtCode.Text = ProcesarFichero(txtCode.Text)
    ' Copiarlo en el portapapeles
    Clipboard.SetText txtCode.Text
    '
    mFile.WriteStringToFile AppPath & "tmp.htm", txtCode.Text
    '
    ' Mostrarlo en el control WebBrowser                            (09/Abr/01)
    WebBrowser1.Navigate2 AppPath & "tmp.htm"
End Sub

 

Nos vemos.
Guillermo

Volver al índice de Mis Utilidades

ir al índice