Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · ABC80 · Thread

Fylla på en file

17 posts in thread

Kent Berggren SYSOP <6019> · Text 3356 · w8 · inlagg

1987-04-08 07:46

Ärende: Fylla på en file

Jag ett litet problem:jag har en text file (INPUTLINE) som jag vill öppna och "fylla på". Hur gör man det smart? jag vill inte sitta och föra över den till en ny file och sedan fylla på på slutet på den nya filen. Jag vill fylla på på slutet på den gamla. Det måste väll gå. Med andra ord. Jag vill öppna en gammal file fylla på på slute stänga den och göra lika dant vid ett senare tillfälle. Måste väll gå. OBS det gäller INPUTLINE.
- Nils Hansson <519> · Text 3358 · w8 · kommentar
  
  1987-04-08 10:51
  
  Ärende: Fylla på en file
  
  Ett sätt som fungerar bra, om det inte är jättefiler, är att öppna samma fil med två olika nummer och sedan rasa igenom hela file med läs och skrivinstruktioner. Inte särdeles smart men det fungerar. Ex OPEN fil AS FILE 1 PREPARE fil AS FILE 2 ON ERROR GOTO slut INPUTLINE #1,A¤ A¤=LEFT¤(A¤,LEN(A¤)-2) ; #2,A¤ GOTO 10 slut CLOSE 1 fyll på fil #2 Mvh Nils Hansson
  - Kent Berggren SYSOP <6019> · Text 3360 · w8 · kommentar
    
    1987-04-08 11:41
    
    Ärende: Fylla på en file
    
    Låter bra har du testat det på ABC800 oxo?
    - Nils Hansson <519> · Text 3362 · w8 · kommentar
      
      1987-04-08 12:19
      
      Ärende: Fylla på en file
      
      På ABC-80 använde jag det för tidningen ETC prenumerationsregister en gång i tidernas begynnelse långt innan det fanns färdiga registerprogram på marknaden, och det har fungerat och fungerar fortfarande utan några problem (de hade över 20 000 pren ett tag). Har även använt samma programsnutt på ABC806 utan problem, varför skulle det bli det tror Du? Mvh Nils Hansson
      - Benny Löfgren SYSOP <2615> · Text 3369 · w8 · kommentar
        
        1987-04-08 13:58
        
        Ärende: Fylla på en file
        
        Du lär få problem om du stoppar programmets exekvering mitt i! Då måste man stänga filerna, och då kommer fil 2 att skriva ett filslut - mitt i filen! Jag är inte säker, men borde det inte fungera med att läsa filen till slut (ON ERROR) och sedan helt enkelt fortsätta med PRINT där man står.
        
        Nils Hansson <519> · Text 3372 · w8 · kommentar
        
        1987-04-08 14:04
        
        Ärende: Fylla på en file
        
        Av någon anledning, som jag glömt, ville jag skriva mot en fil som var öppnad med PREPARE och inte med OPEN.
        
        Benny Löfgren SYSOP <2615> · Text 3373 · w8 · kommentar
        
        1987-04-08 14:18
        
        Ärende: Fylla på en file
        
        Det har ingen betydelse om filen är öppnad med OPEN eller med PREPARE, vad jag är osäker på är vad som händer med filslutsmarkeringen om man skriver efter att man fått End-Of-File.
        
        Nils Hansson <519> · Text 3374 · w8 · kommentar
        
        1987-04-08 14:27
        
        Ärende: Fylla på en file
        
        Var/är det inte så att en fil stängs på ABC-80 när ett fel inträffar? Detta för att kasettbandspelaren skulle stanna, eller var det bara CAS: filen det var så på? (Vad fort man glömmer i alla fall)
        
        Nils Hansson <519> · Text 3375 · w8 · kommentar
        
        1987-04-08 14:44
        
        Ärende: OPEN/PREPARE
        
        I min brux till ABC-80 står det att OPEN öppnar en fil för läsning, PREPARE öppnar en fil för skrivning. CLOSE ... Om filen öppnats med PREPARE skrivs ett filslutmärke. Detta kanske inte överenstämmer med verkligheten men jag trodde på det då. Mvh Nils Hansson
        
        David Aronson <183> · Text 3401 · w8 · kommentar
        
        1987-04-13 22:59
        
        Ärende: Fylla på en file
        
        Du får EOF från den första filen. Det hindrar inte att man skriver vidare på den andra. De två filerna har separata dos-buffertar, så de påverkar inte varandra, bara just att det råkar vara samma fysiska fil. För länge sedan då jag pysslade med att föra över applikationsprogram från "lokal" ABC80 till CAT-NET, var det ett program som fyllde på text- filer på just detta sätt. CAT-NET godkänner inte att man skriver och läser på en fil samtidigt (felmeddelande "Filen delas" (ERR 78) fås). Enda lösningen var att skapa en slaskfil. Det blev lite kopierande, men det gick snabbt ändå (CAT-NET är snabbt!).
        
        Karl Lindström <837> · Text 3418 · w8 · kommentar
        
        1987-04-18 20:26
        
        Ärende: Fylla på en file
        
        LUX-net är snabbare!
        
        David Aronson <183> · Text 3422 · w8 · kommentar
        
        1987-04-19 10:40
        
        Ärende: Fylla på en file
        
        Spelar roll! Lux-Net fanns f.ö. inte då. Utan Luxors alternativ var det sk. ABC-NET som vissa i sällskapet här framhöll vara så oerhört mycket bättre, trots att det var både långsammare och sämre uppbyggt.
        
        Kent Jönsson <5924> · Text 3676 · w8 · kommentar
        
        1987-07-09 03:34
        
        Ärende: Fylla på en file
        
        Jag har gjort ett bokföringsprogram där jag fyller på en sekvensiell fil utan att skriva eller läsa från början. Jag håller reda på senaste blocket, trixar med mellanslag (chr¤(9) och skriver eget filslut. Allt med direktfil-teknik. Metoden är mycket snabb och spar utrymme på flexskivan. Ej lämplig om man vill ändra i redan skrivet. Om någon är intresserad så ring. Blir det många återkommer jag i MSG. Med varma sommarhälsningar. Kenth Jönsson - 0411-301 32.
        
        Kent Jönsson <5924> · Text 3692 · w8 · kommentar
        
        1987-07-18 18:43
        
        Ärende: Fylla på en file
        
        Vidarutveckling av inlägg 3676, Fylla på data-fil. 50 rader. Jag har tänkt i BASIC men man kan säkert fixa det i assembler. Q0¤ = direktfil-interface B¤ = data-buffert D¤() = data-poster D% = block-nr N% = antal poster P% = pos i buffert I% = loop J% = loop Z% = slask Hämta block-nr för sista datablock (ej slutblock). 110 OPEN 'BOKFRAD .TXT' ASFILE 1% : INPUT #1%,D% : CLOSE 1% Öppna dagboken. 120 OPEN 'DAGBOKEN.TXT' ASFILE 1% Hämta sista data-blocket. 130 Z%=CALL(28666%,1%)+CALL(28668%,D%) : B¤=Q0¤ : P%=0% Ta reda på filslutmärke CHR¤(3) men ej CHR¤(9,3). 140 P%=INSTR(P%+1%,B¤,CHR¤(3%)) : IF P%>1% IF MID¤(B¤,P%-1%,1%)=CHR¤(9%) 140 Fyll buff med data ur sista datablocket. 150 IF P%=1% B¤='' ELSE B¤=LEFT¤B¤,P%-1%) : IF LEN(B¤y=252% GOSUB 260 Fyll buff med N% antal poster. 160 FOR I%=1% TO N%-1% : P%=0% : FOR J%=1% TO LEN(D¤(I%)) Räkna mellanslag. 170 IF MID¤(D¤(I%),J%,1%)=' ' P%=P%+1% ELSE IF P% 190 ELSE 220 Nästa position. 180 GOTO 230 Fyll buff med endast ett mellanslag. Om buff > 252 tkn, spara. 190 IF P%=1% B¤=B¤+' ' : P%=0% : IF LEN(B¤)=252% GOSUB 260 : GOTO 220 ELSE 220 Om buff > 250 tkn, spara. 200 IF LEN(B¤)>250% GOSUB 260 Fyll buff med packad mellanslag. Om buff > 252 tkn, spara. 210 B¤=B¤+CHR¤(9%,P%) : P%=0% : IF LEN(B¤)=252% GOSUB 260 Fyll buff med data (tkn). Om buff > 252 tkn, spara. 220 B¤=B¤+MID¤(D¤(I%),J%,1%) : IF LEN(B¤)=252% GOSUB 260 Nästa tkn, fyll på med CR. Om buff > 252 tkn, spara. 230 NEXT J% : B¤=B¤+CHR¤(13%) : IF LEN(B¤)=252% GOSUB 260 Nästa post. 240 NEXT I% : IF LEN(B¤) GOSUB 260 Slut-block 250 B¤=STRING¤(6%,0%) : GOSUB 260 : CLOSE 1% : GOTO 280 Gör datablock för sekv-fil. 260 Z%=CALL(28666%,1%) : Q0¤=B¤+CHR¤(3%)+STRING¤(252%-LEN(B¤),0%) Skriv block. 270 Z%=CALL(28670%,D%) : B¤='' : D%=D%+1% : RETURN Spara block-nr för sista datablock (ej slutblock). 280 PREPARE 'BOKFRAD .TXT' ASFILE 1% : ; #1%,D%-2% : CLOSE 1% S L U T !
        
        Ulf Sjöstrand <1208> · Text 3728 · w8 · kommentar
        
        1987-08-09 15:41
        
        Ärende: Fylla på en file, introd till artikel i bladet
        
        På samma sätt som jag tidigare bad Anders F att skriva om förfaringssättet, ber jag dig att komma med en introduktion om hur du arbetar och ta sedan med inlägget 3676 och 3692. Fundera på om komentarerna kan brytas ut ur programraderna. Vi börjar mad bladet 3,87 i mitten av augusti och skall lämna manus till trycket i mitten av sept. Början av sept blir därför kärv. Mvh Ulf S
  - Nils Hansson <519> · Text 3367 · w8 · kommentar
    
    1987-04-08 13:55
    
    Ärende: Fylla på en file
    
    Efter att jag skrivit inlägget kollade jag i programmet, det går att förbättra programsnutten lite INPUTLINE #1,A¤ ; #2,A¤; man behöver inte plocka bort CR LF om man skriver ';' efterA¤ GOTO 10 avser INPUTLINE raden. För övrigt bör man även kolla att det är fel nr 34 som uppstått och inget annat. Var försiktig med CTRL C när programmet körs så att inte filen får ett filslut före sitt egentliga slut. Blir det något annat fel än nr 34 bör man plocka ut disketten innan man fortsätter med RUN eller något liknande annars är det risk för att filen #2 stängs och ett felaktigt filslut läggs ner på filen (gäller alltså i loopen). Mvh Nils Hansson
  - Gunnar Tidner <1306> · Text 3381 · w8 · kommentar
    
    1987-04-09 09:02
    
    Ärende: Fylla på en file
    
    Jag skrev en gång programmet CONCAT som konkatenarar två eller flera filer till en fil. Programmet fanns på kassett 0. Det finns nu på KAS/K0 och KAS/K00.