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

@leontbf · Регистрация: 13.07.2012

Author24 — интернет-сервис помощи студентам

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

Visual Basic

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

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

@Linoge · 13.07.2012, 16:14

strText = Replace(strText, ":", "*",,1) заменить 1 раз
и строки ": " он не найдет в введенном тексте, пробел удалить.

Добавлено через 3 минуты
если нужно в каждой строке - то разбить на строки и обрабатывать каждую:

Visual Basic

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

@leontbf · 13.07.2012, 18:57 **[ТС]**

Большое вам Linoge человеческое спасибо!

@leontbf 2 / 2 / 1 Регистрация: 13.07.2012 Сообщений: 31
	13.07.2012, 18:57 [ТС]	3
	Большое вам Linoge человеческое спасибо! 0