Hi guys,
I wonder which is the easier way to do the following. I have a string which
inside could have something like 'this is a string with <code>some funny
lines</code> and here is another <code>haha</code>'. I need to parse that
string, get all places where I have things surrounded with
<code>SOMETHING</code>, get the "SOMETHING" (in previous example, that
would be 'some funny lines'), execute that (this is something internal) ,
and from that I get the real string (imagine in this case the answer is
'SOME FUNNY LINES'). Finally, I need to replace the orignal string... So
... given the input:
'this is a string with <code>some funny lines</code> and here is another
<code>haha</code>'
And given my specific domain logic transformation (in this example I assume
a simple #asUppercase), I would like to get:
'this is a string with SOME FUNNY LINES and here is another HAHA'
I got it working with below lines. But it is a hack and terrible slow (I
imagine).
So...anyone has an idea how can I do this simpler/faster? Maybe some RB
re-write rule?
Thanks in advance
| dom string originalString stringToBeAbleToParse xmlDocument replacements
finalString |
replacements := Dictionary new.
originalString := 'this is a string with <code>some funny lines</code> and
here is another <code>haha</code>'.
stringToBeAbleToParse := '<hack>', originalString, '</hack>'.
dom := XMLDOMParser on: stringToBeAbleToParse.
dom configuration isValidating: false.
xmlDocument := dom parseDocument.
(xmlDocument allElementsNamed: 'code') do: [ :aXMLElement |
"Let's simulate my domain transformation logic as a simple
#asUppercase"
replacements at: aXMLElement asString put: (([:code | code asUppercase ])
value: aXMLElement nodes first asString).
].
finalString := originalString.
replacements keysAndValuesDo: [ :originalText :new |
finalString := finalString copyReplaceAll: originalText with: new.
].
finalString
--
Mariano
http://marianopeck.wordpress.com
