blog/codigo-fuente-para-colorear-un-fragmento-de-codigo-con-vb6

Codigo fuente para colorear un fragmento de código con vb6

Por Yal Publicidad


Publicado el Jue 25 de Febrero del 2021 a las 17:01



Este ejemplo es aplicado con sintaxis PHP, de como colorear código en html.

Introducción

En esta ocasión vamos a colorear un fragmento de código dentro de un HTML, para ello utilizaremos el método .find del RichTextBox...

Contenido

Para este ejemplo utilizaremos las llaves de php el resultado sera algo como esto:

 

<html>
<body>

<?php
    echo("Hola Mundo"); 
?>
<br>
<?php 
    $dia=date("d.m.Y"); 
    echo "$dia";
?>

</body>
</html>

Si nos damos cuenta solo colorea donde encuentra una cadena de apertura <?php y termina hasta que encuentra la llave de cierre ?>

Esta es una forma básica, pero la que, con un poco más de esfuerzo se puede convertir en un verdadero editor de código html. 

El código:

Bien, ahora abrimos un Form insertamos un componente RichTextBox y pegamos el siguiente código:

FORM1:

 

Private Function Resaltar_Texto(RichTextBox As RichTextBox, _
            Cadena1 As String, Cadena2 As String, Color_Text As Long) As Integer
On Local Error Resume Next

    ' Almacena la Posición del primer carácter cuando se encuentra la cadena
    Dim Pos_Caracter As Long
    ' Almacena la Posición Final del carácter cuando se encuentra la cadena
    Dim PosFin_Caracter As Long
    ' Almacena el Tamaño y longitud del texto a buscar
    Dim LenCadena As Long
    ' Inicio de la selección
    Dim posSelInicio As Long
    'Para la posición del texto seleccionado
    Dim posSelLen As Long

        'Guarda la posición y la longitud del texto que está seleccionado
        posSelInicio = RichTextBox.SelStart
        posSelLen = RichTextBox.SelLength

            'Si no encuentra la cadena colorea el texto de color negro
            RichTextBox.SelStart = posSelInicio
            RichTextBox.SelLength = Len(RichTextBox.Text)
            RichTextBox.SelColor = vbBlack

        ' Busca con Find la cadena. En la variable Guardamos la posición donde se encontró
        Pos_Caracter = RichTextBox.Find(Cadena1, 0) 'la búsqueda no es estricta

        While Pos_Caracter > 0
            'Le decimos hasta donde debe colorear el texto
PosFin_Caracter = RichTextBox.Find(Cadena2, Pos_Caracter)
               If PosFin_Caracter > 0 Then
                    LenCadena = (PosFin_Caracter - Pos_Caracter)   2 'si encontramos la cadena ?>, finalizamos
               Else ' si no encontramos la cadena ?> seguimos coloreando hasta que encuentre la cadena ?>
                    LenCadena = Len(RichTextBox.Text)
               End If
            With RichTextBox
                'asignamos la variable anterior a la propiedad SelStart del RichTextBox
                .SelStart = Pos_Caracter

                'Establecemos en SelLength el tamaño de la cadena nuevamente
                .SelLength = LenCadena

                'Esto le asigna el color de resalte que aplicará _
                al texto encontrado en el Richtextbox
                .SelColor = Color_Text

                'Seguimos buscando mas coincidencias
                Pos_Caracter = .Find(Cadena1, _
                                     (Pos_Caracter   LenCadena))
            End With
        Wend

            ' Seteamos las propiedades SelStart y Sellength
            RichTextBox.SelStart = posSelInicio
            RichTextBox.SelLength = posSelLen
End Function

Private Sub RichTextBox1_Change()
    Call Resaltar_Texto(RichTextBox1, "", RGB(255, 0, 0))
End Sub

Colocamos la función en el evento change para que cada vez que se escriba identifique automáticamente si se encuentra o no las cadenas <?php ?>. Si queremos que la coincidencia sea estricta debemos agregar las constantes  rtfWholeWord y rtfMatchCase nuestras función quedará así:

 

Pos_Caracter = RichTextBox.Find(Cadena1, 0, , rtfWholeWord   rtfMatchCase) PosFin_Caracter = RichTextBox.Find(Cadena2, Pos_Caracter, , rtfWholeWord   rtfMatchCase)

 

Con ello tiene que haber un espacio después de la llave de apertura <?php y un espacio antes de la llave de cierre ?> para que identifique que se trata de la cadena de apertura y la de cierre si omitimos esto nuestro ejemplo quedará algo así con las costantes rtfWholeWord y rtfMatchCase:

 

<html><body><?phpecho("Hola Mundo"); ?><br><?php $dia=date("d.m.Y"); echo "$dia";?></body></html>

 

Espero que les sea de mucha utilidad.

 

Saludos

Yuri Lizama

 


Deja un comentario:
Buscar
Acerca de Nosotros
@yalpublicidad Agencia de publicidad online. 19 años de experiencia en el diseño y desarrollo de imagen e identidad corporativa de tu empresa...