[JFWRus] Замена символов

Здравствуйте, участники дискуссий.
Вопрос на красный пояс по джоз-джитсу:
Есть ли более элегантный, чем использование StringSegment, способ замены символа
в строке?
Например, в строке
"xxx:xxx:xxx"
надо заменить символ ":" на чсимвол "|".
Как решить эту задачу наименьшим количеством
строк кода?
С уважением, Анатолий.
***
Это сообщение No3601
было разослано для 304 участников дискуссионного листа
[JFWRus] Замена символов
Здравствуйте,
Функция SubString спасёт отца русской демократии. Я предлагаю так:
var
string oldstring,
string newstring,
string temp,
int i
let oldstring="XXX:XXX:XXX"
let i=1
while (i<StringLength(oldstring))
let temp=SubString(oldstring,i,1)
if(temp==":") then
let newstring=newstring+"|"
else
let newstring=newstring+temp
Endif
let i=i+1
endwhile
Здесь возможны какие-то мелкие ошибки, но общая идея я думаю ясна. Будьте
внимательны с функцией substring, третий параметр в ней число символов, а не
номер последнего символа. Это может ввести в заблуждение.
До свидания.
***
Это сообщение No3604
было разослано для 304 участников дискуссионного листа
[JFWRus] Re: Замена символов