Замена текста удалить остальную часть текста в текстовом поле

Question

Я использую следующий код, чтобы заменить текст

Text1.Text = Replace(quer, "demoo", "demo") 

Я использую многострочное текстовое поле , который заполняются с 10lines текста

я просто хочу, чтобы найти и заменить слово «demoo» с «демо» в строке 1 только

даже если LINE2 или другая строка содержит «demoo», я просто хочу, чтобы заменить на LINE1

Answer 1

Private Sub Command1_Click() 
    Dim lines() As String 

    If Len(Text1.Text) = 0 Then Exit Sub 

    lines = Split(Text1.Text, vbCrLf) 
    lines(0) = Replace(lines(0), "demoo", "demo") 
    Text1.Text = Join(lines, vbCrLf) 
End Sub 

Answer 2

Вы Коули d используйте TextBoxBase.Lines Недвижимость.

Dim lines As String() = Me.TextBox1.Lines 
lines(0) = lines(0).Replace("demoo", "demo") 
Me.TextBox1.Lines = lines