为什么从其他文件 比如 .rtf文件粘贴过来的多行文本复制到.txt文件 就变成了一行?

我想一行一行的读取.rtf 文件的内容怎么办呢?

将text的Multiline属性设为True

倒 复制过去还是一行

[此贴子已经被作者于2007-3-20 0:38:17编辑过]

ｔｘｔ文件的回车是一个黑点，你拷到写字板中肯定可以。

是啊 考到写字板中可以

可是怎么才能一行一行的读写字板的字符呢?

比如
RichTextBox1.text里的内容是
白日依山尽
欲穷千里目


RichTextBox2.text里的内容是

黄河入海流
更上一层楼

怎样才能让RichTextBox3.text的内容是

白日依山尽, 黄河入海流。
欲穷千里目, 更上一层楼。

一开始我 用 RichTextBox3.text=RichTextBox1.text + RichTextBox2.text
可是出来的结果是这样的

白日依山尽
欲穷千里目 黄河入海流
更上一层楼

完全不靠谱



我本想在RichTextBox1.text 里读一行 然后在RichTextBox2.text里读一行
分别写入RichTextBox3.text

可是好象没有一行一行读写RichTextBox的语句。

求高人指点

再顶 在线等

我只把你说的改成
白日依山尽
黄河入海流
欲穷千里目
更上一层楼
这样了，你要吗？

你把RichTextBox1.text里的内容改成
白日依山尽，黄河入海流。
注意：在黄河入海流后打个回车。
把RichTextBox2.text里的内容改成
欲穷千里目，更上一层楼。

这样，RichTextBox3.text的内容就是

白日依山尽, 黄河入海流。
欲穷千里目, 更上一层楼。

OK，你试试吧，反正我做到了。

只要结果，不要过程。

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 = Left(RichTextBox1.Text, ind)
ind = InStr(ind, RichTextBox1.Text, vbCrLf)
str2 = Mid(RichTextBox1.Text, ind)

ind = InStr(1, RichTextBox2.Text, vbCrLf)
str3 = Left(RichTextBox2.Text, ind)
ind = InStr(ind, RichTextBox2.Text, vbCrLf)
str4 = Mid(RichTextBox2.Text, ind)

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

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