For Statement help needed

[devGOD]

i'm trying to get this coding to go back the the For W statement after ClickLink then to Next i then keep repeating till there is no page with "Next ->" link on it.


Private Sub Command1_Click()

Dim W As Integer
For W = 0 To Web1.Document.links.length - 1
'Debug.Print Web1.Document.links(X)
lstautolink.AddItem Web1.Document.links(W)
Next W

Dim i As Integer
For i = lstautolink.ListCount - 1 To 0 Step -1
If InStr(1, lstautolink.List(i), "mp3s") = 0 Then
lstautolink.RemoveItem (i)
End If
Next i

ClickLink Web1.Document, "Next ->"

Do
DoEvents
Loop Until Not Web1.Busy

Msgbox "No more Next-> links"

End Sub

[dlm]

Hi there,

Have you tried to work with labels and GoTo...?

Next_W:
    For W = 0 To Web1.Document.links.length - 1 
         'Debug.Print Web1.Document.links(X) 
         lstautolink.AddItem Web1.Document.links(W) 
    Next W 

Next_I:
    Dim i As Integer 
    For i = lstautolink.ListCount - 1 To 0 Step -1 
          If InStr(1, lstautolink.List(i), "mp3s") = 0 Then 
               lstautolink.RemoveItem (i) 
          End If 
    Next i 

    GoTo Next_W

[devGOD]

is there another way of doing this without GoTo, by just using the For Statement

[darre1]

you mean structured like this:

For W = 0 To Web1.Document.links.length - 1 
     'Debug.Print Web1.Document.links(X) 
     lstautolink.AddItem Web1.Document.links(W) 
 
    Dim i As Integer 
    For i = lstautolink.ListCount - 1 To 0 Step -1 
          If InStr(1, lstautolink.List(i), "mp3s") = 0 Then 
               lstautolink.RemoveItem (i) 
          End If 
    Next i 
Next W

[Wokawidget]

Private Sub NextW()
Dim W As Integer    
    For W = 0 To Web1.Document.links.length - 1 
         'Debug.Print Web1.Document.links(X) 
         lstautolink.AddItem Web1.Document.links(W) 
    Next W 
End Sub

Do the same for the other one, then just keep caklling the procedures....