home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / FINALBASE1_1.DMS / in.adf / Fbase / beispiel.RX02 < prev    next >
Encoding:
Text File  |  1993-09-06  |  878 b   |  30 lines
  1. /*  Programm zur Stapelerfassung von Adressen.    */
  2.  
  3. a = open(adr, "beispiel.daten", "Read")  /* Textdatei zum Lesen öffnen  */
  4.  
  5. do while ~eof(adr)               /* Solange Textdatei nicht zu Ende     */
  6.  
  7.    zeile = readln(adr)           /* Textdatei lesen                     */
  8.    if zeile = ' '
  9.       then iterate
  10.  
  11.    SatzErfassen          /* Datensatz erfassen            */
  12.       0  subword(zeile, 1, 1)    /*                                     */
  13.       1  subword(zeile, 2, 1)
  14.      gebdat =  subword(zeile, 3, 1)
  15.  
  16.       if gebdat ~= 'x' then do    /* Geburtstag wird nur eingetragen,   */
  17.      2 gebdat          /* wenn das Datum bekannt ist.    */
  18.       end
  19.  
  20.       3  subword(zeile, 4, 1)
  21.       4  subword(zeile, 5, 1)
  22.       5  subword(zeile, 6, 1)
  23.       6  subword(zeile, 7, 1)
  24.       7  subword(zeile, 8)
  25.    EndPara
  26.  
  27. end
  28. a = close(adr)                   /* Textdatei schließen                 */
  29. exit
  30.