Discussion :

[orca29]

Bonjour à tous,

Je sais quele Qbasic est dépassé mais je reste dessus car ceci me rappelle de bons souvenirs. En fait je désirerais savoir comment modifier un enregistrement dans un fichier à accès séquentiel. Voici le code permettant d'ajouter des enregistrements

Code :

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

1
2
3
4
Input "Nom ";Nom$
Input "Prénom ";Prenom$
open "fichier" for append as #1
print #1,Nom$,Prenom$

je voudrais pouvoir modifier le prénom d'un enregistrement mais ne vois pas comment faire. Quelqu'un pourrait-il me renseigner ?
Merci d'avance à tous.

[antec12]

bonjour orca29

fait un nouveau dossier : le nom set: ZYX987
dans dossier mettre le programme fichier.bas
pour OPNE possibilite enregistrement
pour disk dur ou cle usb
exemple:
( C:\ZYX987\toto.txt ) ou ( C:\ZYX987\toto.dad )
( D:\ZYX987\toto.txt ) ou ( D:\ZYX987\toto.dad )
( E:\ZYX987\toto.txt ) ou ( E:\ZYX987\toto.dad )
( F:\ZYX987\toto.txt ) ou ( F:\ZYX987\toto.dad )
( G:\ZYX987\toto.txt ) ou ( G:\ZYX987\toto.dad )

programm fichiers.bas

Code :

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

1
2
3
4
5
6
7
8
9
1 CLS
2 INPUT "Nom "; Nom$
3 INPUT "Prenom "; Prenom$
4 ab$ = ""
5 PRINT
6 INPUT "Non du fichier "; ab$
7 OPEN "C:\ZYX987\" + ab$ + ".txt" FOR APPEND AS #1
8 PRINT #1, Nom$, Prenom$
9 CLOSE #1

si vous avez une qusetion ?

[orca29]

Bonjour Antec12 et merci de m'avoir répondu

En fait je me suis trompé dans ma question. Je préfère m'intéresser aux fichiers à accès direct. J'ai créé un fichier nommé "Test.txt" et en voici le 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
CLS
LNR=128
OPEN "R", #1, "Test.text", LNR
NENR = LOF(1) / LNR
PRINT "Il y a ";NENR;" enregistrements"
REM CREATION
LINE INPUT "Nom ? ";Nom$
NENR = LOF (1) / LNR
RANG = NENR
LSET N$ = Nom$
LINE INPUT "Prénom ? ";PN$
 
PUT #1, RANG
CLOSE #1

Je cherche à classer alphabétiquement mes enregistrements mais n'ai aucune idée sur la façon de procéder. Je sais qu'il existe plusieurs méthodes de tri. Est-ce quelqu'un saurait m'indiquer un bon exemple facile à comprendre et bien documenté pour procéder au tri ?

Il me semble qu'il faut passer par un tableau mais n'en suis pas sûr.

Je remercie vivement celui qui pourra m'aider car je n'ai absolument aucune documentation facile et pratique sur les tris des fichiers à accès direct (RANDOM).

Bonne journée !

[antec12]

classer alphabétiquement mes enregistrements

si vous-avec windows
fait un nouveau dossier
dans le dossier mettre vos enregistrements par nom de famille

pour vous amis

pernon :
nom de famille:
vos enregistre avec nom de famille

exemple:
donne: qsdfghj

si une seule famille

pernon :
nom de famille: + un espaces + les presone de ma famille

exemple:
pernom: toto
nom de famille: azerty
vos enregistre avec nom de famille

donne : azerty papa
donne : azerty mama
donne : azerty moi

dans les deux cas de figure: dans le dossier
cil sur affchage pui sur reorganiser les icons par pui sur nom

pour voter progamme ( OPEN "R", #1, "Test.DAT", LNR

si vous-avec pas windows telechrager gnumeric pour adiword , mac ,ubumtu
j'ai pas info sur ( RANDON )

[antec12]

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
CLS
TYPE TestRecord
   NameField  AS STRING * 20
   ScoreField AS SINGLE
END TYPE
 
DIM Rec AS TestRecord
DIM I AS LONG
 
OPEN "d:\ZYX987\TESTDAT2.DAT" FOR RANDOM AS #1 LEN = LEN(Rec)
CLS
RESTORE
READ NameField$, ScoreField
I = 0
DO WHILE NameField$ <> "END"
    I = I + 1
    Rec.NameField = NameField$
    Rec.ScoreField = ScoreField
    PUT #1, I, Rec
    READ NameField$, ScoreField
LOOP
CLOSE #1
 
DATA "John Simmons", 100
DATA "Allie Simpson", 95
DATA "Tom Tucker", 72
DATA "Walt Wagner", 90
DATA "Mel Zucker", 92
DATA "END", 0
 
DIM FileBuffer AS TestRecord
DIM Max AS LONG
OPEN "d:\ZYX987\TESTDAT2.DAT" FOR RANDOM AS #1 LEN = LEN(FileBuffer)
 
Max = LOF(1) \ LEN(FileBuffer)
 
 
FOR I = 1 TO Max
    GET #1, I, FileBuffer
    PRINT FileBuffer.NameField, FileBuffer.ScoreField
NEXT I
CLOSE #1

[orca29]

Merci Antec12

Merci pour votre exemple mais le tri n'est toujours pas effectué. Je ne sais pas comment faire pour classer alphabétiquement les enregistrements d'un fichier à accèd direct. Si quelqu'un a un exemple à me donner merci beaucoup !

[antec12]

bonjour orca29

si vous avez fait des enregistrements dans un fichier à accès séquentie
( OPEN "test.txt" FOR APPEND AS #1 )
pour classer alphabétiquement des enregistrements
j'ai mi dim(100) pour 100 enregistrement
le programme basic a une possibilite limite

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
1 CLS : COLOR 15
2 DIM a$(100)
3 zz = 0: NB.Enr% = 0: zz = 1
 
4 OPEN "test.txt" FOR INPUT AS #1
5 DO UNTIL EOF(1) = -1
6 LINE INPUT #1, ligne$
7 a$(zz) = ligne$
8 zz = zz + 1
9 LOOP
10 CLOSE #1
11 NB.Enr% = zz - 1
 
12 FOR a = 1 TO NB.Enr%
13 PRINT a$(a)
14 PRINT
15 NEXT a
 
16 PRINT
17 FOR i = 1 TO NB.Enr% - 1
18 FOR j = i + 1 TO NB.Enr%
19 IF a$(j) < a$(i) THEN SWAP a$(j), a$(i)
20 NEXT j
21 NEXT i
22 i = 0: j = 0
 
23 FOR a = 1 TO NB.Enr%
24 PRINT a$(a)
25 PRINT
26 NEXT a
 
27 OPEN "test1.txt" FOR APPEND AS #2
28 FOR xx = 1 TO NB.Enr%
29 PRINT #2, a$(xx)
30 NEXT xx
31 xx = 0
32 CLOSE #2
33 END

[orca29]

Bonjour et merci beaucoup Antec12

Merci pour votre exemple de programme de tri. Je m'aperçois que vous devez être vraiment fort en programmation et vous en félicite. Si vous le désirez, vous pouvez me laisser un ou plusieurs messages privés auxquels je répondrai. Mon prénom est Eric et habite le finistère (Bretagne). je ne suis pas tout jeune mais connais l'informatique depuis l'âge de mes 20 ans. Après m'être intéressé à Delphi 7 j'ai préféré faire un retour sur le QuickBasic qui me rappelle le bon vieux temps. En effet je reste nostalgique des tout premiers micro-ordinateurs de l'époque.

Je vous souhaite une agréable journée !

[antec12]

j'ai fait un messages votre adresse mail a tu resu le mail

[orca29]

Bonjour Antec12

Cela fait deux fois que je n'ai pas réussi à avoir tes messages privés; Je me demande si le forum ne bloque pas les messages. Je ne suis pas satisfait de ce site et je pense que je vais arrêter avec ce site. En tout cas, merci beaucoup !

[antec12]

boujour

dans le site vous avec fait:

Comment effectuer un tri dans un fichier à accès direct (random)

il y a une réponse Hier, 23h19