Insertar etiqueta de control personalizado en AJAX HTML Editor

[Bravenap]

Muy buenas. Para crear los contenidos de determinadas secciones de un sitio he tratado de insertarlos en una base de datos. Almacenar el texto con formato HTML no hay problema, ya que lo edito a través de un Editor HTML del Ajax Control Toolkit.

La cuestión es si quiero insertar alguno de los controles personalizados que tengo para la aplicación. Al leer la base de datos y mostrarlo, lógicamente no me va a interpretar las etiquetas del control personalizado y me lo va a enviar al cliente tal cual:

Código HTML:

<controlesPersonalizados:DescargaDocumento ID="DescargaDocumentoID" 
            runat="server" NavigateUrl="documento.pdf" Target="_blank">Descargar documento</controlesPersonalizados:DescargaDocumento>
 

Había pensado procesar previamente el texto obtenido de la base de datos y sustituir la etiqueta del control por una inserción dinámica del control personalizado. Indicar que el texto de la base de datos (código HTML) se procesa a su vez en el evento Render de otro control personalizado:

Código vb:

Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)
            'MyBase.Render(writer)
            writer.Write(String.Format("<h1>{0}</h1>", Titulo))
            writer.Write(String.Format("{0}", Contenido))
            writer.Write(String.Format("<div class=""fechasSeccion"">Publicado: {0:dd/MM/yyyy}", FechaPublicacion))
            If FechaActualizacion <> FechaPublicacion Then
                writer.Write(String.Format(" Última actualización: {0:dd/MM/yyyy}</div>", FechaActualizacion))
            End If
            writer.Write("</div>")
        End Sub
 

Gracias y un saludo.

[Bravenap]

Bueno, la cosa se complica. He pensado la siguiente opción: buscar en la propiedad Contenido mediante expresiones regulares la etiqueta correspondiente al control personalizado, pero hacerlo mejor tipo BBCode:

Código vb:

Contenido = "Esto es el texto que contiene etiquetas HTML y BBCode para
interpretar. Por ejemplo:
[cpersCuadroNotas Titulo='Título del cuadro']
El cuadro de notas tiene texto y a su vez otros controles personalizados
<ul>
<li>[cpersDescargaDocumento NavigateUrl='Documento1.pdf' Target='_parent']Documento en PDF[/cpersDescargaDocumento]</li>
<li>[cpersDescargaDocumento NavigateUrl='Documento1.doc' Target='_blank']Documento en MS Word[/cpersDescargaDocumento]</li>
</ul>
[/cpersCuadroNotas]"
 

CuadroNotas y DescargaDocumento son los controles personalizados heredados de Panel e HyperLink respectivamente y el resultado debería ser algo así:

Código HTML:

Esto es el texto que contiene etiquetas HTML y BBCode para
interpretar. Por ejemplo:
<ControlesPersonalizados:CuadroNotas ID="CuadroNotas_1" Runat="server" Titulo="Título del cuadro">
El cuadro de notas tiene texto y a su vez otros controles personalizados
<ul>
<li><ControlesPersonalizados:DescargaDocumento ID="DescargaDocumento_1" Runat="server" NavigateUrl="Documento1.pdf" Target="_parent">Documento en PDF</ControlesPersonalizados:DescargaDocumento></li>
<li><ControlesPersonalizados:DescargaDocumento ID="DescargaDocumento_2" Runat="server" NavigateUrl="Documento1.doc" Target="_blank">Documento en MS Word</ControlesPersonalizados:DescargaDocumento></li>
</ul>
</ControlesPersonalizados:CuadroNotas>
 

La inserción dinámica es sencilla en el evento Render

Código vb:

Dim cp As New ControlesPersonalizados.DescargaDocumento
            cp.NavigateUrl = "Documento1.pdf"
            cp.Target = "_parent"
            cp.Text = "Documento en PDF"
            cp.RenderControl(writer)
 

lo difícil está en saber cuándo intercalarlo antes de hacer:

Código vb:

writer.Write(Contenido)
 

Un saludo.

[Bravenap]

Bueno, más o menos resuelto sólo para dos controles personalizados (descarga de documentos y nota lateral). Os lo dejo por si sirve de ayuda a alguien (y también para mejorarlo y sugerir, claro):

Código vb:

Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)
            writer.Write(String.Format("<h1>{0}</h1>", Titulo))
            writer.Write("<!-- Iniciando proceso de contenido -->")
            writer.Write(procesarContenidos(Contenido))
            writer.Write("<!-- Contenido procesado -->")
            writer.Write(String.Format("<div class=""fechasSeccion"">Publicado: {0:dd/MM/yyyy}", FechaPublicacion))
            If FechaActualizacion <> FechaPublicacion Then
                writer.Write(String.Format(" Última actualización: {0:dd/MM/yyyy}</div>", FechaActualizacion))
            End If
            writer.Write("</div>")
        End Sub
 
        Private Function procesarContenidos(ByVal texto As String) As String
            Dim er As New System.Text.RegularExpressions.Regex("")
            Dim strPatt As String = String.Empty
            Dim match As System.Text.RegularExpressions.Match
            Dim sb As StringBuilder
            Dim tw As System.IO.StringWriter
            Dim hw As HtmlTextWriter
 
            'Procesa primero todos los controles de descarga de documentos
            '(HyperLink personalizado) ya que no pueden tener controles hijo
            strPatt = "\[cpersDescargaDocumento NavigateUrl=""(?<NavigateUrl>[^\s]*)"" Target=""([^\s]*)"" Text=""(?<Text>[^""]*)"" /\]"
            Do While er.Match(texto, strPatt).Success
                sb = New StringBuilder
                tw = New System.IO.StringWriter(sb)
                hw = New HtmlTextWriter(tw)
                match = er.Match(texto, strPatt)
                Dim dd As New ControlesPersonalizados.DescargaDocumento
                dd.NavigateUrl = match.Groups("NavigateUrl").Value
                dd.Target = match.Groups("Target").Value
                dd.Text = match.Groups("Text").Value
                dd.RenderControl(hw)
                texto = String.Format("{0}{1}{2}", _
                    texto.Substring(0, match.Index), _
                    sb.ToString, _
                    texto.Substring(match.Index + match.Length))
            Loop
 
            'Procesa los cuadros de notas laterales (Panel personalizado)
            strPatt = "\[cpersCuadroNotas Titulo=""(?<Titulo>[^\""]*)""\](?<Contenido>.*)\[/cpersCuadroNotas\]"
            Do While er.Match(texto, strPatt).Success
                sb = New StringBuilder
                tw = New System.IO.StringWriter(sb)
                hw = New HtmlTextWriter(tw)
                match = er.Match(texto, strPatt)
                Dim cn As New ControlesPersonalizados.CuadroNotas
                cn.Titulo = match.Groups("Titulo").Value
                cn.ContenidoAlternativo = match.Groups("Contenido").Value
                cn.RenderControl(hw)
                texto = String.Format("{0}{1}{2}", _
                    texto.Substring(0, match.Index), _
                    sb.ToString, _
                    texto.Substring(match.Index + match.Length))
            Loop
 
            Return texto
        End Function
 

Un saludo.