home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 06 / tricks / fninstr.bas < prev    next >
BASIC Source File  |  1990-03-08  |  964b  |  25 lines
  1. '* ------------------------------------------------------- *
  2. '*                   FNINSTR.BAS                           *
  3. '*         (C) 1990 M. Hoffmann & TOOLBOX                  *
  4. '* ------------------------------------------------------- *
  5. '* Die Funktion INSTR ist in Turbo Basic Fehlerhaft !
  6. '* Sie liefert Unsinn, wenn der Suchstring nicht gefunden
  7. '*    Nachteil : a% muß angegeben werden.
  8.  
  9. 'kurz :
  10.  DEF FNi(a%, z$, s$) = -INSTR(a%, z$, s$) * _
  11.                         (INSTR(a%, z$, s$) <= (LEN(z$)))
  12. 'oder :
  13.  DEF FNINSTR (Anfang%, Zielstring$, Suchstring$)
  14.  LOCAL Laenge%
  15.  
  16.    Laenge% = Len(Zielstring$)
  17.    IF instr(Anfang%,Zielstring$,Suchstring$) <= Laenge% THEN
  18.      FNINSTR = INSTR(Anfang%, Zielstring$, Suchstring$)
  19.    ELSE
  20.      FNINSTR = 0                'SuchString nicht gefunden !
  21.    END IF
  22.  END DEF
  23. '* ------------------------------------------------------- *
  24. '*                Ende von FNINSTR.BAS                     *
  25.