راندوم گرفتن اطلاعات

[mr-edris 186]

سلام به همه دوستان

اقا برم سر اصل مطلب

توی دیتا بیس رئ سایتم الان حدودا 2018 رکورد دارم

 

رکوردا ID Name FAmily Sen Shahr Line هستش

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

می خوام یه راه دیگه برم

ببینید اجراییه یا نه اگر هست کمکم کنید

 

یه باتن دارم به اسم ref3 واسه گرفتن این اطلاعات و لود در مولتی پنل

Sub ref3_Click
	readdb.Download("http://linefrnd.ml/dbsee.php")
	ProgressDialogShow("در حال دانلود کردن")
End Sub

کد مولتی پنل به این صورته :

Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Try
Dim a() As String
a = Regex.Split("<br>",Job.GetString)
ProgressDialogHide
  Dim id As String
 Dim Name As String
 Dim FAmily As String
 Dim Sen As String
 Dim Shahr As String
 Dim Line As String
  For i=0 To a.Length-1
 Dim jodasazi() As String =Regex.Split("#",a(i)) 
Try
Name = jodasazi(1) 'Shomareh Andis
Catch
Name = "خالی"
End Try
Try
FAmily =jodasazi(2) 'Shomareh Andis
Catch
FAmily = "خالی"
End Try
Try
Sen = jodasazi(3) 'Shomareh Andis
Catch
Sen = "خالی"
End Try
Try
Shahr = jodasazi(4) 'Shomareh Andis
Catch
Shahr = "خالی"
End Try
Try
Line = jodasazi(5) 'Shomareh Andis
Catch
Line = "خالی"
End Try
Dim p As  Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 80%y
p.LoadLayout("mp")
Label7.Text= id
Label8.Text= Name
Label9.Text=FAmily
Label10.Text=Sen
Label11.Text=Shahr
Label12.Text=Line
ScrollView1.Panel.Height = stop
Next
Catch
ToastMessageShow("در حال حاضر هیچ لینکی موجود نیست و یا شما به اینترنت متصل نمیباشد",False)
End Try
End If
End Sub

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

m= Rnd(1,a.Length-1) درسته؟

حالا بخوام با هر بار کلیک روی دکمه ی load از بین این تعداد 20 تا رو راندوم نشون بده باید چی کار کنم؟

[نیما قبادی 246]

باید این دوتا خط رندم بدی

Dim a() As String
a = Regex.Split("<br>",Job.GetString)

Dim jodasazi() As String =Regex.Split("#",a(i)) 

یعنی بیای استرینگ بگیری اینجوری:

dim str as string
str = rnd(0,2018)

بعد بیایی این کد رو با اونا ادغام کنی

[mr-edris 186]

اخه نیما جان الان اون عدد شده  2300 خرده ای

پس من نمیدونم چنداست که از بین اونا انتخاب کنم

بعدشم ببخشید یکم پیج شدم چی شد

[نیما قبادی 246]

همچین کاری کن

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

dim str as string
str = rnd(0,a(i))

[mr-edris 186]

خب اینا رو توی حلقه بزارم دیگه؟

یعنی اینجوری؟

For i=0 To a.Length-1
  str = Rnd(0,a(i))
 Dim jodasazi() As String =Regex.Split("#",a(i)) 

[نیما قبادی 246]

اینجور که عمل نمیکنه هیچ کاری نمیکنه :mellow: 

اینجور بزن:

For i=0 To a.Length-1
  str = Rnd(0,a(i))
 Dim str () As String =Regex.Split("#",a(i)) 

[mr-edris 186]

 

اینجور که عمل نمیکنه هیچ کاری نمیکنه :mellow: 

اینجور بزن:

For i=0 To a.Length-1
  str = Rnd(0,a(i))
 Dim str () As String =Regex.Split("#",a(i)) 

ازش خطا میگیره...

[نیما قبادی 246]

شما اون استرینگی که خودتون گرفته بودید رو با این Str جابجا کردی اصلا؟؟؟

[mr-edris 186]

For i=0 To a.Length-1

str = Rnd(0,a(i))

Dim str () As String =Regex.Split("#",a(i))

Try

Name = str (1) 'Shomareh Andis

Catch

Name = "خالی"

End Try

Try

FAmily = str (2) 'Shomareh Andis

Catch

FAmily = "خالی"

End Try

Try

Sen = str(3) 'Shomareh Andis

Catch

Sen = "خالی"

End Try

Try

Shahr = str(4) 'Shomareh Andis

Catch

Shahr = "خالی"

End Try

Try

Line = str(5) 'Shomareh Andis

Catch

Line = "خالی"

End Try

[mr-edris 186]

اینم عکس خطای اون خطه

[نیما قبادی 246]

بعید میدونم اینجور جواب بده باید خودم روش کار کنم

حالا شما اینجورم تست کنید ببینید درست میشه:

For i=0 To a.Length-1
 Dim str () As String =Regex.Split("#",Rnd(0,a(i))) 

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

[mr-edris 186]

اینم امتحان کردم

چند راه دیگه ام که به ذهنم رسید زدم جواب نداد

 

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

 

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

ببینید شما بیایید از PHP برای Limit کردن استفاده کنید...

http://www.w3schools.com/php/php_mysql_select_limit.asp

 

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

و هم میتونید تابع Random هم از طریق خود php استفاده کنید