5/5 (2 avis)
Snippet vu 22 179 fois - Téléchargée 33 fois
' ----------------------------------------------------- Public Shared Function CoupeTexteMessage(ByVal Message As String, ByVal Nbcaracteres As Integer) As String ' Coupe le message pour affichage du résumé sur la page d'accueil Dim TempString As String = Left(StripHTML(Message.Replace("<br>", ". ")), Nbcaracteres) Return (TempString) End Function ' ----------------------------------------------------- Public Shared Function StripHTML(ByVal LeTxt As String) As String Dim MaRegex As New System.Text.RegularExpressions.Regex("") Dim tmpTxt As String = LeTxt & "" tmpTxt = MaRegex.Replace(tmpTxt, "(<[^>]+>)", " ") MaRegex = Nothing Return tmpTxt End Function ' ----------------------------------------------------- ' Pour appeler cette fonction il suffit de faire comme ceci : CoupeTexteMessage(Trim(MaChaineACouper), 200) & " ..." ' Je prends donc 200 caratères depuis la gauche (soit les 200 premier caratères qui ne sont pas des balise HTML).
13 mai 2005 à 16:20
7 mai 2005 à 08:44
Peut-être qu'en prenant le premier espace à partir du 180ème caractère serait la solution ?
Bon coding.
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.