.net - couper une chaine de charactère pour en extraire le début

Commenter

Contenu du snippet

Dans le cadre de développement où on souhaite extraire le début d'un texte pour par exemple l'intégrer dans un RSS, j'ai développé ce petit code.
En revanche dans celui-ci je découpe les mots je tombe en plein milieu d'un, il manquerait juste une petite fonction qui rajouterai les lettres manquantes pour ne pas faire cette coupure.

Source / Exemple : 


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

Conclusion :


Bon coding.

Romelard Fabrice

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_fabrice69)