DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »DB/FINDI.FEL«

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »DB/FINDI.FEL« 

TextFile

3500 PROC findifelt(felt$,søgenøgle$) CLOSED
3510   IMPORT antalfelter,feltnavne$,antalposter,postlængde,skærmpå
3520   DIM svar$ OF 1,postindhold$(antalfelter) OF 25,post$ OF postlængde
3530   feltnr:= 0
3540   FOR i:= 1 TO antalfelter DO
3550     IF felt$=feltnavne$(i)(1:LEN(felt$)) THEN feltnr:= i
3560   NEXT i
3570   IF feltnr=0 THEN
3580     PRINT "feltnavn findes ikke i denne fil"
3590     STOP 
3600   ELSE 
3610     READ FILE 1,101: antalposter
3620     FOR nr:= 1 TO antalposter DO
3630       READ FILE 1,nr: post$
3640       FOR f:= 1 TO antalfelter DO postindhold$(f):= post$((f-1)*25+1:f*25)
3650       IF søgenøgle$ IN postindhold$(feltnr) THEN
3660         CLEAR 
3670         PRINT "en mulighed er:"
3680         FOR i:= 1 TO antalfelter DO
3690           PRINT AT(1,i+1),"felt nr ";i;"  ";feltnavne$(i);
3700           PRINT "                           <"
3710           PRINT AT(21,i+1),":";postindhold$(i)
3720         NEXT i
3730         PRINT 
3740         IF skærmpå THEN
3750           INPUT AT(60,22),"-tast return:": svar$
3760           CLEAR 
3770         ENDIF 
3780       ENDIF 
3790     NEXT nr
3800   ENDIF 
3810 ENDPROC findifelt
«eof»