Символы в строке

[hamsid]

Как сделать так чтобы в строке из всех символов могла быть только 1 или 0 какого-то символа (допустим А)?

 

[andrey24]

' меняем слово "хочу" на "люблю" 1 раз
Dim sample$, findstr$, newstr$,retval$
sample = "Я хочу, хочу, хочу тебя" 'строка,которую будем менять
findstr = "хочу" 'подстрока для замены
newstr = "люблю" ' новая подстрока для замены
retval = Replace (sample,findstr, repl, 1, 1) ' меняем один раз, начиная с первого символа

какого-то символа (допустим А)?

будет

какая-то переменная = Replace(переменная в которой будет производится замена, "A","0")

В данном случае все "A" поменяются на "0"!!!