Discussion :

[Namson]

Bonjour a tous!!! Je travaille sous XP avec Visual Studio 2008 en VB
celà fait maintenant 2 jours que j'essaie en vain d'effectuer une recherche dans un fichier texte...J'ai par exemple un textbox ID dans lequel la valeur inscrite doit être cherchée dans le fichier. Si celà est trouvée afficher le nom correspondant au textbox ID dans un textbox Nom
Puisque mon fichier est enregistré de cette facon
ID Nom Prenom
1 Isaac Marc

Fatigué de chercher j'ai essayé de compter le nombre de fois je retrouve mon ID ou un nom quelconque dans le fichier...Ici est mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i, j As System.Int32
        strTexte = Txtresult.Text
        strChaine = txtID.Text
 
        For i = 0 To strTexte.Length - strChaine.Length Step 1
            If strTexte.Substring(i, strChaine.Length) = strChaine Then
                j += 1
                Txtresult.SelectionStart = i
                Txtresult.SelectionLength = strChaine.Length
            End If
 
        Next
        TxtName.Text = j

Et ce code...marche...j'ai aussi essayé de voir dans quelques mesures je pourrai la modifier pour recupérer le nom en fonction de l'ID.
Merci...AIdez car je meurs dejà....

[Sankasssss]

Hello,
Moi perso j'aurais utilisé la fonction split qui te retourne un tableau de string,
Le premier élément de ton tableau étant ton id.
Le seul hic c'est que quoi qu'il arrive, vu que le délimiteur ici est un espace, si tu as un nom composer du genre van den bosh il prendra trois place dans le tableau...
Je ne sais pas si tu peux modifier ton fichier source, si c'est le cas, je mettrais des TAB entre chaque élément comme ca ton split sur ton TAB te retournera toujours trois élément dans ton tableau : 0 = id, 1 = nom , 2 = prenom...

Avec cette méthode tu simplifie énormément ta recherche...

[Namson]

Salut Sankassssss...
OK au fait dans mon fichier les données sont separées par des points virgules (
OK j'ai essayé de lire un peu de docs sur la fonction Split...et sa pourrait aller si tu pouvais m'aider un peu avec un semblant de code...pour mieux m'expliquer pour voir en vrai comment cette fonction marche et comme je puisse l'utiliser dans mon cas....
Ce serait sympa de ta part...Merci

[Sankasssss]

ce serais don un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        Dim SR As StreamReader = File.OpenText("MonFichier.txt") '
 
        Dim ligne As String
        Do Until SR.Peek = -1
            ligne = SR.ReadLine()
            Dim spli() As String = ligne.Split(";") 'ici on met chaque partie du string séparée par un ; dans une case du baleau de string spli()
            Dim strId As String = spli(0) 'ici tu as ton id, première case du tableau
            Dim strNom As String = spli(1) 'ici tu as ton nom...
            Dim strPrenom As String = spli(2) 'ici tu as ton prenom...
            ' ici le traitement genre
            if spli(0).equals(textbox1.text) then
                   ' traitement
            end if
        Loop
 
        SR.Close()

[Namson]

Merci bien Champion..Cela marche parfaitement en adaptant cela a ma situation...Merci infiniment

[Sankasssss]

De rien, content de t'avoir aidé.
Bonne soirée (nuit...)