/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Lotto
Fra : Jens


Dato : 12-05-01 23:14

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/





 
 
Mikkel Ro Manzano Ch~ (12-05-2001)
Kommentar
Fra : Mikkel Ro Manzano Ch~


Dato : 12-05-01 23:49

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



Jens (13-05-2001)
Kommentar
Fra : Jens


Dato : 13-05-01 00:19

Ja



Lars Hoffmann (13-05-2001)
Kommentar
Fra : Lars Hoffmann


Dato : 13-05-01 01:56

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

preben nielsen (13-05-2001)
Kommentar
Fra : preben nielsen


Dato : 13-05-01 11:33


"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



Jens (13-05-2001)
Kommentar
Fra : Jens


Dato : 13-05-01 14:34

Tusinde tak for hjælpen !



Asbjørn Sloth Tønnes~ (13-05-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 13-05-01 20:46

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


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408893
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste