قرار دادن بخشی از سایت در وب ویو

[mamal00 11]

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

لطفا کمکم کنید ممنون

[mamal00 11]

با اجازه دوستان

آپ

[arash127 488]

خوب مشکل کجاست ؟ چه خطایی میگیره ؟ کجاش کار نمیده ؟

 

دوما به این خط ایراد نمیگیره ؟

str=str.Replace("""","'")

[mamal00 11]

نه به اون خط گیر نمیده،ایرادی ندارم ولی اون گزینه ای ام که میخوام حذف نمیکنه یعنی تغییری اتفاق نمی افته!!!

[mamal00 11]

آقا ببخشید من تاپیک قدیمی رو بالا میارم ولی هرکاری با این element ها کردم نتونستم حذفش کنم

این سورس من:

#Region  Project Attributes 
#ApplicationLabel: B4A Example
#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
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.


End Sub


Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.




 Dim web1 As WebView
Dim httpjob1 As HttpJob
Dim str As String
Dim str2 As String
End Sub


Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
httpjob1.Initialize("httpjob1",Me)
httpjob1.Download("http://collectionshopping.ir/")
ProgressDialogShow("لطفا صبر کنید")
End Sub


Sub jobdone(job As HttpJob)
If job.Success=True Then


ProgressDialogHide
Dim s As String
str=str.Replace("""","'")
str=job.GetString
str.Replace("<li id='menu-item-1962' class='menu-item menu-item-type-post_type menu-item-object-page menu-item-children-0'><a href='http://collectionshopping.ir/?page_id=1925'>تماس با ما</a></li>","")
str.Replace("","")
web1.LoadHtml(str)
Else
Msgbox("خطا!","error")
End If
End Sub


Sub WebView1_PageFinished (Url As String)




End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub

 

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

دیگه یه زحمتی بکشید ببینید میتونید حلش کنید

[mamal00 11]

دوستان خواهشا اگه کسی میدونه رهنمایی کنه

[arash127 488]

سورس کل صفحه را با http job دانلود میکنی و میریزی داخل متغیر زیر

 

اگر مقدار اون منو ثابته تیکه کد اون قسمتو بردار بذار جای کد مثالی زیر و تمام

dim str as string

str.replace("<div class=x"...>....</div>,"")

اگر مقدار متغیره با تابع

Dim str2 As String
			str2 = str.SubString2(s.IndexOf("<div>")+5,s.IndexOf("</div>"))
			str.Repalce(str2,str)
			webview1.LoadHtml(str)

اون عدد 5 تعداد کاراکتر های <div> هستش

[mamal00 11]

خوب نه یه div کلی ثابت داره بقیه اش متغیره
یعنی مثلا:

<div class="menu">
<ul class="nav">
<li>
test
</li>
<li>
test
</li>
</ul>
 
</div>

که توی این لیست منو من میام menu رو ثابت میگیرم و داخل همون کد اولی که قرار دادید میذارم درسته؟

[arash127 488]

بله اگه منو ثابت بود کل متنو میذاری

نبود باید اول و اخر تیکه کد را برداری مثل

str2 = str.SubString2(s.IndexOf("<div class="menu">")+5,s.IndexOf("</li>
</ul> 
</div>"+5))

عدد 5 را هم باید به نسبت کاراکتر ها تغییر بدی