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