.NET - COUPER UNE CHAINE DE CHARACTÈRE POUR EN EXTRAIRE LE DÉBUT

' -----------------------------------------------------
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).