Question

VB中如何用textbox控件修改richtextbox控件中某一行的某个值

例如：

在richtextbox中所调用的文本文档内容为：

123 456

123 456

在textbox中输入789，点击按钮控件，会将第二行的的456改为789，并且在richtextbox中显示修改后的内容：

123 456

123 789

很急，希望高手能帮我写下能实现这个目的的程序，在线等，重赏！！！

Answer 1

Private Sub Command1_Click()
Dim a() As String
a = Split(RichTextBox1.Text, vbCrLf)
If UBound(a) >= 1 Then
a(1) = Replace(a(1), "456", Text1.Text)
RichTextBox1.Text = Join(a, vbCrLf)
End If
End Sub

追问

能不能在每句后面加个注解，本人刚刚接触，不太明白，谢谢

追答

Private Sub Command1_Click()
Dim a() As String ‘定义数组变量A为字符型
a = Split(RichTextBox1.Text, vbCrLf) '使用split函数以回车换行为界分隔richtextbox内容 保存到数组变量a中 默认a中元素从0开始 也就是第一行的数据保存在a(0)中 第二行a(1)中
If UBound(a) >= 1 Then '如果数组变量上限有超过或等于1则执行
a(1) = Replace(a(1), "456", Text1.Text) '用replace函数替换 a(1)元素中 456 字符为 text1中的字符串
RichTextBox1.Text = Join(a, vbCrLf) '将a数组变量内容用join函数 以回车换行重新连接每个元素赋值给richtextbox控件
End If
End Sub