Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Parse question

From: tim:johnsons-web at: 25-Jul-2003 17:10

I have the following code: str2blk: func[str[string!] delimiters[string! char!] /local non-delims blk txt delims] [ if char? delimiters[delimiters: to-string delimiters] delims: charset delimiters non-delims: complement delims blk: copy [] parse/all str[some [copy txt some non-delims (insert tail blk txt) | delims]] return blk ];end function --------------------
>> str2blk "bcadefafg" "a"
== ["bc" "def" "fg"] ; that's good ; but where
>> str2blk "bcadeaafg" "a"
== ["bc" "de" "fg"] ; not good, I'd like ; to see == ["bc" "de" "" "fg"] IOWs, where there are two consecutive delimiters, I would like an empty string inserted. any Ideas? Thanks tim -- Tim Johnson <[tim--johnsons-web--com]>