home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / STRLEN.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  654 b   |  27 lines
  1. #   ----------------------------------------
  2. #   - Beispielmakro fuer den Befehl strlen -
  3. #   ----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. set Text = ""
  10. debug "Text: <", Text, ">\n"
  11.  
  12. #   Neue Namen am Ende einfuegen
  13. set Text = "Andreas"
  14. debug "Text: <", Text, ">\n"
  15.  
  16. #  Laenge ermitteln (= Position zum Einfuegen am Ende)
  17. strlen Pos of Text
  18.  
  19. strinsert Text, " Fritz", Pos
  20. debug "Text: <", Text, ">\n"
  21.  
  22. #  Laenge ermitteln (= Position zum Einfuegen am Ende)
  23. strlen Pos of Text
  24.  
  25. strinsert Text, " Hugo", Pos
  26. debug "Text: <", Text, ">\n"
  27.