Discussion :

[alcap]

Bonjour,

Je fait une lecture d'un fichier texte par

Code :

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

1
2
3
Dim MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\dossier\ab.txt")
        MyReader.TextFieldType = FileIO.FieldType.Delimited
        MyReader.SetDelimiters(",")

Tout ce passe bien, j'ai meme changer l'extention des fichiers.

Le probléme vien du fait que je n'arrive pas à modifié un fichier et je n'arrive pas, non plus, de créé un nouveau fichier.



PS, j'utilise sa pour lire les données d'un fichier

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
While Not MyReader.EndOfData
            Try
                Dim boucle As Integer
 
                currentRow = MyReader.ReadFields()
                boucle = currentRow.Length
                Select Case currentRow.Length
                    Case 1
                        Me.TextBoxNumPlan.Text = currentRow(0)
                        Me.TextBoxDescription.Text = ""
                        Me.TextBoxIndice.Text = ""
                        Me.TextBoxDateIndice.Text = ""
                        Me.TextBoxLocalisation.Text = ""
                        Me.TextBoxUnité.Text = ""
                        Me.TextBoxEnsembleFonctionnel.Text = ""
                    Case 2
                        Me.TextBoxNumPlan.Text = currentRow(0)
                        Me.TextBoxDescription.Text = currentRow(1)
                        Me.TextBoxIndice.Text = ""
                        Me.TextBoxDateIndice.Text = ""
                        Me.TextBoxLocalisation.Text = ""
                        Me.TextBoxUnité.Text = ""
                        Me.TextBoxEnsembleFonctionnel.Text = ""
                    Case 3
                        Me.TextBoxNumPlan.Text = currentRow(0)
                        Me.TextBoxDescription.Text = currentRow(1)
                        Me.TextBoxIndice.Text = currentRow(2)
                        Me.TextBoxDateIndice.Text = ""
                        Me.TextBoxLocalisation.Text = ""
                        Me.TextBoxUnité.Text = ""
                        Me.TextBoxEnsembleFonctionnel.Text = ""
                    Case 4
                        Me.TextBoxNumPlan.Text = currentRow(0)
                        Me.TextBoxDescription.Text = currentRow(1)
                        Me.TextBoxIndice.Text = currentRow(2)
                        Me.TextBoxDateIndice.Text = currentRow(3)
                        Me.TextBoxLocalisation.Text = ""
                        Me.TextBoxUnité.Text = ""
                        Me.TextBoxEnsembleFonctionnel.Text = ""
                    Case 5
                        Me.TextBoxNumPlan.Text = currentRow(0)
                        Me.TextBoxDescription.Text = currentRow(1)
                        Me.TextBoxIndice.Text = currentRow(2)
                        Me.TextBoxDateIndice.Text = currentRow(3)
                        Me.TextBoxLocalisation.Text = currentRow(4)
                        Me.TextBoxUnité.Text = ""
                        Me.TextBoxEnsembleFonctionnel.Text = ""
                    Case 6
                        Me.TextBoxNumPlan.Text = currentRow(0)
                        Me.TextBoxDescription.Text = currentRow(1)
                        Me.TextBoxIndice.Text = currentRow(2)
                        Me.TextBoxDateIndice.Text = currentRow(3)
                        Me.TextBoxLocalisation.Text = currentRow(4)
                        Me.TextBoxUnité.Text = currentRow(5)
                        Me.TextBoxEnsembleFonctionnel.Text = ""
                    Case 7 To 999
                        Me.TextBoxNumPlan.Text = currentRow(0)
                        Me.TextBoxDescription.Text = currentRow(1)
                        Me.TextBoxIndice.Text = currentRow(2)
                        Me.TextBoxDateIndice.Text = currentRow(3)
                        Me.TextBoxLocalisation.Text = currentRow(4)
                        Me.TextBoxUnité.Text = currentRow(5)
                        Me.TextBoxEnsembleFonctionnel.Text = currentRow(6)
                End Select
 
 
            Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                MsgBox("Line " & ex.Message & "is not valid and will be skipped.")
            End Try
End While

je pence que Select case est nul d'un point de vue programmation

(j'ai fait sa pour filter les fichier mal au point, ou les fichier ou ils manque des données)

[alcap]

quand on cherche on trouve :p

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
   Private Sub ButtonAnnuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAnnuler.Click
        Me.Close()
    End Sub
 
    Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
 
 
        Dim texte As String
        texte = Me.TextBoxNumPlan.Text & "," & _
        Me.TextBoxDescription.Text & "," & _
        Me.TextBoxIndice.Text & "," & _
        Me.TextBoxDateIndice.Text & "," & _
        Me.TextBoxLocalisation.Text & "," & _
        Me.TextBoxUnité.Text & "," & _
        Me.TextBoxEnsembleFonctionnel.Text
 
        chemin = My.Settings.Default.Repertoire & "\" & Me.TextBoxNumPlan.Text & ".ldp"
        My.Computer.FileSystem.WriteAllText(chemin, texte, True)
 
        ' Nettoyage dans les textbox des valeurs lies au n° de plan.
        Form1.TextBoxNumPlan.Text = ""
        Form1.TextBoxDescription.Text = ""
        Form1.TextBoxIndice.Text = ""
        Form1.TextBoxDateIndice.Text = ""
        Form1.TextBoxUnité.Text = ""
        Form1.TextBoxLocalisation.Text = ""
        Form1.TextBoxEnsembleFonctionnel.Text = ""
 
        LectureFichierDansLeRepertoire()
        Me.Close()
 
    End Sub
 
    Private Sub ButtonAppliquer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAppliquer.Click
        Dim texte As String
        texte = Me.TextBoxNumPlan.Text & "," & _
        Me.TextBoxDescription.Text & "," & _
        Me.TextBoxIndice.Text & "," & _
        Me.TextBoxDateIndice.Text & "," & _
        Me.TextBoxLocalisation.Text & "," & _
        Me.TextBoxUnité.Text & "," & _
        Me.TextBoxEnsembleFonctionnel.Text
 
        chemin = My.Settings.Default.Repertoire & "\" & Me.TextBoxNumPlan.Text & ".ldp"
        My.Computer.FileSystem.WriteAllText(chemin, texte, True)
 
        ' Nettoyage dans les textbox des valeurs lies au n° de plan.
        Form1.TextBoxNumPlan.Text = ""
        Form1.TextBoxDescription.Text = ""
        Form1.TextBoxIndice.Text = ""
        Form1.TextBoxDateIndice.Text = ""
        Form1.TextBoxUnité.Text = ""
        Form1.TextBoxLocalisation.Text = ""
        Form1.TextBoxEnsembleFonctionnel.Text = ""
 
        LectureFichierDansLeRepertoire()
    End Sub