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

[f_g1348]

با سلام
دوستان من دنبال کدی می گردم که متن فارسی را بگیرد و بصورت کلمه به کلمه اون رو نشان دهد

[Samsam2010]

سلام

دنبال کد میگردی ؟ یا راه حل ؟
اگر دنبال راه حل هستی از تابع mid یا substring استفاده کن به این شکل که با یک حلقه ابتدا تا انتهای رشته رو پیمایش کن کلمات رو دونه دونه در بیار و داخل لیست باکس ذخیره کن مثلا به این شکل

dim mystring as string

for i=1 to mystring.lenght

listbox1.items.add(mid(mystring,i,1))

next

در شبه کدی که بالا برات نوشتم هر بار یک کاراکتر از رشته رو میگیره و در لیست باکست ذخیره میکنه! بعد شما مینونی کلمات رو هر طور که خواستی ازش استفاده کنی.

[Mohammad_chz]

به نام خدا
دوست عزیز شما می تونید از متد String.split استفاده کنید مثل نمونه زیر:


Dim str, word As String
str = "This is a sample text."
Dim str1 As String() = str.Split(New Char() {" "c})
For Each word In str1
ListBox1.Items.Add(word)
Next


توی کد فوق فرض شده که متن شما استاندارده یعنی برای جدا کردن کلمات فقط از یک فاصله استفاده شده. در غیر اینصورت اول باید کدی بنویسید که متن رو بررسی کنه و فاصله های اضافی رو حذف کنه.

[Samsam2010]

من به اشتباه فکر کردم شما می خواهید حرف ها را جدا کنید ! متوجه عبارت 'کلمه' نشدم !
شبه کدی که در پست شماره 2 نوشتم ! برای جدا کردن هر حرف از رشته است نه هر کلمه !
با عرض پوزش

[f_g1348]

با تشکر از دوستان
میشه خط مربوط به split را توضیح دهید
حال فرض کنید فاصله اضافه هم در متن باشد چگونه آنها را شناسایی و حدف کنم ؟

[cherchil_hra]

توی دستور for که گذاشتند یه شرط هم بذار که مقدار word رو چک کنه ببینه خالی نباشه

Dim str() As String = s.Split(" ")
For Each word As String In str
If word IsNot String.Empty Then
ListBox1.Items.Add(word)
End If
Next

[f_g1348]

دوستان من اين عبارات رو نوشتم ولي وقتي به نقطه مي رسه اون رو هم مي شمارد در صورتي كه نبايد . ، ؟ ! و يا هر علامت ديگري را بخواند
لازم به ذكر است كه نمي خواهم در ابتداي برنامه اين علايم را از جملات پاك كنم