Hej

Jag skulle vilja "sno" kod eller rättare sagt information från www.robur.se sidor. Jag skulle vilja att ett VB program tog den aktuella kursen från denna sidan och sen tog in den i mitt program. Finns det något sätt att göra detta på.


<td valign="TOP" align="center" bgcolor="#FFCC66"><font face="Verdana,Arial" size="1" color="Black">83,26</font></td>

Om man tar "Visa Källa" så ser man koden som är här uppe. det är siffran 83,26 som jag vill åt. Men hur får jag koden in i VB programmet och adressen till denna sidan är ju inte www.robur.se som det står i adressfönstret. Hur får jag reda på vad adressen är till denna sidan.

Det bör du kunna fixa med Inet kontrollen
Kolla [Inet1. ??]

tackar

men hur får jag reda på vad adressen är till sidan jag söker.
När du klickar in på www.robur.se och väljer contura så står det fortfarande www.robur.se i adressfältet. Hur får jag reda på vad url är dit.

Hittade det
http://www.robur.se/fonder/fondflik1.asp?strName=CON

men jag får inte rätt på koden. Hur får jag ut koden tex i en variabel?

Du kan börja med detta experiment En knapp en TextBox en Inet1 kontroll

Option Explicit
Private Sub Command1_Click()
Dim sChunk As String
Dim iContentLenght As Long
Inet1.URL = "http://www.robur.se/fonder/fondflik1.asp?strName=CON"
Inet1.Execute
Do While Inet1.StillExecuting = True
DoEvents
Loop
iContentLenght = Inet1.GetHeader("Content-Length")
sChunk = Inet1.GetChunk(iContentLenght)
Text1.Text = sChunk
End Sub

Nu har du allt i TextBox1 som finns på aktuell sida.
Någonstans där står det 83,26.

Edit : 83,26 står på position 5884 i variabel sChunk
Man kan alltså få fram det med
sKursIdag = Mid$(sChunk,5884,5)

Henkoz kan kanske göra ett RegExp på den raden som innehåller 83,26 (idag)
Då kan man använda hans kod enl Programarkivet:619 , som är ett mer proffsigt sätt
att angripa problemmet. Det där med Regular Expression är ett lurigt ämne.

Så här kan man lösa problemet:

Ladda in hela sidan till en variabel, strHTML

Dim Tal As Single

strHTML = Mid(strHTML, InStr(1, strHTML, "5 år"))
strHTML = Mid(strHTML, InStr(1, strHTML, "Black"))
strHTML = Mid(strHTML, InStr(1, strHTML, "Black"))
strHTML = Mid(strHTML, InStr(1, strHTML, "Black") +7)
Tal = Val(Left(strHTML, InStr(strHTML, "<")-1))

Msgbox Tal

Thomas

Eller betydligt enklare
MsgBox Mid$(sChunk,5884,5)

Fattar inte varför Ni envisas med att skriva Mid(****
Skall vara i 99.9 % Mid$(*****

Du kan heller inte använda Val. Eftersom val alltid utgår att punkt är decimalseparator.

Henkoz lösning är ju guld

Där har du Contura 83,26 (idag) Sökord "CONTURA".
Edit:

Option Explicit
Private Sub Command1_Click()
Dim sChunk As String
Dim iContentLenght As Long
Dim pos As Long
Inet1.URL = "http://www.robur.se/fonder/fondlista_punkt.txt"
Inet1.Execute
Do While Inet1.StillExecuting = True
DoEvents
Loop
iContentLenght = Inet1.GetHeader("Content-Length")
sChunk = Inet1.GetChunk(iContentLenght)
pos = InStr(sChunk, "CONTURA")
Text1.Text = sChunk
MsgBox Mid$(sChunk, pos + 8,6 )
End Sub

Underbart. Tack alla