چگونگی تشخیص انتهای پاراگراف

[aria1o]

با سلام خدمت اساتید

من داخل پروژم از تابع زیر برای ایجاد Find Next استفاده کردم،مشکلم اینجاست که چجوری تشخیص بده به انتهای پاراگراف رسیده ،در واقع میخوام داخل یه حلقه قرار بگیره که وقتی رسید به انتهای متن از حلقه خارج بشه.

ممنون میشم از راهنمایتون.


Private Sub Command1_Click()
Dim x As Integer
s = Text1.SelStart + Len(Text1.SelText) + 1
If Text1.SelStart = 0 Then s = 1
x = InStr(s, Text1.Text, Text2.Text, vbTextCompare)
If x <> 0 Then
Text1.SelStart = Int(x) - 1
Text1.SelLength = Len(Text2.Text)
Text1.SetFocus
Else
Text1.SelStart = 0
End If
End Sub

[knight-rak]

درست نمیدونم منظورت چی هست ولی فکر کنم اگه توی متن دنبال کاراکتر نقطه "." بگرده و وقتی پیدا شد exit sub بشه یا اینکه اصلا کل طول متن رو بدست بیار و شرط بزار که به این عدد رسید خارج بشه با همون exit sub

[aria1o]

درست نمیدونم منظورت چی هست ولی فکر کنم اگه توی متن دنبال کاراکتر نقطه "." بگرده و وقتی پیدا شد exit sub بشه یا اینکه اصلا کل طول متن رو بدست بیار و شرط بزار که به این عدد رسید خارج بشه با همون exit sub

مشکل ا ینه که نقطه میتونه هر جای متن باشه ،با تایعی هم که بالا گذاشتم نتونستم تعدادکل کارکترارو به چیز خاصی نسبت بدم.

[aria1o]

با این تاببع میشه :


Private Sub Command2_Click()
Dim Finde As String
Find = Text2.Text
If Find = "" Then Exit Sub
lenfind = Len(Find)
lensource = Len(Text1.Text)
Text1.SelStart = Text1.SelStart + Len(Text1.SelText)
Do Until Text1.SelStart = lensource
Text1.SelLength = lenfind
Text1.SetFocus
If Text1.SelText = Find Then Exit Sub
Text1.SelStart = Text1.SelStart + 1

Loop
MsgBox "Cannot Find" & " " + Find
Text1.SelStart = 0
End Sub

[knight-rak]

الآن جواب داد میشه یکم در موردش توضیح بدی

[aria1o]

دوست عزیز کافیه تابع رو بزاری روی یک فرم و دوتا تکس باکس اضافه کنی تو تکس باکس یک متن مورد نظر رو بزار تو تکس باکس دوم هم کلمه ای که میخوای جستجو کنی،با هر بار کلیک کلمه مورد نظر رو پیدا میکنه و وقتی برسه به آخر متن یه پیغام میده.