jc the great | Code :
- Dim Is_text
- Is_text = true
- Dim Str_sortie, Str_balise, Str_text, Str_char
- Str_texte = ""
- Str_balise = ""
- Str_sortie = ""
- Str_char = ""
- 'on recupere ta chaine Ma_chaine
- Dim lng_compteur
- lng_compteur = 1
- While lng_compteur <= len( Ma_chaine )
- 'si le dernier etait >
- if Str_char = ">" then
- Is_texte = True
- end if
- 'on recupere le courant
- Str_char = mid( Ma_chaine , lng_compteur , 1 )
- if Str_char = "<" then
- Is_texte = false
- 'ici on peut rajouter un filtre sur chaine vide
- if Str_texte <> "" then
- Str_sortie = Str_sortie & server.htmlencode( Str_texte )
- Str_texte = ""
- end if
- Str_balise = ""
- end if
- if Str_char = ">" then
- 'on met la balise en sortie
- Str_sortie = Str_sortie & Str_balise & ">"
- end if
- if is_texte then
- Str_texte = str_texte & Str_char
- else
- Str_balise = Str_balise & Str_char
- end if
- lng_compteur = lng_compteur + 1
- Wend
|
Message édité par jc the great le 26-05-2004 à 10:49:05 ---------------
"L'autodidacte, qui dans la vie, est parti de zéro pour n'arriver à rien dans l'existence, n'a de merci à dire à personne." (Pierre Dac)
|