Работа с тектом... никак не врублюсь...

[el-niko]

Здравствуйте, помогите пожалуйста в следующей прабле:

У меня в текстовом поле, допустим, с ипенем pole есть такой текст
z1 x2 v3+ b4-

Теперь надо в этом тексте сделать так:
1) все буквы оставить также
2) 1 заменить на 4
2 - на 3
3 - на 2
4 - на 1
3) Если в конце стоял "+" то поместить вперёд слово "да"
Если в конце стоял "-" то поместить вперёд слово "нет"

4) Убрать все пробелы

В иторе должно получиться так:
z4x3даv2нетb1

Если кто-то знает, как решить сию задачу - подскажите пожалуйста...
Зараннее спасибо...

[xenomorph]

Смотри InStr()
Запоминай позицию и меняй - писать алгоритм или вручняк или пошерсти поисковики

[ANDLL]

Replace. Вот и все.

[el-niko]

Ребят, это вам опытным прогерам понятно, а нам, ламерам, эти слова ничё не говорят, честное слово =) Можно какой-нить примерчик чтоли или как-нить по-подробнее, а?

Зараннее спсибо...

[ANDLL]

txt=Replace(txt," ","")
txt=Replace(txt,"+","да")
txt=Replace(txt,"-","нет")

[el-niko]

Всё, я сам нашёл решение, но всё рвно всем спасибо !!!
Тема закрыта....

[alibek]

Replace не пойдет.
Если заменить "1" на "4", а потом заменить "4" на "1", то в результате "4" не будет нигде, будет только "1".
Надо искать требуемые символы и запоминать их позиции. А потом пройтись циклом по этому списку и заменить на что нужно.

[SHURUP]

Replace не пойдет.
Если заменить "1" на "4", а потом заменить "4" на "1", то в результате "4" не будет нигде, будет только "1".

А можно сначала заменить все единицы на что-то несуразное типа "[edenitsa]", четверки "[chetverka]". Потом "[chetverka]" "1", "[edenitsa]" 4.

А конкретно к этим числам, то можно и по формуле 5-x заменять!

[alibek]

А на что несуразное? Вдруг это несуразное в тексте встретится, вот несуразность будет.
Правильный ответ был уже в первом посте, от xenomorph, т.е. запоминать позиции, а потом заменять разом. Имеет смысл написать функцию ReplaceBatch(Find1, Replace1, Find2, Replace2, ..., FindN, ReplaceN) и реализовать такую замену в ней.

[kazah_]

можно так:

for i=1 to len(Str)
if mid(Str,i,1)<>" " Str2=Str2+mid(Str,i,1)
...

next
if Right(Str, 1)="+" then str="да" & left(str,len(str)-1)