[vb.net]enregistrer une variable dans une lecture en boucle [erreur]

Version imprimable

Bonjour à tous,

J'ai un fichier texte auquel je lis chaque ligne en boucle (la ligne s'enregistre dans une variable). je voudrais lire le fichier jusqu'à qu'il trouve des charactères contenu dans une 2nde variable (cette variable est remplie par une textbox).

S'il trouve cette variable il arrete la recherche et enregistre la ligne du fichier test dans une tableau.

Ensuite je récupère les informations de ce tableau dans des textboxs.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub charger() Dim tab() As String Dim SR As StreamReader = File.OpenText("\My Documents\2008.txt") Dim AnalyseChaine As String CodePSV = Box_Code.Text 'La variable CodePSV pred la valeur de la textbox Box_Code 'je lis mon fichier texte ligne par ligne Do FichierTexte = SR.ReadLine() 'MsgBox(FichierTexte) Loop Until FichierTexte Is Nothing 'On cherche dans la variable FichierTexte le contenu de la variable du CodePSV AnalyseChaine = FichierTexte.IndexOf(CodePSV) 'S'il trouve alors il met dans un tableau le contenu de cette variable If AnalyseChaine >= 0 Then tab = FichierTexte.Split(";") End If
Le problème c'est qu'il bloque dans l'analyse de la chaine ou dans la création du tableau (si j'enlève la partie analyse)
Par contre si j'enregistre une ligne précise (la 1ère en gros...) il accepte de créer le tableau.
Quel est mon problème?

Citation:

L'exception System.NullReferenceException n'a pas été gérée
Message="NullReferenceException"
StackTrace:
at Tableau.Form1.charger()
at Tableau.Form1.Form1_Load()
at System.Windows.Forms.Form.OnLoad()
at System.Windows.Forms.Form._SetVisibleNotify()
at System.Windows.Forms.Control.set_Visible()
at System.Windows.Forms.Application.Run()
at Tableau.Form1.Main()

17/09/2007, 18h07
tomlev
Ben forcément...

Code:

Loop Until FichierTexte Is Nothing

Donc quand tu sors de ta boucle, FichierTexte est une référence nulle ! Soit dit en passant, à chaque passage dans ta boucle, tu écrases la valeur précédente de la variable...
Tu pourrais faire comme ça :
Code:

1 2 3 4 5 Do uneLigne = SR.ReadLine() If Not uneLigne Is Nothing Then FichierTexte = FichierTexte + uneLigne Loop Until uneLigne Is Nothing
Mais il y a 10 fois plus simple :
Code:

1 2 FichierTexte = SR.ReadToEnd()
Et là ça devrait aller mieux ;)
18/09/2007, 10h51
skaraa

Que j'efface la variable c'est pas grave car en fait je n'ai besoin que de la ligne qui contient la variable du code recherchée.
Si je recherche un autre code il recommencera une nouvelle recherche et la précédente ne nous interessera plus.
Si je veux la retrouver j'aurais juste a rechercher à nouveau cette variable.

Le problème du ReadTOEnd (ce que je faisais au début) c'est qu'il me lit TOUT mon fichier texte (logique :)) par consequant quand je crée mon tableau il me le gere à la suite.

ex: si j'ai un fichier:

Citation:

L1C1;L1C2;L1C3;
L2C1;L2C2;L2C3;

Il me fera un tableau

Citation:

L1C1
L1C2
L1C3
L2C1
L2C2
L2C3

et donc quand je recherche une variable il ne sait pas lire les informations liée à celle ci...

Je sais que je débute et je sais pas si j'ai opté pour la bonne solution, mais l'avantage, quand je lis une ligne en boucle, c'est qu'il selectionne seulement la ligne dans laquelle il trouve ma valeur (mon code) et il affiche donc toutes les autres infos de la ligne.

En revanche j'ai toujours le même problème... j'arrive a afficher les infos de la ligne complète si je trouve au moins une des valeurs (cad L1C1,L1C2 ou L1C3) il affichera les 2 autres s'il trouve rien il indique que le code n'existe pas. mais quand j'essaye de lire les ligne en boucle il persiste a me dire "NullReferenceException"

Comme je te l'ai dit, ta boucle Do... Loop continue jusqu'à ce que FichierTexte soit null (Nothing). Donc si tu essaies d'accéder à une propriété ou méthode de cette variable après la sortie de la boucle, tu es sûr d'avoir une NullReferenceException.
Pourquoi tu ne fais pas la recherche (IndexOf) dans la boucle ? Comme ça tu chercherais dans chaque ligne du fichier, au lieu de chercher dans rien du tout... (vu que FichierTexte vaut Nothing au moment où tu fais ton IndexOf).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub charger() Dim tab() As String Dim SR As StreamReader = File.OpenText("\My Documents\2008.txt") Dim AnalyseChaine As String CodePSV = Box_Code.Text 'La variable CodePSV pred la valeur de la textbox Box_Code 'je lis mon fichier texte ligne par ligne Do FichierTexte = SR.ReadLine() 'MsgBox(FichierTexte) 'On cherche dans la variable FichierTexte le contenu de la variable du CodePSV AnalyseChaine = FichierTexte.IndexOf(CodePSV) 'S'il trouve alors il met dans un tableau le contenu de cette variable If AnalyseChaine >= 0 Then tab = FichierTexte.Split(";") Exit Do ' On a trouvé, plus la peine de continuer à chercher End If Loop Until FichierTexte Is Nothing

tout d'abord merci de tes réponse,

mais je galère encore :(

Citation:

2008.txt

L1C1;L1C2;L1c3;
L2C1;L2C2;L2C3;
L3C1;L3C2;L3C3;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Class Form1
 
    Sub charger()
 
        Dim tab() As String
        Dim SR As StreamReader = File.OpenText("\My Documents\2008.txt")
        Dim AnalyseChaine As String
        Dim UneLigne As String
        Dim CodePSV As String
        Dim VerifPSV As String = 0
 
        'La variable CodePSV prend la variable de la textbox "Box_Code"
        CodePSV = Box_Code.Text
 
        'On lit le fichier jusqu'à trouver la fin
        Do
            ' La variable UneLigne prend la valeur d'une ligne du fichier texte
            UneLigne = SR.ReadLine()
            'on recherche le codePSV dans la ligne lue
            AnalyseChaine = UneLigne.IndexOf(CodePSV)
            'si la valeur est trouvée on découpe les informations de la ligne ds un tableau
            If AnalyseChaine >= 0 Then tab = UneLigne.Split(";") Else VerifPSV = 1
            'Plus besoin de chercher car on a trouvé
            Exit Do
        Loop Until UneLigne Is Nothing
 
        'S'il trouve le code ds la ligne
        If VerifPSV = 1 Then
 
            MsgBox("Ce point PSV n'existe pas")
            'Il initialise les textbox
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
 
        End If
        'S'il trouve le code ds la ligne
        If VerifPSV = 0 Then
            'Il affiche les données du tableau dans des textboxs
            TextBox1.Text = tab(0)
            TextBox2.Text = tab(1)
            TextBox3.Text = tab(2)
            ' TextBox4.Text = tab(3)
            'TextBox5.Text = tab(4)
            ' TextBox6.Text = tab(5)
 
        End If
        Box_De_Test.Text = UneLigne
 
    End Sub
 
    Private Sub Button_charger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_charger.Click
        charger()
    End Sub

Voilà mon code "propre" en faisant comme tu me le dis je n'ai plus l'erreur mais ca ne marche pas non plus.

Il s'arrete à la première ligne...

En gros si je cherche une valeur situé ds la première ligne "tout va bien" mais si je cherche une valeur de la 2conde ligne "tout va mal" ... il l'a trouve pas...

Quand je cherche L2C2 par exemple la variable UneLigne garde la valeur de la première ligne en fait...

j'essaye de bouger mon code dans tous les sens mais si j'arrive a faire une étape ya quelque chose qui cloche dans la seconde :(

j'arrive jamais a avoir ce que je souhaite

C'est parce que tu ne remets pas à 0 ta variable VerifPSV quand tu trouves une valeur qui va bien. Une fois que tu as rencontré une ligne qui ne contient pas ce que tu cherches, elle passe à 1 et elle y reste... il vaudrait mieux faire le contraire : elle est à 0 au départ, et passe à 1 si tu trouves.
Ah oui, et aussi le Exit Do n'est pas dans un If, donc ça va forcément sortir de la boucle dès la première itération...

Voilà comment tu devrais faire à mon avis (j'ai déclaré VerifPSV comme Boolean, c'est plus adapté) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
    Sub charger()
 
        Dim tab() As String
        Dim SR As StreamReader = File.OpenText("\My Documents\2008.txt")
        Dim AnalyseChaine As String
        Dim UneLigne As String
        Dim CodePSV As String
        Dim VerifPSV As Boolean = False
 
        'La variable CodePSV prend la variable de la textbox "Box_Code"
        CodePSV = Box_Code.Text
 
        'On lit le fichier jusqu'à trouver la fin
        Do
            ' La variable UneLigne prend la valeur d'une ligne du fichier texte
            UneLigne = SR.ReadLine()
            'on recherche le codePSV dans la ligne lue
            AnalyseChaine = UneLigne.IndexOf(CodePSV)
            'si la valeur est trouvée on découpe les informations de la ligne ds un tableau
            If AnalyseChaine >= 0 Then
                VerifPSV = True
                tab = UneLigne.Split(";")
                'Plus besoin de chercher car on a trouvé
                Exit Do
            EndIf
        Loop Until UneLigne Is Nothing
 
        'S'il trouve le code ds la ligne
        If Not VerifPSV Then
 
            MsgBox("Ce point PSV n'existe pas")
            'Il initialise les textbox
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
 
        Else 'S'il trouve le code ds la ligne
            'Il affiche les données du tableau dans des textboxs
            TextBox1.Text = tab(0)
            TextBox2.Text = tab(1)
            TextBox3.Text = tab(2)
            ' TextBox4.Text = tab(3)
            'TextBox5.Text = tab(4)
            ' TextBox6.Text = tab(5)
 
        End If
        Box_De_Test.Text = UneLigne
 
    End Sub

18/09/2007, 15h20
skaraa

Effectivement, cela marche parfaitement maintenant.

Je te remercie d'avoir donné un peu de ton temps afin de m'aider.

merci encore
19/09/2007, 13h48
skaraa

EN fait il reste quand même un autre problème ...

quand je rentre un code, le programme cherche la variable dans le fichier texte, s'il trouve il affiche la ligne correspondante.
Mais s'il trouve pas maintenant il revient à ma première erreur. (j'ai répondu trop vite)

J'ai essayé d'intégrer ça dans ma boucle pour ne plus avoir ce problème (ce qui est le cas) puisqu'il n'arrive plus a terminer sa boucle...

Pourtant je me dis que si je réinitialise les variable il devrait refaire la boucle et tout devrait marché... bin non...

Alors je sais plus quoi faire... si c'est un problème de variable, d'ordre.

Le problème viens surement du "nothing" car s'il trouve pas il lire forcément jusqu'à la fin... mais dès que nothing arrive ca bloque tout car j'ai des nullexeption...

Que faire?
19/09/2007, 14h26
tomlev

je pense que c'est à cause de ça :

Code:

Box_De_Test.Text = UneLigne

Si la boucle s'est terminée sur la condition "UneLigne Is Nothing" (dans le cas où il ne trouve rien), UneLigne est null, donc ca plante parce que tu ne peux pas assigner une valeur nulle à la propriété Text. Tu n'as qu'à mettre un "If Not UneLigne Is Nothing" devant cette instruction.
19/09/2007, 14h37
skaraa
Cette ligne n'existe plus... elle me servait juste a recupérer la variable... pour etre sure que tout se déroulait normalement lors de mes tests.
Et l'erreur est apparament sur "AnalyseChaine"

EDIT ----
Bin en fait j'ai rajouté cela:
Code:

1 2 3 4 5 Try AnalyseChaine = UneLigne.IndexOf(CodePSV) Catch ex As NullReferenceException End Try
Et maintenant ca marche... je sais pas trop pourquoi mais bon... ca fonctionne.

MAis si quelqu'un a une explication je suis preneur (il vaut mieux comprendre quand même :))

Citation:

ca plante parce que tu ne peux pas assigner une valeur nulle à la propriété Text

Ah non j'ai dit une connerie en fait...
Le problème est avant : Le dernier ReadLine renvoie Nothing, et ensuite tu traites ce résultat sans vérifier qu'il n'est pas null. Il faut rajouter un check dans ta boucle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        'On lit le fichier jusqu'à trouver la fin
        Do
            ' La variable UneLigne prend la valeur d'une ligne du fichier texte
            UneLigne = SR.ReadLine()
            'on recherche le codePSV dans la ligne lue
            If Not UneLigne Is Nothing
                AnalyseChaine = UneLigne.IndexOf(CodePSV)
                'si la valeur est trouvée on découpe les informations de la ligne ds un tableau
                If AnalyseChaine >= 0 Then
                    VerifPSV = True
                    tab = UneLigne.Split(";")
                    'Plus besoin de chercher car on a trouvé
                    Exit Do
                EndIf
            EndIf
        Loop Until UneLigne Is Nothing

19/09/2007, 14h49
skaraa

Alors j'ai édité mon précédent message pendant que tu me répondais déjà ;)

Ta solution fonctionne aussi, et comme je la comprend et qu'elle est sans doute plus correcte que la mienne je la garde :)

Merci de ton aide précieuse
19/09/2007, 15h33
tomlev

effectivement, il vaut toujours mieux vérifier avant et éviter l'exception plutôt que l'intercepter...