Categoría: cosas técnicas

Public Shared Function RTFaSPAN(texto As String,
                                usarTemaOscuro As Boolean,
                                indentar As Integer,
                                quitarEspaciosIniciales As Boolean) As String
        

' La segunda línea será la definición de los colores
Dim colores() As String
Dim n As Integer = -1
Dim j, k As Integer

' Usar expresiones regulares para buscar los colores
Dim re As New Regex("(?<r>(\b\\\b0 red\d0{1,3}))(?<g>(\b\\\b0 green\d0{1,3}))(?<b>(\b\\\b0 blue\d0{1,3}));")
Dim mc As MatchCollection = re.Matches(texto)
ReDim colores(0 To mc.Count)
j = 1
colores(0) = ""

' guardarlos en formato hexadecimal (Adaptado para Modo Oscuro)
For Each m As Match In mc 're.Matches(texto)
    ' 1. Extraer el valor hexadecimal original en mayúsculas (Formato "RRGGBB")
    Dim hexOriginal As String = CInt(m.Groups("r").Value.Substring(4)).ToString("X2") &
                        CInt(m.Groups("g").Value.Substring(6)).ToString("X2") &
                        CInt(m.Groups("b").Value.Substring(5)).ToString("X2")

    ' 2. Si el CheckBox está marcado, pasamos el valor por el traductor
    If usarTemaOscuro Then
        Select Case hexOriginal
            Case "0000FF" ' Azul estándar (Keywords: Dim, Public, Class...)
                colores(j) = "569CD6" ' Cian brillante (Modo oscuro)

            Case "008000" ' Verde estándar (Comentarios)
                colores(j) = "57A64A" ' Verde claro (Modo oscuro)

            Case "007F00", "228B22" ' Otras variantes de verde
                colores(j) = "608B4E"

            Case "A31515" ' Marrón/Rojo (Cadenas de texto / Strings)
                colores(j) = "D69D85" ' Salmón/Marrón claro

            Case "000000" ' Texto normal, variables, operadores
                colores(j) = "DCDCDC" ' Gris claro / Blanco hueso

            Case "2B91AF" ' Azul verdoso (Tipos de datos: Integer, Form...)
                colores(j) = "4EC9B0" ' Turquesa/Verde agua

            Case Else
                ' Si es un color que no tenemos mapeado, mantenemos el original
                colores(j) = hexOriginal
        End Select
    Else
        ' Si la casilla NO está marcada, se queda con el comportamiento claro de siempre
        colores(j) = hexOriginal
    End If

    j += 1

        

''' <summary>
''' Genera el bloque HTML completo e interactivo (Claro y Oscuro) con cajas independientes.
''' </summary>
Public Shared Function ObtenerCodigoDualHTML(ByVal rtfContenido As String) As String
    ' 1. Obtener el código coloreado llamando a tu método de 4 parámetros
    ' Pasamos 0 a indentar y False a quitar espacios, tal como haces tú al copiar de VS.
    Dim htmlClaroCuerpo As String = RTFaSPAN(rtfContenido, usarTemaOscuro:=False, indentar:=0, quitarEspaciosIniciales:=False)
    Dim htmlOscuroCuerpo As String = RTFaSPAN(rtfContenido, usarTemaOscuro:=True, indentar:=0, quitarEspaciosIniciales:=False)

    ' NOTA IMPORTANTE: Si tus métodos actuales ya devuelven el <pre> y </pre> obligatoriamente,
    ' los limpiamos aquí rápidamente para quedarnos solo con el contenido coloreado:
    If htmlClaroCuerpo.StartsWith("<pre") Then
        htmlClaroCuerpo = htmlClaroCuerpo.Substring(htmlClaroCuerpo.IndexOf(">") + 1).Replace("</pre>", "")
    End If
    If htmlOscuroCuerpo.StartsWith("<pre") Then
        htmlOscuroCuerpo = htmlOscuroCuerpo.Substring(htmlOscuroCuerpo.IndexOf(">") + 1).Replace("</pre>", "")
    End If

    ' 2. Ensamblar la plantilla con las cajas <pre> controladas al 100% por nosotros
    Dim sb As New System.Text.StringBuilder()

    ' Selector de botones superior
    sb.AppendLine("<div class='selector-codigo'>")
    sb.AppendLine("    <button onclick=""cambiarCodigo(this, 'claro')"" class='btn-codigo activo'> \u9728?\u-497?  Modo Claro</button>")
    sb.AppendLine("    <button onclick=""cambiarCodigo(this, 'oscuro')"">\f3\u-10180?\u-8423?  Modo Oscuro</button>")
    sb.AppendLine("</div>")

    sb.AppendLine("<div class='contenedor-codigo-dual'>")

    ' --- CAJA CLARA (Fondo blanco forzado en línea) ---
    sb.AppendLine("    <div class='codigo-version codigo-claro'>")
    sb.AppendLine("        <pre style=""background-color: #ffffff; color: #000000; border: 1px solid #e2e8f0; padding: 20px; border-radius: 8px; font-family: 'Consolas', 'Courier New', monospace; font-size: 14px; line-height: 1.5; max-width: 92%; width: 92%; margin-left: auto; margin-right: auto; display: block; overflow-x: auto; white-space: pre; word-wrap: normal; box-sizing: border-box;"">")
    sb.AppendLine(htmlClaroCuerpo)
    sb.AppendLine("        </pre>")
    sb.AppendLine("    </div>")

    ' --- CAJA OSCURA (Fondo oscuro VS forzado en línea) ---
    sb.AppendLine("    <div class='codigo-version codigo-oscuro' style='display: none;'>")
    sb.AppendLine("        <pre style=""background-color: #1e1e1e; color: #dcdcdc; border: 1px solid #e2e8f0; padding: 20px; border-radius: 8px; font-family: 'Consolas', 'Courier New', monospace; font-size: 14px; line-height: 1.5; max-width: 92%; width: 92%; margin-left: auto; margin-right: auto; display: block; overflow-x: auto; white-space: pre; word-wrap: normal; box-sizing: border-box;"">")
    sb.AppendLine(htmlOscuroCuerpo)
    sb.AppendLine("        </pre>")
    sb.AppendLine("    </div>")

    sb.AppendLine("</div>")

    Return sb.ToString()