limpiador de html en asp

[engonga]

hola he encontrado este limpiador de tags html en asp

Código PHP:

  'De esta manera se hace la llamada a la funcion para quitar el HTML (siempre tras declarar la función)
strPlainText = RemoveHTML(strTextWithHTML) 


'Esta es la función 
Function RemoveHTML( strText ) 
    Dim TAGLIST 
     'Todas las etiquetas que se encuentren en esta lista serán removidas de 
la cadena de texto 
     'Es importante recordar que todas las etiquetas deben estar rodeqadas 
de ; (punto y coma) 
    TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" 
&_ 
              "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" 
&_ 
              "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" 
&_ 
              "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" 
&_ 
              "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" 
&_ 
              "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" 
&_ 
              "PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" 
&_ 
              "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;" 


     'Todas las etiquetas que se encuentren en esta lista serán removidas 
desde la etiqueta de inicio hasta la de cierre 
     'por ejemplo una llamada a un objeto de flash que abre asi <OBJECT..... 
sera removida hasta donde termine el </OBJECT..... 
    Const BLOCKTAGLIST = 
";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;" 


    Dim nPos1 
    Dim nPos2 
    Dim nPos3 
    Dim strResult 
    Dim strTagName 
    Dim bRemove 
    Dim bSearchForBlock 


    nPos1 = InStr(strText, "<") 
    Do While nPos1 > 0 
        nPos2 = InStr(nPos1 + 1, strText, ">") 
        If nPos2 > 0 Then 
            strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1) 
     strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ") 


            nPos3 = InStr(strTagName, " ") 
            If nPos3 > 0 Then 
                strTagName = Left(strTagName, nPos3 - 1) 
            End If 


            If Left(strTagName, 1) = "/" Then 
                strTagName = Mid(strTagName, 2) 
                bSearchForBlock = False 
            Else 
                bSearchForBlock = True 
            End If 


            If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 
Then 
                bRemove = True 
                If bSearchForBlock Then 
                    If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", 
vbTextCompare) > 0 Then 
                        nPos2 = Len(strText) 
                        nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, 
vbTextCompare) 
                        If nPos3 > 0 Then 
                            nPos3 = InStr(nPos3 + 1, strText, ">") 
                        End If 


                        If nPos3 > 0 Then 
                            nPos2 = nPos3 
                        End If 
                    End If 
                End If 
            Else 
                bRemove = False 
            End If 


            If bRemove Then 
                strResult = strResult & Left(strText, nPos1 - 1) 
                strText = Mid(strText, nPos2 + 1) 
            Else 
                strResult = strResult & Left(strText, nPos1) 
                strText = Mid(strText, nPos1 + 1) 
            End If 
        Else 
            strResult = strResult & strText 
            strText = "" 
        End If 


        nPos1 = InStr(strText, "<") 
    Loop 
    strResult = strResult & strText 


    RemoveHTML = strResult 
End Function 
   

http://www.webtrucos.com/programacio...quitartags.txt


pero cuando lo uso me da un error de sintaxis

Código:

Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/cda/noticies.asp, línea 391
Function RemoveHTML( strText ) 

alguien sabe por que?

[Valery-Net]

qué código tienes en la línea 391?

[Adler]

Hola

Por darte otra alternativa. Yo prefiero usar expresiones regulares

Código asp:

<%
Function LimpiarTags(cadena) 
Dim objRegExp
cadena = lcase(cadena)
cadena = Replace(cadena,"'", """")
cadena = Replace(cadena,"", "")
cadena = Trim(cadena & "")
If Len(cadena) > 0 Then
 
    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]+>" 'todos los tags HTML
'objRegExp.Pattern = "<img[^<>]+>" 'imagenes
strlimpio = objRegExp.Replace(cadena, " ") 
    Set objRegExp = Nothing
End If
    LimpiarTags = strlimpio
End Function
 
Dim cadalimpiar
cadalimpiar = "<table border='1'><tr><td>hola</td></tr></table><div>adios</div><img src='javier.gif' />"
%>
 
<%=LimpiarTags(cadalimpiar)%>
 

Suerte

[engonga]

ya esta solucionado he puesto la funcion al final de todo el codigo y ya funciona

es un limpiados muy bueno y parametrizable