Hej


Jag gör så här för att plocka ut text från WebBrowser1 men får inte med sista.

urklipp ur koden

Dim start As Long
Dim Slut As Long

start = 1


'Sman1
start = InStr(start, WebBrowser1.Document.body.innerText, "Sman1:") + 6
Slut = InStr(start, WebBrowser1.Document.body.innerText, vbCrLf)
Label2(0) = Mid$(WebBrowser1.Document.body.innerText, start, Slut - start)


'Sman2
start = InStr(start, WebBrowser1.Document.body.innerText, "Sman2:") + 6
Slut = InStr(start, WebBrowser1.Document.body.innerText, vbCrLf)
Label2(1) = Mid$(WebBrowser1.Document.body.innerText, start, Slut - start)

varför läses inte label2(1)


Tobbe

Det är inte så att "Sman2:" ligger före "Sman1:" i dokumentet? I sådana fall behöver du nollställa start innan.

/Johan

Hej


Löste det med att ange

Response.write efter.