home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / praxis / datei.inc next >
Encoding:
Text File  |  1989-05-23  |  1.4 KB  |  48 lines
  1. '* ------------------------------------------------------- *
  2. '*                   DATEI.INC                             *
  3. '*                Datei-Routinen                           *
  4. '*          (c) 1989 Gerd Kraus & TOOLBOX                  *
  5. '* ------------------------------------------------------- *
  6. SUB EntferneSpaceEnde(Temp$)
  7.   '* In RANDOM-Dateien gespeicherte Strings werden bis zur
  8.   '* Feldlänge mit Leerzeichen aufgefüllt; diese Prozedur
  9.   '* entfernt diese Leerzeichen
  10. LOCAL Laenge%, Dummy$
  11.  
  12.   Laenge = LEN (Temp$)
  13.  
  14.   DO
  15.     Dummy$ = MID$(Temp$, Laenge%, 1)
  16.     IF Dummy$ = CHR(32) THEN
  17.       Temp$ = LEFT$(Temp$, Laenge% - 1)
  18.     END IF
  19.     DECR Laenge%
  20.   LOOP UNTIL (Dummy$ <> CHR$(32)) OR (Laenge% = 0)
  21. END SUB
  22.  
  23. '* ------------------------------------------------------- *
  24. SUB EntferneSpaceAnfang(Temp$)
  25. LOCAL Dummy$
  26.  
  27.   DO
  28.     Dummy$ = MID$(Temp$, 1, 1)
  29.     IF Dummy$ = CHR(32) THEN Temp$ = MID$(Temp$, 2)
  30.   LOOP UNTIL (Dummy$ <> CHR$(32))
  31.  
  32. END SUB
  33.  
  34. '* ------------------------------------------------------- *
  35. SUB Fuellen (AnzahlZeichen%, Temp$)
  36.                  '* fuellt einen String mit Leerzeichen auf
  37.  
  38. LOCAL Laenge%, Dummy$
  39.  
  40.   Laenge% = LEN(Temp$)
  41.   Dummy$ = STRING(80, CHR(32))
  42.   Temp$ = Temp$ + LEFT$(Dummy$, AnzahlZeichen% - Laenge%)
  43.  
  44. END SUB
  45.  
  46. '* ------------------------------------------------------- *
  47. '*                 Ende von DATEI.INC                      *
  48.