home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / STRPOS.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  1013 b   |  39 lines
  1. #   ----------------------------------------
  2. #   - Beispielmakro fuer den Befehl strpos -
  3. #   ----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. set Text = "Andreas Detlev Fritz Mark"
  10. debug "Text: <", Text, ">\n"
  11.  
  12. #   Dieser Name soll aus Text geloescht werden
  13. set Delname = "Fritz"
  14.  
  15. #   Position des Namens suchen
  16. strpos Pos = Delname in Text
  17. debug "Pos = ", Pos, "\n"
  18. ifnot Pos == "" goto Gefunden
  19. messagebox Antwort: "Hinweis", "Name nicht gefunden !!!", "OK"
  20. goto Fertig
  21.  
  22. Gefunden:
  23. #   Laenge des Namens holen
  24. strlen Len of Delname
  25.  
  26. #   Name loeschen
  27. strdelete Text, Pos, Len
  28.  
  29. #   Ist an dieses Position jetzt ein Leerzeichen,
  30. #   dann stand das hinter dem Namen und muss auch geloescht werden
  31. setpart Char = Text, Pos, Pos
  32. ifnot Char == " " goto Fertig
  33. strdelete Text, Pos, "1"
  34. debug "Text: <", Text, ">\n"
  35. messagebox Antwort: "Hinweis", "Name wurde geloscht !!!", "OK"
  36.  
  37. Fertig:
  38. end
  39.