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 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
| CLS : COLOR 15
DIM a$(300, 3)
zz = 0: NB.Enr% = 0: zz = 1
OPEN "test0.txt" FOR INPUT AS #3
DO UNTIL EOF(3) = -1
LINE INPUT #3, ligne$
a$(zz, 1) = ligne$
zz = zz + 1
LOOP
CLOSE #3
NB.Enr% = zz - 1
GOSUB 150
10 CLS
PRINT "PROGRAMME DE FICHIERS"
PRINT
PRINT "IL Y A"; NB.Enr%; "FICHIERS ENREGISTER"
PRINT
PRINT "SUR 300 FICHIER AU MAXIMUN"
PRINT
PRINT "AFICHAGE UN FICHIER pousse sur ( 1 )"
PRINT
PRINT "AFFICAGE TOUT LES FICHIES pousse sur ( t )"
PRINT
PRINT "FIN DE PROGRGRAMME pousse sur ( f )"
20 q$ = "": q$ = INKEY$
IF q$ = "f" OR q$ = "F" THEN END
IF q$ = "1" THEN 300
IF q$ = "t" OR q$ = "T" THEN 200
GOTO 20
END
150 REM
FOR ww = 1 TO NB.Enr%
ui = 0: ui = LEN(a$(ww, 1))
'PRINT a$(ww, 1)
FOR kk = 1 TO LEN(a$(ww, 1))
IF MID$(a$(ww, 1), kk, 1) = "*" THEN GOSUB 100
NEXT kk
NEXT ww
RETURN
END
100 REM
a$(ww, 2) = MID$(a$(ww, 1), 1, kk - 1)
a$(ww, 3) = MID$(a$(ww, 1), kk + 1, ui)
RETURN
END
200 CLS
PRINT "IL Y A"; NB.Enr%; "FICHIERS ENREGISTER"
PRINT
FOR a = 1 TO NB.Enr%
PRINT "nom : "; a$(a, 2)
PRINT "pernom : "; a$(a, 3)
PRINT
PRINT "pousse sur entree"
210 xy$ = "": xy$ = INKEY$
IF xy$ = CHR$(13) THEN 220
GOTO 210
220 PRINT
NEXT a
a = 0: xx = 0: GOTO 10
END
300 REM
CLS
PRINT "IL Y A"; NB.Enr%; "FICHIERS ENREGISTER"
PRINT
PRINT "écrire les trois premiere lettre de nom que vous rechercher ";
INPUT nom$
PRINT : PRINT
hh = 0
FOR a1 = 1 TO NB.Enr%
vop$ = a$(a1, 2) + " " + a$(a1, 3)
IF MID$(vop$, 1, 3) = nom$ THEN hh = 0: hh = 1: GOSUB 400
IF hh = 0 THEN 500
NEXT a1
GOTO 10
END
400 REM
PRINT "nom : "; a$(a1, 2)
PRINT "pernom : "; a$(a1, 3)
PRINT
PRINT "pousse sur entree"
410 xy$ = "": xy$ = INKEY$
IF xy$ = CHR$(13) THEN 420
GOTO 410
420 PRINT
RETURN
END
500 REM
CLS
PRINT
PRINT "PAS DE FICHER AVEC LE NOM "; nom$
PRINT
PRINT "pousse sur entree"
510 xy$ = "": xy$ = INKEY$
IF xy$ = CHR$(13) THEN 520
GOTO 510
520 GOTO 10 |
Partager