گت المنت و ساختن پنل از مطالب سایت

[bhe 17]

سلام

دوستان من به راحتی میتونم کلاس و تک نیم و غیره رو از سایت بگیرم مشکلی با گرفتن تک ندارنم اما حالا میخواهم که مثلا مطالب اول سایت که هرچی هست رو داخل پتل به صورت پشت سر هم بذارم موندم چکار کنم خیلی جستجو کردم توی مطالب گت المنت و پنل همشون تا نصفه پیش رفتن و جواب کامل ندادن

الان دوستان کسی میتونه کمکم کنه که چطور ادامه بدم

من یه پنل درست کردم که دو تا لیبل داره یه ایمیج ویو

خب تایتل متن رو داخل لیبل میگذارم توضیحات متن رو داخل یبل بعد و عکس مطب رو داخل ایمج ویو حالا

برای تایتل بعدی توی پنل گیر کردم

حاضر بخاطرش هزینه هم بدهم چون میخواهم در اینده سایت واسه خودم بزنم دارم مجوزهاشو میگیرم سایت تبلیغات است

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

 

[bhe 17]

من هم توی قسمت PageFinished

حلقه فور ساختم هم برای پنل که باعث شده بود پنل ساخته نشه

این مشکل با خارج کردن پنل از حلقه فور درست شد

با توجه به فرمایشات مهندس نیکروان پنل رو توی اخرین ساب ایجاد کردن بدون حلقه فور کلیه مطالب به ترتیب داخل پنل امدن

 

خب فقط الان فقط عکس اخر میاید بقیه عکس ها برای مطالب نمیاید اینو چکار کنم

سوال بعدم میخواهم تعداد تایتل های این سورس سایت بفهم چند تا هستند تا باتوجه به به همون تایتل ها پنل ساخته بشه

[bhe 17]

Sub Globals

Dim i As Int
Dim stop As Int=3%y
Dim HttpJob1 As HttpJob
Dim WebViewExtras1 As WebViewExtras
Dim WebView1 As WebView
	Private ImageView1 As ImageView
	Private Date As Label
	Private Label2 As Label
	Private Label3 As Label
	Private ImageView2 As ImageView
	Private Panel1 As Panel
	Private ScrollView1 As ScrollView
	Private EditText1 As EditText
	Private Spinner1 As Spinner
	Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)

EditText1.Initialize("")
	Activity.LoadLayout("sv")
	HttpJob1.Initialize("Myjob1" , Me)
	WebView1.Initialize("WebView1")
	WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
	WebViewExtras1.addWebChromeClient(WebView1 , "")

	WebView1.LoadUrl("http://appthemes.ir/cp/?s=")
	
	ProgressDialogShow("لطفا منتظر بمانید ...")
	
For i= 0 To 5
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	stop=stop+30.5%y
	p.LoadLayout("get")
	Panel1.Color = Colors.RGB(Rnd(0,107),Rnd(0,107),Rnd(0,107))
	ScrollView1.Panel.Height=stop
	
Next
End Sub

Sub WebView1_PageFinished(URL As String)
For i = 0 To 5
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementsByClassName('post-left')["&i&"].outerHTML)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('h3')["&i&"].innerText)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('link',true,document.getElementsByTagName('h3')["&i&"].outerHTML)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('price',true,document.getElementsByClassName('post-price')["&i&"].innerText)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('clock',true,document.getElementsByClassName('dashicons-before clock')["&i&"].innerText)")

Next
ProgressDialogHide
End Sub
Sub process_HTML(HTML As String)
	HTML = HTML.Replace("""" , "'")
'	t.Text = HTML
	Dim img As String
	img = HTML.SubString(HTML.IndexOf("http://appthemes.ir/cp/wp-content/")+1)
	img = "h"&img.SubString2(0,img.IndexOf("'"))
'	Msgbox(""&img,"")
	HttpJob1.Download(img)
End Sub

Sub title(t1 As String)
	Date.Text = t1
End Sub

Sub price(p1 As String)
	Label2.Text = p1
End Sub

Sub clock(c1 As String)
Label3.Text = c1
End Sub
Sub JobDone(job As HttpJob)
	ImageView2.Bitmap = job.GetBitmap
	ImageView2.Gravity = Gravity.FILL
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

مهندس نیکروان فقط طریقه پنل ساختن به تعداد دلخواه جواب نمیده

فقط یک پنل اطلاعاتش میاید

[پژمان نیکروان 6,055]

مهندس نیکروان فقط طریقه پنل ساختن به تعداد دلخواه جواب نمیده فقط یک پنل اطلاعاتش میاید

شما اومدین اول مولتی پنل رو ساختین بعد اطلاعات رو از سایت گت المنت کردین و میخواین بدید به لیبل ها...

خب اینجوری مشخصه فقط به لیبل آخر که اضافه شده مقادیر رو میده.

 

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

 

پس نباید مولتی پنل رو توی activity_create بسازید و باید موقع دریافت اطلاعات ایجادش کنید... اما چون گت المنت هرکدوم از متن هارو توی sub های جداگانه میده یکم کارو سخت میکنه و باید شما اطلاعات قبلی رو یه جا ذخیره کنید و بعد در ساب آخری که برای شما ساب clock هست مولتی پنل رو ایجاد کنید.

[bhe 17]

سلام

تا حالا اموزشی مربوط به گت المنت و ساختن پنل من توی سایت ندیدم همه با دیتابیس است

ایا من باید داخل پیج فینیش هم از حلقه استفاده کنم برای شماره هر کلاس مثلا این شکلی

Sub WebView1_PageFinished(URL As String)
For i=0 To 5
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementsByClassName('post-left')[&i&].outerHTML)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('h3')[&i&].innerText)")
next
end sub

یه متغیر ار استرینگ ساختن و تایتل رو داخلش معرفی کردم

اینم برای گرفتن تایتل از سایت

 

در کل من تایتل اول سایت میگیرم حالا بقیه تایتل ها رو چطور توی پنل بیارم و نمایش بدهم

Sub title(t1 As String)
	b = t1
End Sub

درقسمت Activity_Create هم این کدا برای پنل

Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop=stop+30%y
p.LoadLayout("get")
Label1.Text=b
ScrollView1.Panel.Height=stop
Next
End Sub

من از نظر گرفتن اطلاعات مشکلی ندارم

شاید ایرادم همین متغییر  b است

و از همه مهمتر ساخت پنل از تایتل ها

[bhe 17]

به یک بدبختی پنل ساختم

4 تا پنل ساختم اما فقط اطلاعات توی پنل اخر میاید

مشکل چیه؟

for i = 0 to 3
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop=stop+30%y
p.LoadLayout("get")
ScrollView1.Panel.Height=stop
Next
End Sub

[bhe 17]

دوست کسی نیست راهنمایی کنه هزینه رو خصوصی اعلام کنید میپردازیم عجب!

[bhe 17]

کسی که جواب نمیده

یه سوال نرم افزار برای گرفتن اطلاعات از سایت

کد نویسی با گت المنت سرعت بهتری داره

یا با جداسازی

 

Regex.Split

SubString2

SubString

[پژمان نیکروان 6,055]

من از نظر گرفتن اطلاعات مشکلی ندارم شاید ایرادم همین متغییر b است

بله کلا داشتید اشتباه میگرفتید اطلاعاتتون رو ، کدای رویداد pagefinish رو با این کد عوض کنید:

Sub WebView1_PageFinished(URL As String)
For i=0 To 5
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.getElementsByClassName('post-left')["&i&"].outerHTML)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('title',true,document.getElementsByTagName('h3')["&i&"].innerText)")
next
end sub

درضمن خط اول که باهاش سورس سایت رو میگیرید چرا تو حلقه قرار دادید؟؟ فک نکنم نیازی باشه چون فقط یکبار دریافتش میکنید دیگه...

 

 

 

و از همه مهمتر ساخت پنل از تایتل ها

اینکه آموزشی درباره ساخت پنل برای هرتایتل با گت المنت نیست درسته ، اما با استفاده از دیتابیس هست ، فرقی ندارن!

اونجا اطلاعات از داخل دیتابیس گرفته شده و داخل لیبل هاو... نمایش داده میشه.

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

همچنین برای نمایش تایتل ها پیشنهاد میشه از لیست ویو یا AriaListView استفاده کنید.

[پژمان نیکروان 6,055]

سلام

 

من متوجه نشدم.

یعنی تایتل یا متن بعدی رو نمیتونید از سایت گت المنت کنید؟

[shahrokhnazari 110]

منظورش متن کامل خبر هست فکر کنم

[مهدی ایزدی 9,203]

درود

خب شما چرا طبق آموزش مولتی پنل پیش نمیرید ؟؟؟

کافیه همینطور که مطالب رو میخونید به تعدادش پنل هم add کنید

 

آموزش خیلی واضح هستش که.

[پژمان نیکروان 6,055]

سلام  مهندس نیکروان

ار ه اموزش ساخت با دیتابیس دقیق نگاه کردم اما هر کار کردم نتونستم با گت المنت بسازم

من وقتی تایتل رو میگیرم باید  تگ لیبل رو مساوی با تایتل قرار بدم و. بعد در پنل  لیبل تکست رو مساوی با sender قرار بدم یا نه

lbl.tag=t1

t1 همون تایتل

داخل پنل توی اکتوییتی  کریت

lbl.text=sender

درست حسابی روی این ساخت پنل با گت المت گیر کردم

سلام مجدد.

من خودم شرمندم.

شما سورستون رو قرار بدید ببینیم چکار میشه کرد.

 

 

کسی که جواب نمیده

یه سوال نرم افزار برای گرفتن اطلاعات از سایت

کد نویسی با گت المنت سرعت بهتری داره

یا با جداسازی

 

Regex.Split

SubString2

SubString

زمانی که از روش جداسازی استفاده میکنید نیازی به وب ویو نیست ، بلکه سایت رو با httpjob دانلود میکنید ، و httpjob هم که فقط سورس سایت رو دانلود میکنه و عکس ها و... رو دریافتش نمیکنه و این یکم سرعت رو افزایش میده.

[bhe 17]

خیلی از بچه ها کم لطفی میکنند

این انجمن فقط ختم شده به اقایان ایزدی نیکروان و ارتا

کسی راه کاری کمکی نمیکنه

حالا انها چقدر میتونند جواب گو باشند

یه مطلب باید نزدیک 24 ساعت بیشتر منتظر باشی تا شاید کسی جواب بده

امار بازدید سایت هم که بالاست

[bhe 17]

سلام  مهندس نیکروان

ار ه اموزش ساخت با دیتابیس دقیق نگاه کردم اما هر کار کردم نتونستم با گت المنت بسازم

من وقتی تایتل رو میگیرم باید  تگ لیبل رو مساوی با تایتل قرار بدم و. بعد در پنل  لیبل تکست رو مساوی با sender قرار بدم یا نه

lbl.tag=t1

t1 همون تایتل

داخل پنل توی اکتوییتی  کریت

lbl.text=sender

درست حسابی روی این ساخت پنل با گت المت گیر کردم

[bhe 17]

در ضمن چنین اموزشی خیلی تو انجمن جاش خالیه کامل شد به جایی رسیدم داخل انجمن با سورس و اموزش میذارم یا بذارید

فداتون