Hello [EMAIL PROTECTED]!
On 14-Apr-00, you wrote:
A> if any [
A> C == #"A"
A> C == #"B"
A> C == #"C"
A> C == #"D"
A> C == #"E"
A> C == #"F"
A> C == #"G"
A> C == #"H"
A> C == #"I"
A> C == #"J"
A> C == #"K"
A> C == #"L"
A> C == #"M"
A> C == #"N"
A> C == #"O"
A> C == #"P"
A> C == #"Q"
A> C == #"R"
A> C == #"S"
A> C == #"T"
A> C == #"U"
A> C == #"V"
A> C == #"W"
A> C == #"X"
A> C == #"Y"
A> C == #"Z"
A> ] [
Hmmm... this seems a bit crazy to me... ;-) What about:
if all [C > #"A" C < #"Z"] [ ... ]
Anyway, with parse:
>> upper: charset [#"A" - #"Z"]
== make bitset! #{
0000000000000000FEFFFF070000000000000000000000000000000000000000
}
>> line: "ThisIsTheLine"
== "ThisIsTheLine"
>> parse line [skip some [here: upper (insert here " ") skip | skip]]
== true
>> line
== "This Is The Line"
Regards,
Gabriele.
--
Gabriele Santilli <[EMAIL PROTECTED]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/
