home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / praxis / konvr2a.bas < prev    next >
Encoding:
BASIC Source File  |  1989-05-23  |  2.5 KB  |  89 lines
  1. '* ------------------------------------------------------- *
  2. '*                     KONVR2A.BAS                         *
  3. '*      konvertiert RANDOM-Dateien nach ASCII-Dateien      *
  4. '*            (c) 1989 Gerd Kraus & TOOLBOX                *
  5. '* ------------------------------------------------------- *
  6. $INCLUDE "BASDATEI.INC"
  7.  
  8. '* mit BRDGen.BAS erzeugte DATEI (evtl. Namen anpassen)
  9. '* enthält die Struktur der Random-Datei
  10. '* näheres siehe BRDGEN.BAS !
  11.  
  12. '* ------------------------------------------------------- *
  13. SUB SeqDateiOeffnen
  14.  
  15. '* in diese sequentielle Datei werden die Daten aus
  16. '* der RANDOM-Datei geschrieben...
  17.  
  18.   OPEN "AscDatei.TXT" FOR APPEND AS #2
  19.  
  20. '*       (Dateinamen anpassen!)
  21. '* wenn eine gleichnamige Datei bereits existiert,
  22. '* werden die Daten angehängt
  23.  
  24. END SUB
  25.  
  26. '* ------------------------------------------------------- *
  27. SUB SeqDatenSchreiben
  28. SHARED_
  29.    Vorname$, Nachname$, PLZ%, LongIn&, EReal!, Doppelt#
  30. '* Variablennamen anpassen!
  31.  
  32.   PRINT #2, Vorname$
  33.   PRINT #2, Nachname$
  34.   PRINT #2, PLZ%
  35.   PRINT #2, LongIn&
  36.   PRINT #2, EReal!
  37.   PRINT #2, Doppelt#
  38. END SUB
  39.  
  40. '* ------------------------------------------------------- *
  41. SUB SeqDateiSchliessen
  42.   CLOSE #2
  43. END SUB
  44.  
  45. '* ------------------------------------------------------- *
  46. SUB Bild
  47. LOCAL Titel$, CO$, Spalte%
  48.  
  49.   Titel$ = "RANDOM nach ASCII Konverter"
  50.   CO$ = "(c) 1989 Gerd Kraus & TOOLBOX"
  51.   Hilf$ = "Dieses Programm erzeugt zu einer Random-Datei"+_
  52.           "ein ASCII-Daten-File"
  53.   CLS
  54.   LOCATE 1,1 : COLOR 1,3 : PRINT SPACE$(80);
  55.   Spalte% = INT((80 - LEN(Titel$))/2)
  56.   LOCATE 1, Spalte% : PRINT Titel$
  57.   LOCATE 1, 60      : PRINT CO$
  58.   LOCATE 25,1 : COLOR 15,1 : PRINT SPACE$(80);
  59.   Spalte% = INT((80 - LEN(Hilf$))/2)
  60.   LOCATE 25, Spalte% : PRINT Hilf$;
  61.  
  62.   COLOR 14,0
  63.   LOCATE 10, 5 : PRINT "Aktueller Datensatz : ";
  64. END SUB
  65.  
  66. '* ------------------------------------------------------- *
  67. '*   Hauptprogramm
  68. CALL Bild
  69. CALL PufferDimensionieren
  70. CALL Dateioeffnen
  71. CALL SeqDateioeffnen
  72. i% = 1                          Startwert beliebig (i% <= 1)
  73.  
  74. DO
  75.   CALL Datenlesen (i%)
  76.   CALL SeqDatenSchreiben
  77.   LOCATE 10, 30 : PRINT USING "##";i%
  78.   INCR i%
  79. LOOP UNTIL EOF(1)          ' oder bis zu einem beliebigen Endwert
  80. '*             ^ ergibt einen Datensatz mehr !
  81.  
  82. CALL DateiSchliessen
  83. CALL SeqDateiSchliessen
  84. LOCATE 20, 15 : PRINT "Fertig"
  85.  
  86. END
  87. '* ------------------------------------------------------- *
  88. '*                 Ende von KONVR2A.BAS                    *
  89.