VIRER LES BALISES HTML

''' str : code HTML a netoyer
Function Vire_balise(str as String) As String
Dim pos_deb
Dim pos_fin
Dim part_d
Dim part_f

''' pour un minimum de clarté, on met de retour chariot
''' a la place de la balise corespondante.
str = Replace(str, "<BR>", vbCrLf, , , vbTextCompare)

''' debut de la boucle.
''' qui extrait la premier balise qu'elle rencontre
''' jusqu'a ce qu'il n'y ai plus de balise a extraire
pos_deb = InStr(1, str, "<")
Do Until pos_deb = 0
    pos_fin = InStr(pos_deb, str, ">")
    part_d = Mid(str, 1, pos_deb - 1)
    part_f = Mid(str, pos_fin + 1, Len(str) - pos_fin)
    str = part_d & part_f
    pos_deb = InStr(1, str, "<")
Loop

''' vous pouvez replacer d'autre caractere HTML
''' si vous en connaissez d'autre
str = Replace(str, "&nbsp;", "", , , 1)
str = Replace(str, "&amp;", "&", , , 1)
str = Replace(str, "&eacute;", "é", , , 1)
str = Replace(str, "&agrave;", "à", , , 1)
str = Replace(str, "&egrave;", "è", , , 1)
str = Replace(str, "&ecirc;", "ê", , , 1)
str = Replace(str, "&quot;", """", , , 1)


Vire_balise = str
End Function