select کاراکترهای قبل از اینتر

[mostafa194]

سلام می خوام تو برنامه تو یک richtextbox کارکترهای قبل از اینتر رو سلکت کنم نیاز به کمک دوستان دارم.

[mostafa194]

Dim i As Long
Do
i = InStr(Me.RichTextBox1.Text, " ")
If i <> 0 Then
Me.Table1BindingSource.AddNew()
Me.RichTextBox2.Text = Microsoft.VisualBasic.Left(Me.RichTextBox1.Text, i)
Me.RichTextBox1.Text = LTrim(Mid(Me.RichTextBox1.Text, i))
Else
Me.RichTextBox2.Text= Mid(Me.RichTextBox1.Text, 1)
End If
Me.Validate()
Me.Table1BindingSource.EndEdit()
Me.Table1TableAdapter.Update(Me.Database3DataSet.T able1)
Loop While (i <> 0)
می خوام مثل کد بالا که کاراکترها رو به وسیله فاصله خالی بین آنها جدا میکنه به وسیله اینتر جداکنم. ممنون میشم کمک کنید:ناراحت:

[vahid1]

دوست عزيز textbox و RichTextBox داراي يك property به نام lines هست كه خطوط متن را در اختيارتان قرار مي‌دهد. پس مي‌توانيد خيلي ساده از اين property بهره ببريد.



For each strLine as string in textbox.text.split(vbnewline)
...
end for


همينطور مي‌توانيد خودتان اين كار را انجام دهيد.


Dim Lines() as String = Split(RichTextBox1.Text, vbNewLine)
MsgBox(Lines(0))



موفق باشيد