- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, June 02, 2000 11:27 AM
Subject: [REBOL] Screening chars from strings
Hi:
I want to write a function that tests a string
for an exclusive set of characters:
ex:
found-unwanted: func [str[string!]
Hi Tim,
I forgot to add 'intersect to the list. I think this is the complete list
now?
intersect
difference
union
unique
exclude
trim/with
Cheers,
Allen K
Hi Allen:
Exclude is not found in the dictionary -
tim
At 12:14 PM 6/2/00 +1000, you wrote:
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, June 02, 2000 11:27 AM
Subject: [REBOL] Screening chars from strings
Hi:
I want to write a function
This appears to work:
CharsAccepted: func [acceptable[string!] submitted[string!] /local
inter-set exc-set]
[
inter-set: intersect acceptable submitted
if (length? inter-set) (length? submitted)
[make error! rejoin[exclude submitted inter-set " are not acceptable
characters"]]
return
Hi Tim,
This appears to work:
CharsAccepted: func [acceptable[string!] submitted[string!] /local
inter-set exc-set]
[
inter-set: intersect acceptable submitted
if (length? inter-set) (length? submitted)
[make error! rejoin[exclude submitted inter-set " are not acceptable