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

Question

Sujet Précédent Sujet Suivant

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

Signaler

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

A voir également:

Vbcrlf asp
Asp vbcrlf - Meilleures réponses
VbTab et vbCrLf ???????? - Forum - ASP / ASP.NET
Asp access - Conseils pratiques - ASP / ASP.NET
Site web asp.net exemple - Guide
Asp.net decompiler - Conseils pratiques - C# / .NET
Web service asp - Conseils pratiques - Visual Basic / VB.NET

1 réponse

Répondre Posez votre question

cs_aloisio11 · Accepted Answer · 2009-01-09T11:59:30+0100

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

Votre réponse