home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / praxis / konvr2p.bas < prev    next >
Encoding:
BASIC Source File  |  1989-05-23  |  1.9 KB  |  60 lines
  1. '* ------------------------------------------------------- *
  2. '*                     KONVR2P.BAS                         *
  3. '*     konvertiert RANDOM-Dateien nach PASCAL-Dateien      *
  4. '*             (c) 1989 Gerd Kraus & TOOLBOX               *
  5. '* ------------------------------------------------------- *
  6. $INCLUDE "Datei.INC"
  7. $INCLUDE "BasDatei.INC"
  8. $INCLUDE "PasDatei.INC"
  9. '* PasDatei.Inc muss noch angepasst werden ! --> s. Text
  10.  
  11. '* ------------------------------------------------------- *
  12.  
  13. '* ------------------------------------------------------- *
  14. DEF FnPascalFormat$(Text$)
  15.      '* bereinigt die mit Space (" ") aufgefüllten Strings
  16.      '* und fügt Text [0] = Stringlänge ein
  17.   CALL EntferneSpaceEnde (Text$)
  18.   FnPascalFormat$ = CHR$ (LEN(Text$)) + Text$
  19. END DEF
  20.  
  21. '* ------------------------------------------------------- *
  22. SUB DatenTauschen
  23. SHARED Vorname$, PVorname$,_
  24.        Nachname$, PNachname$,_
  25.        Plz%, PPlz%,_
  26.        LongIn&, PlongIn&,_
  27.        EReal!, PEReal!,_
  28.        Doppelt#, PDoppelt#
  29.  
  30.   PVorname$  = FnPascalFormat(Vorname$)
  31.   PNachname$ = FnPascalFormat(Nachname$)
  32.   PPlz%      = Plz%
  33.   PLongIn&   = LongIn&
  34.   PEReal!    = EReal!
  35.   PDoppelt#  = Doppelt#
  36. END SUB
  37.  
  38. '* ------------------------------------------------------- *
  39. '*  Hauptprogramm
  40. CLS
  41. PRINT "Random-File --> Pascal-File"
  42. CALL PufferDimensionieren : CALL P.PufferDimensionieren
  43. CALL DateiOeffnen         : CALL P.DateiOeffnen
  44.  
  45. i% = 1                       '* Startwert beliebig (i% >= 1)
  46. DO
  47.   CALL Datenlesen (i%)
  48.   CALL DatenTauschen
  49.   CALL P.DatenSchreiben (i%)
  50.   LOCATE 10, 10 : PRINT USING "##";i%
  51.   INCR i%
  52. LOOP UNTIL EOF(1)           ' oder bis zu beliebigem Endwert
  53.  
  54. CALL DateiSchliessen : CALL P.DateiSchliessen
  55. LOCATE 20, 15 : PRINT "Fertig"
  56.  
  57. END
  58. '* ------------------------------------------------------- *
  59. '*               Ende von KONVR2P.BAS                      *
  60.