Question

我使用以下代码替换文字

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

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

我只想在第1行找到并用“demo”替换单词“demoo”

即使line2或其他行包含“demoo”，我只想替换line1

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

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

2 个答案: