home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 10 / anwendg / word.prg < prev    next >
Encoding:
Text File  |  1989-07-19  |  2.9 KB  |  102 lines
  1. * dBase-Programm WORD.PRG
  2. * zum Erstellen einer Serienbrief-Steuerdatei für Word 4.0
  3. * Copyright 1989 Jürgen Liskowskis & TOOLBOX
  4.  
  5. * Variablen-Initialisierung
  6.   STORE SPACE (20) TO FARBE
  7.   STORE SPACE (08) TO DATEINAME, STEUER
  8.  
  9. * Set-Anweisungen
  10.   SET STATUS OFF
  11.   SET DATE GERMAN
  12.   SET SCOREBOARD OFF
  13.   SET TALK OFF
  14.  
  15. * Bildschirm prüfen und Farbwerte zuweisen:
  16. * Funktion liefert auch bei Olivetti M24 den Wert .T.
  17.   IF ISCOLOR()
  18.      FARBE = "W+/B, GR+/R, BG"
  19.    ELSE
  20.      FARBE = "W+/N"
  21.   ENDIF
  22.   SET COLOR TO &FARBE              && Makro Farbe ausführen
  23.   CLEAR                            && Bildschirm löschen
  24.  
  25. * Bildschirmmaske aufbauen:
  26. @ 0,0 TO 20,79 DOUBLE
  27. @ 2,1 TO 2,78
  28. @ 1,2 SAY "Steuerdatei für Word aus dBase III+ erstellen:"
  29.  
  30. * Abfrage des gewünschten Dateinamens:
  31. @ 4,2 SAY "Datenbankname : [········.WRD] "
  32. @ 4,19 GET DATEINAME PICTURE 'XXXXXXXX'
  33. READ                               && Get aktivieren
  34.  
  35. DATEINAME=TRIM(DATEINAME)+".WRD"   && Extension frei wählbar
  36.  
  37. * Nachsehen ob Datei schon auf der Platte, per Makro.
  38. IF FILE ("&DATEINAME")             && Schon vorhanden?
  39.      USE &DATEINAME                && Dann benutzen
  40.                                    *  und Satz anfügen
  41.      APPEND
  42.   ELSE                             && Wenn nicht:
  43.      CREATE &DATEINAME             && Erstellen. dBase fragt
  44.                                    *  anschließend, ob der
  45. ENDIF                              && Benutzer Sätze
  46.                                    *  eingeben möchte
  47.  
  48. * Das Eingeben von Datensätzen wird an dieser Stelle
  49. * von dBase übernommen
  50.  
  51. * Bildschirmmaske aufbauen:
  52. CLEAR
  53. @ 0,0 TO 20,79 DOUBLE
  54. @ 2,1 TO 2,78
  55. @ 1,2 SAY "Steuerdatei für Word aus dBase III+ erstellen:"
  56.  
  57. * Name der Steuerdatei für Word vom Benutzer erfragen:
  58. @ 6,2 SAY "Steuerdateiname für Word : [········.TXT] "
  59. @ 6,30 GET STEUER PICTURE 'XXXXXXXX'
  60. READ
  61.  
  62. * Extention für Word 4.0 muß TXT sein, wenn nicht beim
  63. * Laden der Filename eingegeben werden soll
  64. STEUER=TRIM(STEUER)+".TXT"
  65.  
  66. * Kopie der Dateistructur von Makro DATEINAME
  67. * nach Steuerdatei
  68. COPY STRUCTURE EXTENDED TO &STEUER
  69.  
  70. * Benutzen der Steuerdatei
  71. USE &STEUER
  72.  
  73. * Aufbau der Feldnamen in temporärer ASCII - Datei TEMP1.TXT
  74. COPY TO TEMP1.TXT FIELD FIELD_NAME DELIMITED
  75. USE                  && Schließen der ASCII - Datei
  76.  
  77. ERASE &STEUER        && Datei löschen. Wird nicht mehr
  78.                      *  gebraucht.
  79.  
  80. USE &DATEINAME
  81. COPY TO TEMP2.TXT DELIMITED
  82. USE
  83.  
  84. * Falls nur der GW-BASIC-Interpreter zur Verfügung steht:
  85. RUN GWBASIC ZBAU.BAS
  86.  
  87. * Oder compiliert unter Quick-Basic oder Turbo Basic:
  88. * Dann die Zeile für GW-BASIC löschen und dafür:
  89. * RUN ZBAU.EXE
  90.  
  91. * Umbenennen der temporären Datei:
  92. RENAME TEMP3.TXT TO &STEUER
  93. * Falls gewünscht, folgende Zeile aktivieren (Stern löschen)
  94. * RUN COPY &STEUER TO C:\WORD   && Kopie in Unterverzeichnis
  95.  
  96. * dBase-Ebene wieder herstellen.
  97. SET COLOR TO &FARBE
  98. CLEAR
  99. SET STATUS ON
  100. SET TALK ON
  101. SET SCOREBOARD ON
  102.