Discussion :

[cisco38]

bonjour
je souhaite recuperer les valeurs dans 3 variables valsite qui corespond a la 2eme colone,valcpt 3éme colonne et valcalo dans 4eme colonne
por le moment je recupere la ligne complete (valcsv;valsite;valcpt;valcalo)

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Dim filename As String = "C:\Users\cisco\Downloads\CSV_0B\CSV_0B\User.csv"
        Dim fields As String()
        Dim SeparateurSplit As String = ";" 'caractère de spération
        Dim ligne As String = ""
        Dim Laligne As New System.Text.StringBuilder
        Dim Lect As New IO.StreamReader(NomUser)
        Dim valcsv As String
        Dim valsite As String
        Dim valcpt As String
        Dim valcalo As String
        NomUser = TbUser.Text
        valcsv = TextBox1.Text
 
 
        ligne = Lect.ReadLine
 
        While ligne IsNot Nothing 'tant que je ne suis à la fin on continue
            fields = ligne.Split(SeparateurSplit)
 
            If fields.GetValue(0) = valcsv Then 'si la colonne n°1 correspond à ma condition 
                Laligne.AppendLine(ligne)
 
 
            End If
 
            ligne = Lect.ReadLine 'on passe à la ligne suivante
        End While
 
        'je réécris les lignes que j'ai gardé
 
        MsgBox(Laligne.ToString)
        Lect.Close()
 
    End Sub

merci d'avance

[Phil Rob]

Bonjour,
Il te suffit d'ignorer la première valeur.
Split te donne un tableau que tu mets dans une variable Field.
Fiel(0) contient la valeur de la 1ere colonne, Field(1) celle de la 2ème colonne, ...

[cisco38]

ok je regarde comme tu me dit sinon jai fait comme ca et sa fonctionne

Code :

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

1
2
3
4
5
 mesvar = Split(Laligne.ToString, ";")
        valsite = mesvar(1)
        valcpt = mesvar(2)
        valcalo = mesvar(3)
        MsgBox("site n°: " & valsite & "   CPT n°: " & valcpt & "    CALO n°: " & valcalo)

[Phil Rob]

Mais oui. Note que ce que tu fais correspond à ce que j'ai écrit dans le message précédent, finalement, tu évites mesvar(0).

Je vois qu'ici, tu n'utilises plus le DGV. Pourquoi pas, le DGV c'était en réponse à ta question initiale à propos de l'enregistrement des paramètres ...
Mais, dans le système DGV, je passe par un DataTable parce que c'est tellement facile pour alimenter le DGV. Ce DataTable contient toutes tes variables du fichier avec leurs valeurs et il peut être utilisé ailleurs dans l’application ...
Si cette idée peut t'être utile ...