parse-replace: func [
{Replaces the search value with the replace value within the target series.}
target [series!] "Series that is being modified."
search "Value to be replaced."
replace "Value to replace with."
/all "Replace all occurrences."
/case "Case-sensitive replacement."
/local len data rule text
][
len: length? search
collect/into data [
rule: [
[copy text to search (if text [data: join text replace]) len skip]
copy text to end (if text [data: text])
]
if all [insert rule 'any]
either case [parse/all/case target rule] [parse/all target rule]
] copy make target length? target
]
You need to create an account or log in to post comments to this site.