---

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/

---

Hvad mener du???

Skal programmet checke tipstjenestens hjemmeside for tallene?


--
Mvh. / Regards Mikkel Christensen

"Jens" <til@infojens.dk> wrote in message
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/
>
>
>
>

---

Ja

---

Jens wrote:
>
> Ja


Mjae, du kan lave Makværk der fungerer. Du kan lave noget der søger
efter: <td valign="middle" colspan="3" align="left" width="342"><font
face="Verdana" size="4"> på
<http://www.tips.dk/homepage/lotto/resultater.html> noge i den stil og
det vil naturligvis virke, men hvis de ændrer hjemmeside opsætning,
eller adresse virkder det naturligvis ikke.

--
/Lars

HTML software: <http://go.to/HTMLEasyColors>
Brug venligst Re: og ikke Sv: ved svar, da beskeder
der begynder med Sv: bliver slettet fra mange servere

---

"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

---

Tusinde tak for hjælpen !

---

Her er der en løsning hvor ens bruger ikke skal opgradere til en ny version hvis at DTT skifter design

Lav et serverside-script(ASP(VBScript))
Der returner tallene med linieskift.

[VB kode]
Dim myArray as String
Dim URL As String
URL = "http://www.infojens.dk/lotto/"
Text1.Text = Inet1.OpenURL(URL, icString)
myArray = Split(Text1.Text ,vbCrLf)
lblTal1.Caption = myArray(0)
lblTal2.Caption = myArray(1)
lblTal3.Caption = myArray(2)
lblTal4.Caption = myArray(3)
lblTal5.Caption = myArray(4)
lblTal6.Caption = myArray(5)
lblTal7.Caption = myArray(6)
[/VB kode]
[ASP kode]
FUT: news://dk.edb.internet.webdesign.serverside.asp
www.activeserverpages.dk
[/ASP kode]
[Webhotel]
infojens.dk er nede
[/Webhotel]

"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/
>
>
>
>