替换文本删除文本框中的其余文本

Question

我正在使用以下代码替换文本

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

我正在使用多行文本框其中填充了 10 行文本

我只想在第 1 行查找单词 "demoo" 并将其替换为 "demo"

即使第 2 行或其他行包含 "demoo"，我只想替换第 1 行

Answer 1

您可以使用 TextBoxBase.Lines 属性.

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

Answer 2

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

替换文本删除文本框中的其余文本

Replacing text delete rest of text in textbox

string

vb6

textbox

replace