Discussion :

[gryffondor8392]

J'aimerais savoir comment on fait pour qu'un enregistrement soir définitivement supprimer d'un fichier.

J'ai essayer ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
cpt = Cb_nom.ListIndex + 1
 
            Do
 
                Get #1, cpt + 1, enr_util
 
                Put #1, cpt, enr_util
 
                cpt = cpt + 1
 
            Loop Until EOF(1)

Et quand je charge mon fichier, il y a des enregistrement qui sont blan.

[DAUDET78]

Ta syntaxe est bizaroïde ...... et ton fichier est ouvert en "binary", en "random"?
"enr_util" est un string ? de quelle longueur ?

regarde dans MSDN la syntaxe de GET et de PUT. La valeur numérique qu'il faut donner est la position absolue de l'octet dans le fichier (1 étant le premier) et, si "enr_util" est un string, on lit (ou écrit) X octets correspondant à la longueur de "enr_util"

[gryffondor8392]

Enr_util est un type que j'ai créer moi même :

Code :

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

1
2
3
4
5
6
7
8
9
10
Type fich_utilisateur
 
    nom_util As String * 40
    type_util As String * 40
    num_util As Integer
    mot_passe As String * 20
 
End Type
 
Public enr_util As fich_utilisateur

Mon fichier est ouvert comme ceci :

Code :

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

Open chem_fichier For Random As #1 Len = Len(enr_util)

[DAUDET78]

Je ne suis pas assez compétent pour savoir si tu peux associer une Structure à l'instruction GET ou PUT. Moi, j'utilise toujours une variable String.

[gryffondor8392]

Je ne suis pas assez compétent pour savoir si tu peux associer une Structure à l'instruction GET ou PUT. Moi, j'utilise toujours une variable String.

Si justement on peu le faire. J'arrive à lire et à écrire dans mon fichier mais pour supprimer ca ne marche pas.

[DAUDET78]

Moi, j'utilise deux fichiers , un pour lire, un pour écrire. Je copie tous les enregistrements qui m'intéressent sauf celui que je veux supprimer

[gryffondor8392]

Pourrais-tu me donner un exemple de code, je ne vois pas du tout comment il faut faire

[DAUDET78]

Un truc du genre ( pour éliminer toutes les lignes d'un fichier "source.txt" qui contient le mot "Daudet")

Code :

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

1
2
3
4
5
6
7
8
9
10
Open "source.txt" for input as #1
Open "dest.txt" for ouput as #2
 Do While not EOF(1)
      Line Input #1, Ligne$
      If instr(Ligne$, "Daudet") = 0 then ' on copie la ligne
          Print #2,Ligne$
      End if
 Loop 
Close #1
Close #2

[iclic]

Bonjour,

Un fichier qu'il soit .txt ou binary ou random etc, est enregistré sur la mémoire de masse ( donc sur le disque dur en général).
Donc pour supprimer définitivement un enregistrement il n'y a qu'une seule solution.
Faire comme le dit Daudet:
Lire le fichier1 ,écrire dans un fichier2 ce que l'on veut garder.
Puis supprimer le fichier1 et renommer le fichier2, fichier1

A+