Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLen, Instr, Mid, Chr, CompareMethod sont obsolète.
On utilise Length, IndexOf, SubString et Convert à la place.
Length, IndexOf, SubString et Convert à la place
Module Module1 Dim Chaine As String = " Abc 123 def Ghi abc 456 jkl mno aBc 789 pqr stu vwx 369 abC" Dim Longueur As Integer = 0 Dim Recherche As Integer = 0 Dim DebutRecherche As Integer = 0 Dim ChaineRechercher As String = "aBc" Dim LongueurChaineRechercher As Integer = 0 Dim RechercherJusqua As Integer = 0 Dim Extraction As String = "" Dim NombreCaractèresExtrait As Integer = 1 Sub Main() Longueur = Chaine.Length LongueurChaineRechercher = ChaineRechercher.Length RechercherJusqua = Longueur Recherche = Chaine.IndexOf(ChaineRechercher, DebutRecherche, RechercherJusqua, StringComparison.Ordinal) Console.WriteLine("La chaine: " + Chr(34) + ChaineRechercher + Chr(34) + " a été trouvé à la position: " & Recherche) For Position As Integer = 1 To Longueur - 1 Extraction = Chaine.Substring(Position, NombreCaractèresExtrait) If Position < Recherche Then Console.Write(Extraction) ElseIf Position >= Recherche And Position <= (Recherche + LongueurChaineRechercher - 1) Then Console.BackgroundColor = ConsoleColor.Yellow Console.ForegroundColor = ConsoleColor.Red Console.Write(Extraction) Else Console.ResetColor() Console.Write(Extraction) End If Next Console.ReadLine() End Sub End Module
Ceci est t-il mieux ?: