home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / convert.prg next >
Encoding:
Text File  |  1988-04-29  |  1.5 KB  |  59 lines
  1. * ------------------------------------------------------------- 
  2. *                       CONVERT.PRG
  3. * Konvertierungsroutine von Textverarbeitung nach dBASE/FoxBASE
  4. * ------------------------------------------------------------- 
  5. set talk off
  6. clear
  7. zaehler = 0
  8.  
  9. select 1
  10. use inhalt.dbf alias aus
  11. zap
  12. ? "INHALT.DBF selektiert und gezappt!"
  13. select 2
  14. use inhalt.asc alias ein
  15. zap
  16. ? "INHALT.ASC selektiert und gezappt!"
  17. ? "Der Inhalt von INHPAS.ASC wird jetzt nach INHALT.ASC kopiert."
  18. ? "Bitte Geduld, das kann eine Weile dauern..."
  19. append from inhpas.asc sdf
  20. ? "Inhalt von INHPAS.ASC nach INHALT.ASC kopiert"
  21. go top
  22. ? "Auf den ersten Datensatz von INHALT.ASC positioniert"
  23. do while .not. eof()
  24.     select 1
  25.     append blank
  26.     zaehler = zaehler + 1
  27.     @ 24,6 say zaehler
  28.     select 2
  29.     store satz80 to dummy
  30.     if dummy <> "#"
  31.       ? "W A R N U N G ! Fehler beim Leser aus der Quelldatei!"
  32.       ? "Satzbeginn-Kennzeichen # nicht entdeckt!"
  33.     endif
  34.     skip
  35.     on error exit
  36.     replace aus->titel with satz80
  37.     skip
  38.     on error exit
  39.     replace aus->utitel with satz80
  40.     skip
  41.     on error exit
  42.     replace aus->rubrik with satz80
  43.     skip
  44.     on error exit
  45.     replace aus->ausgabe with satz80
  46.     skip
  47.     on error exit
  48.     replace aus->seite with satz80
  49.     skip
  50.     on error exit
  51.     replace aus->bemerkung with satz80
  52.   skip
  53.   on error exit
  54. enddo
  55. ? "Konvertierung beendet, Datenbank erstellt"
  56. close databases
  57.   
  58.     
  59.