Private Sub Comprobar2_Click
Activity.LoadLayout("premiados")
Dim url As String
url="https://www.laprimitiva.info/"
Dim x As Int
Dim i As Int
Dim acertado As Int=0
Dim complementario As Int=0
Dim combinacion As String
Dim lacombi As List
Dim elacierto As List
Dim elcomplem As List
Dim inicio As String
Dim final As String
Dim index1 As Int
Dim index2 As Int
Dim mat As Matcher
Dim premiados As List
premiados.Initialize
elacierto.Initialize
elcomplem.Initialize
lacombi.Initialize
Dim html As String
Dim http As HttpJob
Dim mensaje As List
mensaje.Initialize
Dim rs As ResultSet
http.Initialize("",Me)
Dim texto As String
'--------------------------------------
http.Download(url)
Wait For (http) JobDone(http As HttpJob)
If http.Success Then
html=http.getString
inicio =$"<article class="$
final=$"</article>"$
Dim index1 As Int=html.IndexOf(inicio)
Dim index2 As Int=html.IndexOf(final)
html=html.Substring2(index1,index2)
End If
http.Release
inicio=$"<div class="combi">"$
final=$"<div class="sepanum"></div>"$
index1=html.IndexOf(inicio)
index2=html.IndexOf(final)
html=html.Substring2(index1,index2)
Dim patron As String=$"<div class=\"num\">(\d+)<\/div>"$
mat=Regex.Matcher(patron,html)
Do While mat.Find = True
premiados.Add(mat.Group(1))
Loop
rs=sql.ExecQuery("select n1,n2,n3,n4,n5,n6 from apuestas")
Do While rs.NextRow
acertado=0
complementario=0
combinacion=rellena(rs.GetInt("n1"))&"-"&rellena(rs.GetInt("n2"))&"-"&rellena(rs.GetInt("n3"))&"-"&rellena(rs.GetInt("n4"))&"-"&rellena(rs.GetInt("n5"))&"-"&rellena(rs.GetInt("n6"))
'Log(combinacion)
For i = 1 To 6
For x=0 To 5
If rs.getInt("n"&i)=premiados.Get(x) Then
acertado=acertado+1
End If
Next
Next
For i=1 To 6
If rs.getInt("n"&i)=premiados.Get(6) Then
complementario=complementario+1
End If
Next
mensaje.Add("[ "&combinacion&" ] : Acertados:" & acertado & " Complementario:"&complementario)
lacombi.add(combinacion)
elacierto.add(acertado)
elcomplem.add(complementario)
If acertado>=3 Then
MsgboxAsync("Tienes un premio de "&acertado&" Aciertos y "&complementario&" Complementario con la combinacion : ["&combinacion&"]","PREMIO!!")
End If
Loop
texto=""
For i=0 To 5
If i=0 Then
texto=rellena(premiados.Get(i))
Else
texto=texto&"-"&rellena(premiados.Get(i))
End If
Next
texto="[ "&texto& " ] COMP:" & rellena(premiados.Get(6)) & " REINT:"&rellena(premiados.Get(7))
For i = 0 To mensaje.Size-1
premio_grid.Add(crea_row_premiados(lacombi.Get(i),elacierto.Get(i),elcomplem.Get(i)),i)
'ListView1.AddSingleLine(mensaje.Get(i))
Next
Ganadora.Text=texto
