cucu3998

我想要的不是这样

我的本意是想

让text1 的每行内容 和text2 的每行内容 并列相对

出现在text3 中

不过感谢你和purana斑竹

能不能再帮我想想办法 ?

Private Sub Command1_Click()
Dim ind As Integer
Dim str1 As String, str2 As String, str3 As String, str4 As String
ind = InStr(1, RichTextBox1.Text, vbCrLf)
str1 = Mid(RichTextBox1.Text, 1, ind - 1)
str2 = Mid(RichTextBox1.Text, ind + 2)

ind = InStr(1, RichTextBox2.Text, vbCrLf)
str3 = Mid(RichTextBox2.Text, 1, ind - 1)
str4 = Mid(RichTextBox2.Text, ind + 2)

RichTextBox3.Text = str1 & " " & str3 & vbCrLf
RichTextBox3.Text = RichTextBox3.Text & str2 & " " & str4
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "白日依山尽" & vbCrLf & "欲穷千里目"
RichTextBox2.Text = "黄河入海流" & vbCrLf & "更上一层楼"
RichTextBox3.Text = ""
End Sub