[ASP] Récupérer les texte généré par du code HTML

Résolu
cs_aloisio11 Messages postés 126 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 7 décembre 2009 - 9 janv. 2009 à 09:24
cs_aloisio11 Messages postés 126 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 7 décembre 2009 - 9 janv. 2009 à 11:59
Bonjour à tous,

J'ai une variable contenant du code HTML et je voudrait en extraire seulement le texte qui est censé être affiché.
Y a t il quelque chose qui fait cela ?

J'espère que j'ai été clair dans mon explication ...

Merci d'avance

1 réponse

cs_aloisio11 Messages postés 126 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 7 décembre 2009
9 janv. 2009 à 11:59
Vu que aparement il n'y a pas de fonction pour cela j'en fait une qui fait à peut près ce que je voulais.

    function HTMLtoTexte(pTexte)
   
        pTexte = Replace(pTexte, "<TR>", vbcrlf)
        pTexte = Replace(pTexte, "</TR>", vbcrlf)
        pTexte = Replace(pTexte, "
", vbcrlf)
        pTexte = Replace(pTexte, "
", vbcrlf)
   
        pTexte = Replace(pTexte, "<tr>", vbcrlf)
        pTexte = Replace(pTexte, "</tr>", vbcrlf)
        pTexte = Replace(pTexte, "
", vbcrlf)
        pTexte = Replace(pTexte, "
", vbcrlf)
       
        vRes = ""
        vInBalise = false
        For vCpt = 1 to Len(pTexte)
            if Mid(pTexte, vCpt, 1) <> "<" and Mid(pTexte, vCpt, 1) <> ">" and not vInBalise then
                vRes = vRes & Mid(pTexte, vCpt, 1)
            end if
           
            if Mid(pTexte, vCpt, 1) = "<" and Not vInBalise then
                vInBalise = true
            else
                if Mid(pTexte, vCpt, 1) = ">" and vInBalise then
                    vInBalise = false
                end if   
            end if
        Next
       
        vRes = Mid(vRes, Instr(UCase(vRes), "BONJOUR"))
       
        vRes = Replace(vRes, vbcrlf & vbcrlf , vbcrlf)
   
        HTMLtoTexte = vRes
    End function
3
Rejoignez-nous