رفتن به مطلب
  • 0

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


mamal00

سوال

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

 

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

آقا ببخشید من تاپیک قدیمی رو بالا میارم ولی هرکاری با این 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
 

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سورس کل صفحه را با 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> هستش

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...