Brug af ScriptControl

If sætning efter xmlDoc.load strUrl ;)

svar fra irc

Det er lige testet, og det virker ikke :/ Nu hopper den ud af det hver gang, på trods af at siden findes...

For resten så er ScriptControl1.Timeout er sat til 100000, så serveren med filen har altså en chance for at svare.

Her er lige lidt mere kode:
------------------
Private Sub Timeout_stop()
If MsgBox("Der er opstået en fejl - siden kunne ikke findes.", vbRetryCancel, "Fejl") = vbRetry Then MainUpdate Else
    End

End Sub

------------------

Sub MainUpdate()

txtMain.Text = ""
'strURL "http://www.f1racing.net/en/xml/rss/en.xml"

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.Load strURL

If ScriptControl1.Timeout Then Timeout_stop    'fejl håndtering


For Each x In xmlDoc.documentElement.childNodes


  For Each y In x.childNodes
 
  '----------------------

        If y.nodeName = "title" Then
        txtMain.Text = txtMain.Text & y.Text & vbCrLf '& vbcrlf 'x.nodename & x.nodename & x.text & vbcrlf 'y.item(i-1).getAttribute("code") & ": " & y.item(i-1).getAttribute("desc") & ": " & y.item(i-1).getAttribute("rate") & vbcrlf
        txtMain.Text = (txtMain.Text) & vbCrLf  '& vbcrlf
    Else
        If y.nodeName = "link" Then
        txtMain.Text = txtMain.Text & y.Text & vbCrLf '& vbcrlf 'x.nodename & x.nodename & x.text & vbcrlf 'y.item(i-1).getAttribute("code") & ": " & y.item(i-1).getAttribute("desc") & ": " & y.item(i-1).getAttribute("rate") & vbcrlf
        txtMain.Text = txtMain.Text & vbCrLf & "----------------" & vbCrLf
    Else
        If y.nodeName = "description" Then
        txtMain.Text = txtMain.Text & y.Text & vbCrLf '& vbcrlf 'x.nodename & x.nodename & x.text & vbcrlf 'y.item(i-1).getAttribute("code") & ": " & y.item(i-1).getAttribute("desc") & ": " & y.item(i-1).getAttribute("rate") & vbcrlf
        txtMain.Text = txtMain.Text & vbCrLf & "----------------" & vbCrLf
    End If
    End If
    End If
   
  '----------------------
    'Text1.FontBold = True
    For Each z In y.childNodes
       
        If z.nodeName = "title" Then
        txtMain.Text = txtMain.Text & z.Text & vbCrLf  '& vbcrlf 'x.nodename & x.nodename & x.text & vbcrlf 'y.item(i-1).getAttribute("code") & ": " & y.item(i-1).getAttribute("desc") & ": " & y.item(i-1).getAttribute("rate") & vbcrlf
        txtMain.Text = txtMain.Text '& vbcrlf
    Else
        If z.nodeName = "link" Then
        txtMain.Text = txtMain.Text & z.Text & vbCrLf '& vbcrlf 'x.nodename & x.nodename & x.text & vbcrlf 'y.item(i-1).getAttribute("code") & ": " & y.item(i-1).getAttribute("desc") & ": " & y.item(i-1).getAttribute("rate") & vbcrlf
        txtMain.Text = txtMain.Text & vbCrLf
    Else
        If z.nodeName = "description" Then
        txtMain.Text = txtMain.Text & z.Text & vbCrLf '& vbcrlf 'x.nodename & x.nodename & x.text & vbcrlf 'y.item(i-1).getAttribute("code") & ": " & y.item(i-1).getAttribute("desc") & ": " & y.item(i-1).getAttribute("rate") & vbcrlf
        txtMain.Text = txtMain.Text & vbCrLf & "----------------" & vbCrLf
    End If
    End If
    End If
   
Next
Next
   
Next x

     
End Sub

-----------------

I må sige til hvis i mangler andet

Hygge

Det lykkedes aldrig at få løst problemet. Men ameq du må gerne smide et svar - så deler vi point som tak for hjælpen :)

Hygge

ameq?!

jo, men hvis du nu ikke fik løst problemmet?

Men du brugte så lang tid på det.

Jeg snakkede desuden med en anden gut om det her for nogle dage siden, og løsningen var vidst at skrive hele scriptet om - så vi kunne ikke bare nøjes med at ændre i den her del.

Men tak for forsøget og hjælpen :)

jamen det var så lidt =)