请教简单问题：如何从richtextbox中读取数据？请帮忙！

Question

在richtextbox中有N行N列数据，如何读取数据到一个数组simulate中？不能有空格
比如数据为：
0.437981 0.143571 0.874250 0.370260 0.267133 0.143571 0.450100 
0.495723 0.286143 0.849300 0.839320 0.932467 0.428714 0.100800 
0.343171 0.143571 0.487525 0.599800 0.766133 0.214857 0.649700 
0.238381 0.713857 0.300400 0.460080 0.899200 0.785143 0.649700 
0.191333 0.286143 0.861775 0.769460 0.533267 0.214857 0.350300

Answer 1

Private Sub Command2_Click()
Dim ls_Content() As String
ls_Content = Split(RichTextBox1.Text, vbCrLf)
End Sub

Answer 2

如果想每个数组里都没有空格就这样:
Private Sub Command2_Click()
Dim ls_Content() As String
Dim s As String
s = Replace(RichTextBox1.Text, " ", "")ls_Content = Split(s, vbCrLf)msgbox  ls_Content(0)
End Sub