home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / HEXSTR.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  709 b   |  27 lines
  1. #   ----------------------------------------------
  2. #   - Beispielmakro fuer den Befehl hexstr       -
  3. #   - Gibt die Hex-Zeichencodes eines Textes aus -
  4. #   ----------------------------------------------
  5.  
  6. #   Protokollfensterausgaben ermoeglichen
  7. set PROTWIN = "on"
  8. debug "Makroname: ", argv_0, "\n"
  9.  
  10. set Name = "Hugo Habicht"
  11.  
  12. #   Name in Puffer kopieren
  13. set Buffer = Name
  14. debug "Text: ", Name, "\nCodes: "
  15.  
  16. #   Schleife: bei jedem Durchlauf den Code des ersten Zeichen ausgeben
  17. #   und dieses Zeichen dann loeschen
  18. Loop:
  19. charcode Code = Buffer
  20. hexstr HexCode = Code
  21. debug HexCode, " "
  22. #   erstes Zeichen loeschen
  23. strdelete Buffer, "0", "1"
  24. ifnot Buffer == "" goto Loop
  25.  
  26. debug "\n"
  27.