Petit programme de recherche en mode console

Question

Salut,

Je ne savais pas ou poster mon petit code alors je l'es mis là:
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 = Len(Chaine)
    Dim NombreCaractères As Integer = 0
    Dim Recherche As Integer = 0
    Dim DebutRecherche As Integer = 1
    Dim ChaineRechercher As String = "aBc"
    Dim LongueurChaineRechercher As Integer = Len(ChaineRechercher)

    Sub Main()

        Recherche = InStr(DebutRecherche, Chaine, ChaineRechercher, CompareMethod.Binary)
        Console.WriteLine("La chaine: " + Chr(34) + ChaineRechercher + Chr(34) + " a été trouvé à la position: " & Recherche)

        For Position As Integer = 1 To Longueur

            If Position < Recherche Then
                Console.Write(Mid(Chaine, Position, 1))
            ElseIf Position >= Recherche And Position <= (Recherche + LongueurChaineRechercher - 1) Then
                Console.BackgroundColor = ConsoleColor.Yellow
                Console.ForegroundColor = ConsoleColor.Red
                Console.Write(Mid(Chaine, Position, 1))
            Else
                Console.ResetColor()
                Console.Write(Mid(Chaine, Position, 1))
            End If

        Next


        Console.ReadLine()

    End Sub

J'ai fais ça pour m'amuser, c'est sympa je trouve 
A+

ucfoutu · Answer

Bonjour, 
Oui ?
Et ?


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Je crains que tu ne confondes un forum de développeurs avec une vitrine de tes "avancements" en développement 
A moins que tu nous précises le but autre de l'ouverture d'une telle "discussion" ...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

Bonjour,

Len, Instr, Mid, Chr, CompareMethod sont obsolète.
On utilise Length, IndexOf, SubString et Convert à la place.

Utilisateur anonyme · Answer

Bon dimanche ucfoutu

cs_dayvid · Answer

Len, Instr, Mid, Chr, CompareMethod sont obsolète.
On utilise Length, IndexOf, SubString et Convert à la place. 
Ba voilà, notre discussion est désormais établie

cs_dayvid · Answer

Length, IndexOf, SubString et Convert à la place
Moi je ne sais pas c'est quoi ça et ça n'apparais pas en plus cher moi !

cs_Jack · Answer

Salut

Parce que ce ne sont plus des instructions, mais des propriétés :
Len(ChaineRechercher)
deviendrait
ChaineRechercher.Length

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)

cs_dayvid · Answer

Ah ok !!!
Merci beaucoup

cs_dayvid · Answer

Ceci est t-il mieux ?:
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

cs_ShayW · Answer

Salut
Ceci est t-il mieux ?: 

non 
bien qu'on peut faire plus simple c'est une
autre histoire
au moins commente ton code

cs_dayvid · Answer

Bien monsieur

Petit programme de recherche en mode console

11 réponses

Votre réponse

Discussions similaires