http://snippets.dzone.com/posts Sun, 18 May 2008 00:06:27 GMT DZone Snippets: parse-replace code http://snippets.dzone.com/posts/show/2049 <code> <br /> parse-replace: func [ <br /> {Replaces the search value with the replace value within the target series.} <br /> target [series!] "Series that is being modified." <br /> search "Value to be replaced." <br /> replace "Value to replace with." <br /> /all "Replace all occurrences." <br /> /case "Case-sensitive replacement." <br /> /local len data rule text <br /> ][ <br /> len: length? search <br /> collect/into data [ <br /> rule: [ <br /> [copy text to search (if text [data: join text replace]) len skip] <br /> copy text to end (if text [data: text]) <br /> ] <br /> if all [insert rule 'any] <br /> either case [parse/all/case target rule] [parse/all target rule] <br /> ] copy make target length? target <br /> ] <br /></code> Wed, 17 May 2006 01:37:48 GMT http://snippets.dzone.com/posts/show/2049 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/2048 <code> <br /> parse-replace: func [ <br /> {Replaces the search value with the replace value within the target series.} <br /> target [series!] "Series that is being modified." <br /> search "Value to be replaced." <br /> replace "Value to replace with." <br /> /all "Replace all occurrences." <br /> /case "Case-sensitive replacement." <br /> /local len skip-len rule text <br /> ][ <br /> len: length? form search <br /> skip-len: length? form replace <br /> rule: copy [ <br /> [to search mark: (change/part mark replace len) skip-len skip] <br /> to end <br /> ] <br /> if all [insert rule 'any] <br /> either case [parse/all/case target rule] [parse/all target rule] <br /> target <br /> ] <br /></code> Wed, 17 May 2006 01:36:32 GMT http://snippets.dzone.com/posts/show/2048 gregg.irwin (Gregg Irwin)