DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

Snippets has posted 5883 posts at DZone. View Full User Profile

Parse-replace - Parse-based REPLACE Function

  • submit to reddit
    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 skip-len rule text
        len: length? form search
        skip-len: length? form replace
        rule: copy [
            [to search mark: (change/part mark replace len) skip-len skip]
            to end
        if all [insert rule 'any]
        either case [parse/all/case target rule] [parse/all target rule]