Discussion :

[maxmarie]

Bonjour,

Dans un programme, j'écris ce bout de code pour creer et remplir un fichier texte en VB 2005 fw 1.0

Code :

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

1
2
3
4
5
6
Dim wAssemby As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
            Dim wAppPath As String = System.IO.Path.GetDirectoryName(wAssemby.GetName.CodeBase)
            Dim FilePath As String = wAppPath & TextBox1.Text & ".txt"
 
            Dim Flux As StreamWriter = File.CreateText(FilePath)
            Flux.Write("Bonjour")

Si une page permet d'écrire une ligne avec une info A sur le fichier, puis une autre page permet d'écrire une ligne avec ue info B, et que je retourne ensuite modifier l'info A, est il possible que cette info remplace la première info A au lieu de rajouter une ligne supplémentaire ?

En clair, est ce qu'on peut choisir la ligne du fichier où s'inscrivent ces données ?

Merci d'avance

[dp_favresa]

Bonjour,

Un fichier texte ne s'écrit qu'en "Append", il faut gérer toi-même l'écriture.
Dans une de mes applis, je dois enregistrer des commandes où chaques lignes
sont différenciées par un code.

Exemple :
codes de 1 à 29 : données entête
code 30 : données des articles type 1
code 40 : données des articles type 2
...

Pour y enregistrer les données code 30, je renomme d'abord le fichier "commande" sous un autre nom et crée un nouveau fichier "commande, je lis depuis le fichier d'origine les lignes code 1 à 29 et je les écrits dans le nouveau fichier , j'écris les données code 30 depuis mes tables puis reprends la lecture du fichier d'origine mais n'écris que les données code > 30. Enfin je supprime le fichier d'origine. Exemple de 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
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
'   Faire une copie du fichier original et créer un nouveau fichier
        '   Copier dans le nouveau fichier les lignes (hors acier) du fichier original
        '   Ajouter les positions acier puis supprimer le fichier original
        VarTrav1 = Nothing
        FicText = CheminFIC & "\" & FicList & "cop"
        FicTxt1 = CheminFIC & "\" & FicList
        Rename(FicTxt1, FicText)
        Dim Fichier As FileStream = File.Create(FicTxt1)
        Fichier.Close()
        Using Lecteur As StreamReader = File.OpenText(FicText)
            Using Ecrit As StreamWriter = File.AppendText(FicTxt1)
                VarTrav = Lecteur.ReadLine
                '   Lignes de l'entête
                While Not VarTrav Is Nothing
                    If VarTrav.Substring(0, 3) < "030" Then
                        Ecrit.WriteLine(VarTrav)
                    Else
                        VarTrav1 = VarTrav
                        Exit While
                    End If
                    VarTrav = Lecteur.ReadLine
                End While
                '   Lignes des positions acier
                For i = 0 To 998
                    If Not PosAC(i, 0) Is Nothing And Not PosAC(i, 0) = "" And Not IsDBNull(PosAC(i, 0)) Then
                        If PosAC(i, 4) <> "D" Then
                            VarTrav = "030;" & PosAC(i, 0) & ";"
                            VarTrav = VarTrav & PosAC(i, 1) & ";"
                            VarTrav = VarTrav & PosAC(i, 2) & ";"
                            VarTrav = VarTrav & PosAC(i, 3) & ";"
                            For j = 1 To 18
                                If PosCote(i, j) Is Nothing Or PosCote(i, j) = "" Or IsDBNull(PosCote(i, j)) Then
                                    Exit For
                                Else
                                    VarTrav = VarTrav & PosCote(i, j) & ";"
                                End If
                            Next j
                            Ecrit.WriteLine(VarTrav)
                        End If
                    End If
                Next i
                '   Lignes des positions d'articles accessoires
                VarTrav = VarTrav1
                While Not VarTrav Is Nothing
                    If VarTrav.Substring(0, 3) > "030" Then
                        Ecrit.WriteLine(VarTrav)
                    End If
                    VarTrav = Lecteur.ReadLine
                End While
                Ecrit.Flush()
                Ecrit.Close()
            End Using
            Lecteur.Close()
        End Using
        File.Delete(FicText)

Avec l'espoir que c'est bien ce qu'il te faut, je te souhaite une bonne prog.
dp

[maxmarie]

Merci pour ton explication, mais là, ca dépasse un peu mes compétences...

Il n'existe pas un objet pour pouvoir décider a quelle ligne on écrit dans un fichier texte ?

[dp_favresa]

Non, en tous cas pas à ma connaissance