Discussion :

[alighieri]

Bonjour a tous
Je suis en train de développer une application qui gére des enregistrements dans un fichier en vb6.
En ce moment je suis en train de réfléchir sur la suppression d'un enregistrement dans un fichier:
Voilà ce que j'ai fait:

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
 
Private Sub btn_supprimer_Click()
 
Dim i As Integer
    'Ouverture du fichier en lecture'
    Open App.Path & "\enr.txt" For Input As #1
    'Lecture du premier enregistrement'
    i = 0
    Input #fichier.numero, fichier.nom, fichier.groupe, fichier.nombre_piste, fichier.pochette
    While Not EOF(fichier.numero) And i <> Last
        i = i + 1
        t1(i) = fichier
        'Lire un enregistrement'
        Input #fichier.numero, fichier.nom, fichier.groupe, fichier.nombre_piste, fichier.pochette
    Wend
    'Fermeture du fichier'
    Close #fichier.numero
    'Ouverture du fichier en écriture'
    Open App.Path & "\enr.txt" For Output As #1
    For i = 1 To nb
        If t1(i).numero <> fichier.numero Then
            Write #1, fichier.numero, fichier.nom, fichier.groupe, fichier.nombre_piste, fichier.pochette
        End If
    Next
    'Fermeture du fichier'
    Close #fichier.numero
End Sub

Voilà,je viens de rencontrer un problème, le compilateur me dit j'ai un type incompatible lors de la première lecture du fichier.Je ne comprend pas, ca devrait marcher puisque ca correspond bien a mon algorithme.

[SfJ5Rpw8]

d'où elle sort ta variable fichier ..?

tu ouvre un fichier en utilisant #1 comme numéro ..

Code :

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

 Open App.Path & "\enr.txt" For Input As #1

et dans le reste du code tu utilise fichier.numero ( initialise fichier.numero grâce à la fonction freefile puis utilise fichier.numero partout !)

elle est où l'erreur ?

[Delbeke]

Je pense, mais on ne voit pas tout ton code que les lignes de ce type

Code :

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

Input #fichier.numero, ...

Devraient être remplacées par quelque chose comme

Code :

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

Input #1, fichier.numero, ...

En effet , d'apres ce que j'ai compris, #fichier.numero devrait être lu dans le fichier ouvert sous le numéro #1

Edit : j'ai pourtant travaillé ma vitesse , salut bbil