Character replacing in a word

Question

Hi there!
For some reason I can't figure out how to replace ALL the occurrences of
'_a, _b, _c' with 'A, B, C' in a text (for example this_list --> thisList or my_app --> myApp)
When borrowing scripting code I find them easier to read writtenin my 'dialect', so to speak.
I've booked results using the (offset -1) of "_" in theText and character theOffset +1.
That will return the required result in the result box of Scripreditor, but helas not in the text itself.
Plus that my script find only the 1st "_ + some char" while I did implement a repeat command.
Could anyone help me out here. please?
P.S. Since I'm at work right now, I don't have my script at hand, for you to point out the faillures I made.
Thanks a lot,
Marcus

Answer 1

Hello
I'd try something like the code below.
Well, this is barely in AppleScript. But it is much more concise and usually faster for long text.
Please copy code from this web page, not from subscribed email text, for I escaped some characters for posting.
Cheers,
H
--SCRIPT
set t to "this_list, my_app"
return a_string2aString(t)
on a_string2aString(t)
string t : source string
return string : modified string such that every character preceded by _ is changed to uppercase.
set pl to "s/_+(.)/\\U$1/og;"
return do shell script ("echo " & quoted form of t & " | perl -Mutf8 -pe " & quoted form of pl)
end a_string2aString
--END OF SCRIPT