home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / DELBLANK.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  885 b   |  32 lines
  1. #   -------------------------------------------
  2. #   - Beispielmakro fuer den Befehl delblanks -
  3. #   -------------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. set Text1 = " Hugo Habicht    "
  10. set Text2 = "  Hugo Habicht   "
  11. set Text3 = "   Hugo Habicht  "
  12. set Text4 = "    Hugo Habicht "
  13.  
  14. #   Texte ausgeben
  15. debug "Text1 = <", Text1, ">\n"
  16. debug "Text2 = <", Text2, ">\n"
  17. debug "Text3 = <", Text3, ">\n"
  18. debug "Text4 = <", Text4, ">\n"
  19.  
  20. #   Leerzeichen am Anfang und am Ende der Texte entfernen
  21. debug "Leerzeichen am Anfang und Ende werden entfernt ...\n"
  22. delblanks Text1
  23. delblanks Text2
  24. delblanks Text3
  25. delblanks Text4
  26.  
  27. #   Neue Texte ausgeben
  28. debug "Text1 = <", Text1, ">\n"
  29. debug "Text2 = <", Text2, ">\n"
  30. debug "Text3 = <", Text3, ">\n"
  31. debug "Text4 = <", Text4, ">\n"
  32.