جدا كردن يك جمله از يك متن

[dav_mszd]

دوستان سلام
ميخواستم يه جمليه ازمتني رو كه از ديتابيس ميخونم جدا كنم
طول جمله ثابت نيست و ميتونه انگليسي يا فارسي باشه
انتهاي هر جمله با نقطه مشخص ميشه
در ضمن در مورد regex هم يه چيزايي تو اينتر نت ديدم اگه با regex ‌باشه چه بهتر
ممنون

[Rezahak]

public function SplitText(byval txt as string) as string()
Dim regex As Regex = New Regex(".")
Dim substrings() As String = regex.Split(txt)

return substring
end function

[dav_mszd]

public function SplitText(byval txt as string) as string()
Dim regex As Regex = New Regex(".")
Dim substrings() As String = regex.Split(txt)

return substring
end function
دوست عزيز جواب نداد
راه حل ديگه اي نداري
شديدا و سريعا احتياج دارم

[Rezahak]

پيغام خطا چي بود؟؟؟

[dav_mszd]

62905
همون اول كار ازم ايراد گرفت اصلا برنامه ران نشد
تا تابع تست بشه

[Rezahak]

public function SplitText(byval txt as string) as string()
Dim regex As Regex = New Regex(".")
Dim substrings() As String = regex.Split(txt)

return substrings
end function

[dav_mszd]

public function SplitText(byval txt as string) as string()
Dim regex As Regex = New Regex(".")
Dim substrings() As String = regex.Split(txt)

return substrings
end function
دوست عزي اين خروجي تابع شماست
فقط به اندازه طول رشته وروردي ؛؛ بر ميگردونه
62906

[ali_najari]

دوست عزيز شما بايد ابتدا مكان شروع اون جمله رو در متن با تابع Instr پيدا كنيد و بعد جمله رو جدا كنيد!



Dim Str As String = "This Is a test String For Splite"
Dim str2 As String = "is"
Dim Start As String = InStr(Str, str2)
MsgBox(Mid(Str, Start, str2.Length))

[ali_najari]

براي حذف اون تيكه از متن هم ميتونيد از دستورات زير استفاده كنيد



Dim Str As String = "This Is a test String For Splite"
Dim str2 As String = "test"
Dim Start As String = InStr(Str, str2)
Dim LastString As String = Str.Remove(Start - 1, str2.Length)
MsgBox(LastString)

[dav_mszd]

براي حذف اون تيكه از متن هم ميتونيد از دستورات زير استفاده كنيد



Dim Str As String = "This Is a test String For Splite"
Dim str2 As String = "test"
Dim Start As String = InStr(Str, str2)
Dim LastString As String = Str.Remove(Start - 1, str2.Length)
MsgBox(LastString)

علي جان اين چيزي كه شما نوشتي براي وقتي كه شما ميدوني جمله چيه با حداقل چه كلماتي توش هست
ولي توي اين مورد اصلا معلوم نيست جمله طوش چقدر يا چه كلماتي توش هست
جمله به عنوان متن خبر از كاربر گرفته ميشه و توي ديتابيس ذخيره ميشه بعد قرار توي صفحه اصلي سايت اولين جمله يا بهتر بگم تا اولين نقطهاز متن رو جدا كنيم و نمايش بديم
در ضمن جمله ميتونه فارسي با انگليسي باشه با طول متغير

[hero4000]

دوست عزي اين خروجي تابع شماست
فقط به اندازه طول رشته وروردي ؛؛ بر ميگردونه
62906

دوست عزيز اين کدي که ميخواستين


Dim str() As String
str = Strings.Split("Mahdi.Morad Sadegh.Hasan", ".")
MsgBox(str(0))


اينم جوابش

http://barnamenevis.org/newreply.php?do=postreply&t=262217

[dav_mszd]

علي جان
كاري كه كردي كاملا درست بود با يه تغيير كوچيك كار منم راه انداخت
تشكر