جدا کردن کلمات یک جمله

[systam]

سلام
من در این برنامه ای ضمیمه کردم یک جمله ای رو که توسط کاربر وارد شده رو
هر کلمه رو جدا کرده و در متغیر ریخته و در تکسی که تعریف شده هر کلمه رو خط به خط نمایش میشه
الان برنامه خطا میگیره نمدونم مشکلش چیه
توی سایت رو هم گشتم چیزی پیدا نکردم
این کد استفاده شده :

Dim strrrrr AsString = Trim(TextBox1.Text)
Dim str() AsString = strrrrr.Split(" ", ".", ":", "=", "(", ")", ControlChars.Tab)
For i AsInteger = 0 To str.Length
TextBox2.Text = str(i)
Next

ممنون میشم راهنماییم کنید
:قلب::لبخند:

[محمد آشتیانی]

سلام

اینجوری درست کار میکنه دوست عزیز



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strrrrr As String = Trim(TextBox1.Text)
Dim str() As String = strrrrr.Split(" ", ".", ":", "=", "(", ")", ControlChars.Tab)
For i As Integer = 0 To str.Length - 1
TextBox2.Text += str(i) & vbCrLf
Next
End Sub



موفق باشید

[مهرداد صفا]

سلام.

textBox1.Lines=textBox1.Text.Trim.Split(" ",",","."...)

[systam]

سلام
ممنونم از دو استاد بزرگوار که زحمت کشیدند راهنمایی کردند
حالا کاراکتر دابل کوتیشن " رو چطوری تویSplit قرار بدم
و دیگه برای space های وارد شده در textbox یه اینتر میزنه داخل textbox

[محمد آشتیانی]

سلام
خواهش میکنم ، اینم مدل با دابل کوتیشن و بدون کاراکتر Space تو هر خط



Dim strrrrr As String = Trim(TextBox1.Text)
Dim str() As String = strrrrr.Split(" ", ".", ":", "=", "(", ")", """", ControlChars.Tab)
For i As Integer = 0 To str.Length - 1
If Trim(str(i)) <> String.Empty Then
TextBox2.Text += str(i) & vbCrLf
End If
Next


موفق باشید