Изменение букв в TextBox-e.

[Adolf]

Как сделать, так чтобы при нажатии кнопки cmd1 происходило следующее действие: все буквы (предположим) "а", в набранном тексте, менялись на "б"?

[Trusishka]

Private Sub Command1_Click()
Dim A As String
Dim B As String
A = Trim$(Text1.Text)
B = "a"
Do While (InStr(1, A, B))
A = Trim$(Replace(A, B, "b"))
Loop
Text1.Text = A
End Sub

[A.A.Z.]

А не проще ли

Код: Выделить всё

Text1.Text = Replace(Text1.Text, "a", "6")

И никаких циклов не надо

[Amed]

[offtop]Но тогда все буквы "а" заменятся на шестёрки, а надо же на букву "б"![/offtop]

[Adolf]

С этим я разобрался, только хотелось бы сделать следующее:

If существует в тексте буква "а" (???) Then
...
End If

[Костя]

Можно организовать посимвольный перебор с помощью setstart, sellength b seltext, но эт долго.. А текст большой?

[Adolf]

Поясни на примере пожалуйста.

[uhm]

Да зачем? Есть же функции работы со строками.

Вот, пожалуйста:

Код: Выделить всё

If InStr(1,Text1.Text,"а") Then
...
End If


[Костя]

private function LetterA(symbol as string, start as number)
start =1
symbol =""
While symbol <> "" or symbol <> "a"
text1.SelStart = start
txtData.SelLength = 1
symbol = Data.SelText
if symbol = "a" then LetterA = true
start = start +1
Wend
end function

Возможно, немного коряво (торопился), но примерно так...

[Костя]

Пардон, в 3-й строке symbol = " "

[uhm]

text1.SelStart = start
txtData.SelLength = 1
symbol = Data.SelText

Мда... в трех строчках подряд три разных названия для одного и того же несчастного текстбокса

[Костя]

Рассеянность - высшая форма сосредоточенности!

[Adolf]

Спасибо за помощь, желаемый результат получил.

[neic]

If Text1.Text = "a" Then
Text1.Text = "б"
End If

Чел наверно это хотел?

Если нет! Тогда могу подготовить проект на тему! смена букв! Надо?

[Adolf]

neic
Нет, я этого не хотел. Данный код будет менять одну букву "а" на одну букву "б".

То что я хотел, я уже получил.