میخوام به صفحه رو در وب ویو با آدرس مثلا time.ir لود کنم و در اون جستجو کنم مثلا کلمه (امشب) پیدا میشه یا نه و متغییر که دریافت کنم در صورت پیدا شدن 1 و در صورت پیدا نشدن 0 باشه
در مثال هایی که پیدا کردم برای این کار فقط میشه متن پیدا شده رو هایلایت کرد و... ولی نمی گه که پیدا شده یا نه و فقط هایلایت میکنه
کد های نمونه که ازش استفاده می کنم
#Region Project Attributes
#ApplicationLabel: SearchWebview
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private WebView1 As WebView
Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
WebView1.LoadUrl("http://time.ir")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
'
Sub FindAll (w As WebView, s As String) As Int
Dim r As Reflector
r.Target = w
Return r.RunMethod2("findAll", s, "java.lang.String")
End Sub
Sub Button1_Click
Dim msg As String
msg = FindAll(WebView1, EditText1.Text)
Msgbox(msg, "---")
End Sub
البته همین کارم با کتابخانه WebViewExtras2 هم انجام دادم ولی نتیجه ای نگرفتم، ممنون میشم راهنمایی کنید
سوال
MrMedia 98
سلام به همه و اساتید محترم
در انجمن جستجو کردم و جوابی پیدا نکردم
میخوام به صفحه رو در وب ویو با آدرس مثلا time.ir لود کنم و در اون جستجو کنم مثلا کلمه (امشب) پیدا میشه یا نه و متغییر که دریافت کنم در صورت پیدا شدن 1 و در صورت پیدا نشدن 0 باشه
در مثال هایی که پیدا کردم برای این کار فقط میشه متن پیدا شده رو هایلایت کرد و... ولی نمی گه که پیدا شده یا نه و فقط هایلایت میکنه
کد های نمونه که ازش استفاده می کنم
#Region Project Attributes #ApplicationLabel: SearchWebview #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Private WebView1 As WebView Private EditText1 As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") WebView1.LoadUrl("http://time.ir") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub ' Sub FindAll (w As WebView, s As String) As Int Dim r As Reflector r.Target = w Return r.RunMethod2("findAll", s, "java.lang.String") End Sub Sub Button1_Click Dim msg As String msg = FindAll(WebView1, EditText1.Text) Msgbox(msg, "---") End Sub
البته همین کارم با کتابخانه WebViewExtras2 هم انجام دادم ولی نتیجه ای نگرفتم، ممنون میشم راهنمایی کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.