"Jens" <til@infojens.dk> skrev i en meddelelse
news:9dkchl$cno$1@news.inet.tele.dk...
> Kan man lave en Function som gar ind og finder de 7 rigtige tal
sadan sa
>
> Dim Tal1 As Byte
> Dim Tal2 As Byte
> Dim Tal3 As Byte
> Dim Tal4 As Byte
> Dim Tal5 As Byte
> Dim Tal6 As Byte
> Dim Tal7 As Byte
>
> Bliver til de rigtige tal
>
> Tipstjensten hjemmeside er
>
>
http://www.tips.dk/
>
Intet er nemmere, men man skal huske på, at hvis de ændrer
layoutet på siden, så skal du programmere det om igen. Løsningen
nedenfor leverer resultatet i VarArray(0) til VarArray(6).
Option Explicit
Const LOTTO_SEARCH1 = "Vindertal" ' = Vindertal
Const LOTTO_SEARCH2 = """Verdana"" size=""4"">" ' = "Verdana"
size="4">
Const LOTTO_SEARCH3 = "</font></td>" ' =
</font></td>
Public varArray As Variant ' Array med resultatet i
VarArray(0) til VarArray(6)
Private Sub cmdFetch_Click()
Dim strPage As String ' Hele sidens HTML-tekst
Dim strSekvens As String ' Rækken af tal
Dim lngPos1 As Long ' Søgeposition
Dim lngPos2 As Long ' Søgeposition
Dim lngIndex As Long ' Index
' Hent siden
strPage =
Me.Inet1.OpenURL("
http://www.tips.dk/homepage/lotto/resultater.ht
ml", icString)
If strPage <> "" Then
lngPos1 = InStr(1, strPage, LOTTO_SEARCH1)
If lngPos1 > 0 Then
lngPos1 = InStr(lngPos1, strPage, LOTTO_SEARCH2)
If lngPos1 > 0 Then
lngPos1 = lngPos1 + Len(LOTTO_SEARCH2)
lngPos2 = InStr(lngPos1, strPage, LOTTO_SEARCH3)
If lngPos2 > 0 Then
' Vi har fundet 2 punkter, hvorimellem
lottotallene står i HTML-koden
strSekvens = Mid(strPage, lngPos1, lngPos2 -
lngPos1)
strSekvens = Replace(strSekvens, vbCrLf, "")
' Fjern evt. linieskift
varArray = Split(strSekvens, "-") '
Opdel listen
For lngIndex = LBound(varArray) To
UBound(varArray)
varArray(lngIndex) =
Trim(varArray(lngIndex)) ' Fjern " "
Next
End If
End If
End If
End If
End Sub
--
/\ preben nielsen
\/\ prel@post.tele.dk