5/5 (10 avis)
Vue 20 216 fois - Téléchargée 398 fois
Public Class Html2PlainTextClass ' DrTissot 15/02/2006 ' http://www.codes-sources.com/auteurdetail.aspx?ID=189274 ' Fonction permettant de nettoyer un string comportant des tags de type HTML ' EXEMPLE D'UTILISATION DANS UN FORMULAIRE ' Html2PlainTextClass.Clean(TextBox1.Text) Public Shared Sub Clean(ByRef s As String) ' Ajouter vos propres balises ici HTML (ou XML) CleanTagHTML(s, "span") CleanTagHTML(s, "br", vbCrLf) 'Ex: les "br" seront remplacés par des retours chariot CleanTagHTML(s, "li", vbCrLf) CleanTagHTML(s, "table") CleanTagHTML(s, "script") CleanTagHTML(s, "font") CleanTagHTML(s, "div") CleanTagHTML(s, "td") CleanTagHTML(s, "tr") CleanTagHTML(s, "head") CleanTagHTML(s, "html") CleanTagHTML(s, "ul") End Sub Private Shared Sub CleanTagHTML(ByRef s As String, ByVal _tag As String, Optional ByVal _replaceString As String = "") Dim boolStillContinu As Boolean = False Do boolStillContinu = False ' Balises ouverture If InStr(s, "<" & _tag) > 0 Then boolStillContinu = True s = s.Replace(s.Substring(InStr(LCase(s), "<" & _tag) - 1, InStr((InStr(LCase(s), "<" & _tag) + 1), s, ">") - InStr(LCase(s), "<" & _tag) + 1), _replaceString) End If ' Balises fermeture If InStr(s, "</" & _tag) > 0 Then boolStillContinu = True s = s.Replace(s.Substring(InStr(LCase(s), "</" & _tag) - 1, InStr((InStr(LCase(s), "</" & _tag) + 1), s, ">") - InStr(LCase(s), "</" & _tag) + 1), String.Empty) End If ' Balises fermeture XHTML If InStr(s, "</ " & _tag) > 0 Then boolStillContinu = True s = s.Replace(s.Substring(InStr(LCase(s), "</ " & _tag) - 1, InStr((InStr(LCase(s), "</ " & _tag) + 1), s, ">") - InStr(LCase(s), "</ " & _tag) + 1), String.Empty) End If ' Sortie If Not boolStillContinu Then Exit Do Loop End Sub End Class
7 janv. 2009 à 13:47
est ce que on peut convertir de texte vers html??
s'il y a de réponse merci de me répondre.
Merci
15 mars 2006 à 16:25
et en .net, prefere tastring.IndexOf à InStr, tastring.tolower à Lcase, etc...
C'est beaucoup plus lisible, portable entre differents languages .net et en plus c'est fashion tendance lol
20 févr. 2006 à 21:52
20 févr. 2006 à 21:41
20 févr. 2006 à 21:36
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.