مشکل با ریتبه سنج سایت (الکسا)

[alinoori 123]

سلام 

تو ساخت برنامه رتبه سنج توسط regexبه مشکل خوردم.

و ارور میده عکس ارور هم گذاشتم 

 

 

موقعی که سورس رو لوگ میکنمک 

فقط 4000حرف رو نشون میدهه 

و تمام سورس صفحه رو نشون نمیده

#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

Private img1 As ImageView

Private lbl1 As Label

Private lbl2 As Label

Private lbl3 As Label

Private lbl4 As Label

Private txt1 As EditText

Dim ht As HttpJob

Dim content As String

End Sub


Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("f1")

ht.Initialize("alex",Me)

End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Button1_Click

If txt1.Text = "" Then

 ToastMessageShow("please input url",False)

 Return

End If

If content = "" Then

 ProgressDialogShow2("please wait...",True)

 ht.Download("http://www.alexa.com/siteinfo/" & txt1.Text)



Else

 parseContent

End If

End Sub


Sub JobDone(Job As HttpJob)

ProgressDialogHide

If Job.Success = True Then

 content = Job.GetString


 Log(content)

 parseContent

End If

End Sub


Sub parseContent

Dim global As Matcher

Dim totallink As Matcher

Dim imgcountry As Matcher

Dim countryname As Matcher


global = Regex.Matcher("<strong class=""metrics-data align-vmiddle"">(.*)</strong>",content)

global.Find

lbl1.Text = global.Group(1)

global.Find

lbl2.Text = global.Group(1)


totallink = Regex.Matcher("<span class=""font-4 box1-r"">(.*)</span>",content)

totallink.Find

lbl3.Text = totallink.Group(1)


imgcountry = Regex.Matcher("(http://pcache.alexa.com/images/flags/.*.png)",content)

imgcountry.Find


Try

 countryname = Regex.Matcher("/topsites/countries/(\w+)",content)

 countryname.Find

 lbl4.Text = countryname.Group(1)

Catch

End Try


Dim stu As StudentLibrary

stu.LoadImageFromUrl(imgcountry.Group(1),img1)

End Sub

[msajad 501]

شما به جای این از این روش برو جلو

http://answercenter.ir/topic/363-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-getelement-%DA%A9%D8%B1%D8%AF%D9%86-%D9%88-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%A7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-webviewextras/

خیلی راحت تره

[alinoori 123]

واااای 

فوق العادس

نمیدونستم اینجوری هم میشه 

یه دنیا ممنون

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

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

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

لینک ســـــــــــــــورس

[alinoori 123]

داداش دمت گرم

نمید.نم چطور جبران کنم

ای کاش پولیش میکردین.