probléme de fichier

Bonjour,

Je fait une lecture d'un fichier texte par

Code:

---

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:

---

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)

quand on cherche on trouve :p

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 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

---