start en loop forfra før min når loop

den skal ikke exit do/loop men bare lave en Loop får tid end den i bunden hvis Read = 2

Får tid er selvf. før tid ;) nogle der har en ide til problemet

VBScript har ikke den facilitet som mange af de C-relaterede sprog har (nemlig continue), så du er nød til at strukturere dig ud af det, med f.eks. if-sætninger. Hvordan du helt konkret skal gøre dette i dit tilfælde afhænger meget af hvordan din kode ser ud. Det er langt fra sikkert at du kan bruge den samme metode altid...

okay min kode er dette (ved godt der er lidt .net i det men loop er stort set det samme)

Protected Sub ManipulateString(ByVal Output As String)

        Dim read As Integer
        Dim readend As Integer
        Dim team As String
        Dim pulje As String
        Dim link As String
        Dim link2 As String
        Dim tekst As String   
       
        read = InStr(1, Output, "CLUBTEAMS START")
        read = InStr(read, Output, "</table")
       
        Do While read > 0
       
            read = InStr(read, Output, "href") + 6
            readend = InStr(read, Output, "style") - 2
            link = Mid(Output, read, readend - read)
       
            read = InStr(read, Output, "linkSR") + 8
            readend = InStr(read, Output, "<")
            team = Mid(Output, read, readend - read)

            read = InStr(read, Output, "<td")
            read = InStr(read, Output, ">")
            If Mid(Output, read + 1, 3) = "<a " Then
                read = InStr(read, Output, "linkSR") + 8
                readend = InStr(read, Output, "<")
                pulje = Mid(Output, read, readend - read)
            Else
                pulje = ""
            End If

            read = InStr(read, Output, "href") + 6
            readend = InStr(read, Output, "style") - 2
            link2 = Mid(Output, read, readend - read)
       
            tekst = tekst & link & " " & team & " " & pulje & " " & link2 & "<br>"
           
            read = InStr(read, Output, "<table")
           
        Loop
        someLabel.Text = tekst

    End Sub

ved denne kode..
Else
  pulje = ""
End If

vil jeg gerne kunne sige at hvis Pulje = "" som den jo er så skal den starte forfra i Do.

håber det evt kunne hjælpe til en ide ;)

Så er det oplagt at flytte de resterende kodelinier op i if-sætningens første sektion, således:

Protected Sub ManipulateString(ByVal Output As String)

  Dim read As Integer
  Dim readend As Integer
  Dim team As String
  Dim pulje As String
  Dim link As String
  Dim link2 As String
  Dim tekst As String   
       
  read = InStr(1, Output, "CLUBTEAMS START")
  read = InStr(read, Output, "</table")
       
  Do While read > 0
       
    read = InStr(read, Output, "href") + 6
    readend = InStr(read, Output, "style") - 2
    link = Mid(Output, read, readend - read)
       
    read = InStr(read, Output, "linkSR") + 8
    readend = InStr(read, Output, "<")
    team = Mid(Output, read, readend - read)

    read = InStr(read, Output, "<td")
    read = InStr(read, Output, ">")
    If Mid(Output, read + 1, 3) = "<a " Then
      read = InStr(read, Output, "linkSR") + 8
      readend = InStr(read, Output, "<")
      pulje = Mid(Output, read, readend - read)

      read = InStr(read, Output, "href") + 6
      readend = InStr(read, Output, "style") - 2
      link2 = Mid(Output, read, readend - read)
       
      tekst = tekst & link & " " & team & " " & pulje & " " & link2 & "<br>"
           
      read = InStr(read, Output, "<table")
    Else
      pulje = ""
    End If
  Loop
  someLabel.Text = tekst

End Sub


...men det kunne næsten se ud til at du koder i ASP.NET (VB.NET) og ikke ASP 3.0, som denne gruppe vist nok henvender sig til og i VB.NET mener jeg continue er blevet implementeret...

Det er VB.NET og ASP.NET men Loop bruger du også i ASP 3.0 så mente jeg kunne lave spm her, men du har ret sorry...

jeg rettede dog koden til, og så virker det, hvis den ser sådan her ud.

    Protected Sub ManipulateString(ByVal Output As String)

        Dim read As Integer
        Dim readend As Integer
        Dim team As String
        Dim pulje As String
        Dim link As String
        Dim link2 As String
        Dim tekst As String   
       
        read = InStr(1, Output, "CLUBTEAMS START")
        read = InStr(read, Output, "</table")
       
        Do While read > 0
       
            read = InStr(read, Output, "href") + 6
            readend = InStr(read, Output, "style") - 2
            link = Mid(Output, read, readend - read)
       
            read = InStr(read, Output, "linkSR") + 8
            readend = InStr(read, Output, "<")
            team = Mid(Output, read, readend - read)

            read = InStr(read, Output, "<td")
            read = InStr(read, Output, ">")
            If Mid(Output, read + 1, 3) = "<a " Then
                read = InStr(read, Output, "linkSR") + 8
                readend = InStr(read, Output, "<")
                pulje = Mid(Output, read, readend - read)
               
                read = InStr(read, Output, "href") + 6
                readend = InStr(read, Output, "style") - 2
                link2 = Mid(Output, read, readend - read)
     
            Else
                pulje = ""
            End If
           
            tekst = tekst & link & " " & team & " " & pulje & " " & link2 & "<br>"
           
            read = InStr(read, Output, "<table")
        Loop
        someLabel.Text = tekst

    End Sub


Vil du lægge et svar du svarede jo på det jeg havde problemer med ;)

Jeg lægger et svar :)

Det var nu heller ikke fordi jeg ville være firkantet mht. placeringen af spørgsmålet, for hvis jeg kan hjælpe her, gør jeg da gerne det, men du ville nok bare have bedre muligheder for at få hjælp, hvis du placerede spørgsmålet i den korrekte kategori - så det mest for din egen skyld :)

np ;) men tak alligevel men vil nok lige spørge i VB.Net om det kan gøres bedre og nemmere ang. Continue som du nævnte

Ja, der er ikke nogen grund til at gøre det mere besværligt en nødvendigt :)

Dog synes jeg den metode du kommer frem til der er mere naturlig at læse, fordi strukturen giver et klart billede af hvad der hører sammen. I øvrigt ville du heller ikke kunne bruge Continue (hvis den da findes i VB.NET - jeg er kommet lidt i tvivl efter at have kigget på MSDN), da de to sidste linier så skulle rykkes ind i både if- og else-delen for at opnå samme funktionalitet som den du har i ovenstående kode... apropos mere besværligt end nødvendigt, så ville det jo være ekstraarbejde :)

...og sidste men ikke mindst, tak for point :)

np og igen selv tak ;)