home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / tricks / texte.inc < prev    next >
Encoding:
Text File  |  1988-11-21  |  989 b   |  35 lines
  1. REM -------------------------------------------------------
  2. REM                    TEXTE.INC
  3. REM -------------------------------------------------------
  4. REM  (c) 1988 by HEIMSOETH Software / Technical Support
  5. REM            veröffentlicht in TOOLBOX 2'89
  6. REM -------------------------------------------------------
  7.  
  8. Delimiter$   = CHR$(&H0D) + CHR$(&H0A)
  9. BufSize%     = 8000
  10. FilePointer% = 0
  11.  
  12.  
  13. SUB ReadString(Text$, FileHandle%)
  14. SHARED BufSize%, FilePointer%, Delimiter$
  15. LOCAL  Buffer$, StringEnd%
  16.  
  17.   GET$ #FileHandle%, BufSize%, Buffer$  'Puffer einlesen
  18.  
  19.   StringEnd    = INSTR(Buffer$, Delimiter$) 'CRLF suchen
  20.   Text$        = LEFT$(Buffer$, StringEnd%-1)
  21.   FilePointer% = FilePointer% + StringEnd%+1
  22.   SEEK #FileHandler%, FilePointer%
  23.  
  24. END SUB
  25.  
  26. SUB OpenTextFile(FileName$, FileHandle%)
  27.   OPEN FileName$ FOR BINARY AS #1
  28. END SUB
  29.  
  30. SUB CloseTextFile(FileHandle%)
  31.   CLOSE FileHandle%
  32. END SUB
  33.  
  34. REM -------------------------------------------------------
  35.