Module Module1 ''' <summary> ''' Permet de renvoyer le nombre d'occurence d'une sous chaine dans une chaine de caractères ''' </summary> ''' La chaine de caractère ou rechercher ''' La chaine à rechercher ''' <returns>Renvoie le nombre de fois qu'à été trouve la chaine dans la chaine de caractères</returns> ''' <remarks></remarks> ''' Function CountString(Chaine As String, ChaineChercher As String, Optional RespecterCase As Boolean = False) As Long If RespecterCase Then Return (Len(Chaine) - Len(Replace(Chaine, ChaineChercher, "", , , 0))) / Len(ChaineChercher) Else Return (Len(Chaine) - Len(Replace(Chaine, ChaineChercher, "", , , 1))) / Len(ChaineChercher) End If End Function 'Exemple d'utilisation: Dim Chaine As String = " Abc def abc Ghi Def abc jkl ghi abc Mno Jkl " Dim ChaineChercher As String = "abc" Sub Main() Console.Write(CountString(Chaine, ChaineChercher, False)) Console.ReadLine() End Sub End Module
Return (Len(Chaine) - Len(Replace(Chaine, ChaineChercher, "", , , 0))) / Len(ChaineChercher)
Return ((Chaine.Length - Chaine.Replace(ChaineChercher, "").Length) / ChaineChercher.Length)
D'ailleurs c'est quoi ça le dernier truc au juste ?!
On écrit " SES " si on peut dire : " MON ou MA "
On écrit " CES " si on peut dire : " CE ,CET ouCETTE "
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionBonjour à tous, merci à Dayvid, normalement c'est moi qui dois t'aider et non l'inverse
En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).
On écrit " SES " si on peut dire : " MON ou MA "
On écrit " CES " si on peut dire : " CE ,CET ou CETTE "
Le voici, mais oui, le fameux truc du jour tant attendu...