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

سوال در مورد ساخت لیگ برتر


Radius

سوال

سلام

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

http://www.varzesh3.com/table/%D8%AC%D8%AF%D9%88%D9%84-%D9%84%DB%8C%DA%AF-%D8%A8%D8%B1%D8%AA%D8%B1-%D8%AE%D9%84%DB%8C%D8%AC-%D9%81%D8%A7%D8%B1%D8%B3-94-95

رو چجوری میشه توی برنامه به صورت آنلاین ساخت و البته کنارش یک جوری باشه همه مقدار ها رو در دسترس داشته باشم مثلا

برد ها رو من داشته باشم و برد هر تیم به صورت جدا

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

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

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

درود

من سورس کدهاشو نگاه کردم بعید میدونم با GetElements به این راحتی ها بشه گرفتشون

فکر کنم بهترین راه برای این سایت دانلود سورس و جداسازی مقادیر لازمه و حذف مقادیر اضافی باشه  :fekr:

زیاد سخت نیست فقط حوصله و اعصاب خوب میخواد  :ok:

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

فکر میکنم با وب سرویس میشه این کار کرد 

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

با ریجکس راحت میشه گرفت چون الگوریتمش شببیه همه

مثلا کل برد ها class شون برابر t301 هست و...

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

با گت المت میشه

ببین شما

دو تا لیبل درست کن

شماره1

Label1

شماره 2

Label2

 

 بعد

Sub Globals

	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView  
	Private Label1 As Label
	Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("ds")
	WebView1.Initialize("webview1")
	WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
	WebViewExtras1.addWebChromeClient(WebView1,"")
	WebView1.LoadUrl("http://www.varzesh3.com/table/%D8%AC%D8%AF%D9%88%D9%84-%D9%84%DB%8C%DA%AF-%D8%A8%D8%B1%D8%AA%D8%B1-%D8%AE%D9%84%DB%8C%D8%AC-%D9%81%D8%A7%D8%B1%D8%B3-94-95")
	
End Sub

Sub WebView1_pagefinished (url As String)
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('get_Label1',true,document.getElementsByClassName('t101')[0].innerText)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('get_Label2',true,document.getElementsByClassName('t901')[0].innerText)")
End Sub

Sub get_Label1(today As String)
Label1.Text = today
End Sub
Sub get_Label2(today As String)
Label2.Text = today
End Sub

100 ٪   جواب میده

 

بقیش رو خودت اضافه کن.....t101 ......

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

سلام

برای حل یک مسئله به طبع راه های مختلفی وجود داره ولی خب بهتره که راه مناسب ترو انتخاب کرد.

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

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

بایگانی شده

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

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

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