Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 298 fois - Téléchargée 43 fois
''' 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, " ", "", , , 1) str = Replace(str, "&", "&", , , 1) str = Replace(str, "é", "é", , , 1) str = Replace(str, "à", "à", , , 1) str = Replace(str, "è", "è", , , 1) str = Replace(str, "ê", "ê", , , 1) str = Replace(str, """, """", , , 1) Vire_balise = str End Function
14 avril 2007 à 16:09
c'est plus simple et ta déja tout le code décripter !
:)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.