Заменить определённый символ один раз в каждой строке - VB

Формулировка задачи:

Здравствуйте, мне надо код на VB который смог бы заменит определённый символ один раз в каждой строке. Например имеем такой текст в Textbox. Ааааааааааа:bbbbbbbbb:nnnnnn:lpppp Kkkkkk:iiiiiiiii:bbbb Как сделать так что бы первый символ “:” заменит на “ *” а вторые и третей не заменят? И получит такой текст. Ааааааааааа*bbbbbbbbb:nnnnnn:lpppp Kkkkkk*iiiiiiiii:bbbb

Вот этот код но он мне не походить
Dim strText As String
strText = TextBox.text
'заменяем все в тексте “:” на * на звездочки
strText = Replace(strText, ": ", "*")
TextBox.text = strText

Заранее благодарю.

Решение задачи: «Заменить определённый символ один раз в каждой строке»

textual
                            Листинг программы 
                        

                            Dim strText
strText = Split(Text1.Text, vbCrLf)
Text1.Text = ""
For i = LBound(strText) To UBound(strText)
    Text1.Text = Text1.Text & Replace(strText(i), ":", "*", , 1) & vbCrLf
Next
                        

Оцени полезность:

11 голосов , оценка 4.273 из 5

Похожие ответы