1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| LongTexte = Len(html)
mCurPos = 1
Do
startPos = InStr( mCurPos, html, '<' ) // Position du caractère <
if startPos < 1 Then // Si < n'existe pas c'est qu'on a du texte.
Contenu = Mid( html, mCurPos )
Exit
else
Contenu = Mid( html, mCurPos, startPos-mCurPos )
if Trim(Contenu) <> '' Then
Lignes.Append Contenu
end if
mCurPos = startPos
endPos = InStr( startPos+1, html, '>' )
if endPos < 1 Then
endPos = startPos
end if
Balise = Mid( html, startPos, endPos-startPos+1 ) // La balise va de < jusqu'à >
Lignes.Append Balise
if mCurPos <= endPos Then
mCurPos = endPos+1
end if
end if
Loop Until mCurPos >= LongTexte
Return Lignes |
Partager