Ännu en fråga!

5 posts in thread

• Claes Hedberg <6340> · Text 7204 · w8 · inlagg

  1987-07-25 20:57

  Ärende: Ännu en fråga!

  Denna gången har jag en fråga om filer igen. Jag har provat med olika saker, men ej kommit fram till någon rikigt bra! Jag vill kunna skapa en fil som vi kallar A.DAT Jag kör ett program där man skriver sitt namn och programmet öppnar filen och skriver in namnet+datum. Nästa gång jag kör programmet skall datorn lägga in detta efter förra namnet/datum. Efter 20:e gången programmet har körts, så skall första namnet/datumet försvinna och alla andra skall "hoppa" upp ett steg. Detta skall användas till en logglista till en bas. Basen skriver ut de tjugo senaste medlemmarna som har varit inne i basen, och skall använda mej av ovanstående funktion. Men hur gör man detta? Med förtvivlande hälsningar /Claes.
  • Curt Rehnborg <1121> · Text 7207 · w8 · kommentar

    1987-07-25 23:58

    Ärende: Ännu en fråga!

    Det enklaste är väl att du först i filen har en byte som pekar ut var du skrev sist eller var du ska skriva nu, efter varje skrivning så ökar du denna med 1 och om den då blir större än 20 så låt den bli 1 - sedan skriver du tillbaka byten igen först - sedan är det bara att skriva in datum + namn på pos Bytevärde*längd på block+1 Använder denna metod till att bl.a skriva loggfiler till program där jag loggar alla händelser och det fungerar bra. Har några färdiga funktioner du kan få om du vill.
  • Kristoffer Eriksson <5357> · Text 7228 · w8 · kommentar

    1987-07-27 23:51

    Ärende: Ännu en fråga!

    Det finns inget "magiskt" sätt att göra det du vill, utan du för göra alla omordningar i filen själv. Det simplaste sättet är att läsa in alla rader i filen i en indexerad variabel, och om det redan finns tjugo rader, skifta alla rader ett steg i variabeln innan den nya raden läggs till, och så skriva ut alltihop vid filens början igen. Den metoden passar bra till en textfil. Om man tar en direktfil med fast postlängd i stället, kan du ha en angivelse i början av filen av antal använda poster (0-20) och vilken post som räknas som först på listan. Det här blir en cirkulär buffert. När du vill avläsa alla poster läser du från den angivna första posten, och antalet poster framåt, och kommer du till postnr 20, börjar du om på postnr 0. När du skriver en ny post gör du det på nästa postnr i tur, som är första post + antal poster modulo tjugo, dvs får du ett postnr större än nitton (vilket du säkert får när antal poster blir 20) börjar du om från postnr 0, och ökar pekaren till första posten, eftersom det som förut var första posten, nu blir överskrivet. (Notera att (första + 20) mod 20 = första, så det är onödigt att utföra hela den beräkningen när antalet poster nått upp till 20.)
  • Lars Gjörling <6825> · Text 7238 · w8 · kommentar

    1987-07-29 13:42

    Ärende: Ännu en fråga!

    Här är ett förslag till funktioner för att lösa ditt problem: 10 INTEGER : EXTEND 10000 DEF FNSkapaloggfil 10010 ! 20 st poster a 30 bytes. Varje post har 2 fält: 10020 ! 1) 20 bytes för namnet. 2) 10 bytes för datum. 10030 PREPARE "LOGGFIL.DAT" AS FILE 99 10040 PUT #99,STRING¤(20*30,0) 10050 CLOSE 99 10060 RETURN 0 10070 FNEND 10080 ! ---------------------------------------------------- 11000 DEF FNUpdateloggfil(Namn¤) LOCAL N,Post¤=30 11010 IF Namn¤="" RETURN 0 ELSE ON ERROR GOTO 11140 11020 OPEN "LOGGFIL.DAT" AS FILE 99 11030 N=19 ! Post nr 19 flyttas till 20, post 18 till 19 osv. 11040 WHILE N>0 11050 POSIT #99,30*(N-1) : GET #99,Post¤ COUNT 30 11060 PUT #99,Post¤ 11070 N=N-1 11080 WEND 11090 IF LEN(Namn¤)>20 Post¤=LEFT¤(Namn¤,20) ELSE Post¤=Namn¤ 11100 Post¤=Post¤+SPACE¤(20-LEN(Post¤))+LEFT¤(TIME¤,10) 11110 POSIT #99,0 : PUT #99,Post¤ 11120 CLOSE 99 11130 RETURN -1 11140 ; CHR¤(7) "Fel nr " ERRCODE : RETURN 0 11150 FNEND 11160 ! ----------------------------------------------------- 12000 DEF FNSkrivutloggfil LOCAL N,Post¤=30 12010 ON ERROR GOTO 12140 12020 OPEN "LOGGFIL.DAT" AS FILE 99 12030 ; CHR¤(12) "Utskrift av loggfil (20 senaste inloggningarna):" 12040 ; "Namn" TAB(22) "Datum:" 12050 ; STRING¤(31,45) 12060 N=20 ! Utskrift med den äldsta posten först. 12070 WHILE N>0 12080 N=N-1 : POSIT #99,30*N : GET #99,Post¤ COUNT 30 12090 IF ASCII(Post¤)=0 THEN 12110 12100 ; LEFT¤(Post¤,20) TAB(22) RIGHT¤(Post¤,21) 12110 WEND 12120 CLOSE 99 12130 RETURN -1 12140 ; CHR¤(7) "Fel nr " ERRCODE : RETURN 0 12150 FNEND 12160 ! ----------------------------------------------------- OPEN och CLOSE behöver kanske inte göras varje gång funktionerna an- ropas, utan kan göras i början resp slutet av huvudprogrammet. Mvh Lars
    • Claes Hedberg <6340> · Text 7240 · w8 · kommentar

      1987-07-29 23:00

      Ärende: Ännu en fråga!

      Tack för svaret! Skall prova det nu! //Claes//