World: r3wp

Volker: no, ?? gets 'value and probe gets value as input, so they 
return something different.

probe evaluates, while?? not.

but you can put both in the expression

Ok to sum up: Probe will return only the value to console, ? will 
return the variable along with short text and value, and ?? will 
return var name with value

append head copy/part trim  ?? string ?? ln "something" ; works

?? does a get, you can put it in expressions before variables

Volker: no, ?? changes the meaning of expression in case you put 
it before function:
>> f: func [a][a]
>> a: 1
== 1
>> b: probe f a
1
== 1
>> type? :b
== integer!
>> b: ?? f a
f: func [a][a]
== 1
>> type? :b
== function!

Wow, I guess there are a lot of ways to "explain" how rebol is evaluating 
an expression.  Thank you.  I will try them all sometime.

P.S.  In AltMe, what do you guys type to get a carriage return without 
sending the AltMe message until you do an <enter>

It's the "pen" icon, press it and you can send messages with CTRL+S

This is a test
This is a test
OK It works!

If you hover over the icons, you see the help info text at top left.

Rebolek, i said  all the time "with variables". Of course it does 
not know what you use as function and what as variable

altme: clicking the pen.

Ahhh so much to learn and not enough time!!!  Thanks for your patience
Ok, on to another issue.


I have a text file as a printable report that contains several pages 
within it.  Each line can be as large as 132 columns wide (or less).

- The literal  "    Page " will begin in column 115 and that indicates 
the start of a printed page.


I want to write a script that will read this text file one-page-at-a-time, 
so I can do some processing on the page.


How do I write a script to load in a single "page"?  I am guessing 
that I need to open a PORT and have rebol read all the lines until 
I get "....Page." in bype position 115.

Any suggestions?

Volker: OK, variables yes.

you can use read/lines to have all lines in a block

(except if its megabytes^^)

I need to load in a single page at a time, then "process" that page 
before going on to the next page and processing it.


Are you suggesting that I go ahead and read in all the lines of the 
report and then go through that block to identify a page?

if parse/all[115   " "   "Page" to end] ["its a new page"]
(not testet)

if parse/all  LINE [ 115   " "   "Page" to end] ["its a new page"] 
;..

I will check out PARSE and try some examples later.

Thanks for your help.  Will be back later

Or you can do something like:

fp: open/lines %file.txt
until [
	line: first fp
	if find skip line 115 "Page" [print "new page"]
	tail? fp: next fp
]
close fp

I think, that'll fail, if the file is empty!

Hi everyone,


I want to write out a Ruler line to a text file for a specified length 
of bytes similar to the following for 125 bytes in length:

----+---10----+---20----+---30----+---40----+---50----+---60----+---70----+---80----+---90----+--100----+--110----+--120----+

I tried the following code, but not what I want:             Ruler:	for 
Count 10 125 10 [ prin "----+---" Count ]     I got this instead:

----+-------+-------+-------+-------+-------+-------+-------+-------+-------+-------+-------+---Ruler: 
120              Any suggestions?

make the string without numbers, put the numbers in. with 'at, 'change/part 
ruler num length? num.

str: "----+-----"

for Count 10 125 10 [prin join copy/part str 10 - length? to-string 
Count Count]

It's hard to read, sorry, but it's short. :-)

My version produce a lot of copies of the string. Volker's suggestion 
is better, because it don't have these copies, so doesn't disturb 
the garbage collector too much.

doesn't

doesn't what?

I corrected myself.
because it *doesn't* have these copies ...

Volker -- I'm a newbie so bear with me,  I don't understand your 
suggestion.  Do you mean I should do this:
Ruler: for Count 10 125 10 [ prin "----+-----"    then what?

You could also go for a combination with one little string, that 
you change (by putting in the number) and print.

I'll see what I do with it ...

I think, Volker meant, you should make one large ruler of 125 chars.

This is a way without copies:
str: "----+-----"

for Count 10 125 10 [change skip str either Count < 100 [8][7] Count 
prin str]

Do you follow the code?

Hi Geomol,  I just signed on.  Will try out the code later -- many 
thanks

prin ["---" count]    not     print "---" count

prin will insert a space though, so you may want to do   print join 
"---" count   instead.

Hi All,  
Have any Rebolers dealt with UniCode files?


Here is my situation.  I work on an IBM AS400 that can "port" files 
over to the PC.  Notebook opens it up just fine, but Rebol doesn't 
see it the same way.  If I Cut & Paste the contents of the file into 
an empty notebook and save it, Rebol can see it just fine.  Upon 
further study, I noticed at the bottom of the SAVE AS window that 
Encoding was set to UNICODE for the AS400 file, while the cut & paste 
one was set to ANSI.  


Does Rebol want ANSI text files only, or can it read UNICODE files 
too?

I guess, you have to convert it. I've once build a RebXML format, 
that could be transfered to/from XML. I can handle utf-8. You can 
find code to convert from utf-8 here: http://home.tiscali.dk/john.niclasen/rebxml/xml2rebxml.r
(search for unicode)

The other way can be found here: http://home.tiscali.dk/john.niclasen/rebxml/rebxml2xml.r
(search for iso2utf-8)

Thanks Geomol,  Since I am a newbie, I can easily resave the files 
as ANSI instead of UNICODE and avoid the conversion problem, at least 
in the short term.  Once I get my "Convert to Table" program working, 
then I can look at your links to convert from UNICODE.

rejoin extract my-unicode-string 2

Obviously simplistic, just throwing away they extra byte for each 
char.

Hi Gregg -- So should I do something like this:  InText: rejoin extract 
Read InFile 2

Try it in the console and see what you get. The console is your friend. 
:-)

It works!!!!  Code to convert UNICODE to 

InFile:	%"Test In unicode.txt"
InText: rejoin extract Read InFile 2
write OutFile InText

I'm not too much into unicode. Is that utf-16, where every char is 
2 byte? I think, my scripts can only handle utf-8.