Hi All,
I managed to work through a little example to put up on my REBOL/View site back when
the
new View panel was first introduced. Since then some change in the product has broken
my
little script and I'm having trouble figuring it out.
I'm sure it is something simple but I figured now is a good time for some help as well
as some
peer review! :-)
Here it is - also to be found under the ModernLore REBSite.
REBOL [
Title: "Show hex/binary for string characters"
Author: "Rod Gaither"
Email: [EMAIL PROTECTED]
File: %showhexbin.r
Date: 10-October-2000
Purpose: {Show hex/binary versions of a string.}
]
show-all: func [letters [string!] /local str] [
str: ""
clear str
foreach char letters [
insert tail str reform [
char " "
find/last/any (to-hex to-integer char) "??" " "
enbase/base to-string char 2 " "
to-integer char
#"^(line)"
]
]
return str
]
view layout [
subtitle "String to Hex/Binary"
across
text "String:" value: field button "Go" [result/text: show-all value/text show
result] return
text "Results:" result: area with [size: 300x120 font: [name: font-fixed]] return
]
TIA, Rod.
p.s. When is that REBOL for Dummies book shipping? :-)
Rod Gaither
[EMAIL PROTECTED]
Oak Ridge, NC
