تفكيك جملات

[f_g1348]

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

Split(TextBox1.Text, "?")(k) & Constants.vbCrLf

[فرید نجفلو]

من با این کد تست کردم مشکلی نداشت
متغیر Lines حاوی جملات شماست

Dim Mystr As String = "abc.def?ghi!jklmn.opwx?"
Dim lines = Mystr.Split({"."c, "?"c, "!"c}, StringSplitOptions.RemoveEmptyEntries)

[tam2145]

سلام !!
فرید جون این تابع ها از چه نوعی هستند ؟؟ اگه میشه یک منبع بده تا برم یاد بگیرم !! آخه تازگی برام داره !!
این کد هم خودم نوشتم در حد دانشم :


Dim lentext, ptext, lenjomle As UShort, str1, str2, str3 As String
lentext = Len(TextBox1.Text)
str1 = TextBox1.Text
ptext = 1
For i = 2 To lentext
str2 = Mid(str1, i, 1)
If str2 = "." Or str2 = "!" Or str2 = "?" Then
lenjomle = i - ptext + 1
str3 = Mid(str1, ptext, lenjomle)
TextBox2.Text = str3
ptext = i + 1
End If
Next i

فقط دوست عزیز تو این خط :

TextBox2.Text = str3
من نمایش اخرین جمله را انتخاب کردم که شما می توانید عمل مورد نظر را بنویسی !!

[Hybrid]

سلام دوست عزیز امیدوارم حالت خوب باشه : ( البته با عرض معذرت از دوست عزیز f_g1348 (http://barnamenevis.org/member.php?80944-f_g1348)) :

مرجع توابع وی بی دات نت : حتما حتما مطالعش کن

دانلود (http://dl.mihanbook.ir/server1/vb-net-tabe.zip)


موفق باشید./

[فرید نجفلو]

اینا توابع تو کار هستند بر عکس VB6 نوع ها هم (مثل String) نیز نوعی کلاس هستند و به همین دلیل می تونند دارای توابع و متد ها هم باشند
Split یکی از توابع String هستش و واسه رشته یه تعداد توابع دیگه داخل کلاس Strings (آخرش یه S اضافه داره) می تونید پیدا کنید

[فرید نجفلو]

سلام دوست عزیز امیدوارم حالت خوب باشه : ( البته با عرض معذرت از دوست عزیز f_g1348 (http://barnamenevis.org/member.php?80944-f_g1348)) :

مرجع توابع وی بی دات نت : حتما حتما مطالعش کن

دانلود (http://dl.mihanbook.ir/server1/vb-net-tabe.zip)


موفق باشید./



با اجازه دوست بسیار عزیزم vbBoss (http://barnamenevis.org/member.php?230007-vbBoss)
این منبع خوبی واسه یادگیری که به نوبه خودم ازتون تشکر می کنم

البته این توابع اون هایی هستند که داخل فضای نامی Microsoft.VisualBasic قرار دارن و مخصوص VB.Net هستند که قریب به اتفاقشون از VB6 به ارث رسیده
بعد از یاد گیری این توابع باید برید سراغ توابعی که داخل کلاس های دات نت (از جمله String که اینجا مورد بحث بود) که فوق العاده زیاد هستند والبته مفید(دیدید که چندین خط کد با یک تابع برابری کرد!)