How to search for html patterns recursivly trough urls?

[DavidTigerch]

My current code goes trough a html code and finds all the url part that
has this type of pattern with bold part changing :

Albums.asp?singerID=[b]1421[/b]

It outputs the result to mainlistbox shown in pic. What i want to do for each listbox item is the following:

1)Take first item in mainlistbox and construct its url like this:

[URL unfurl="true"]http://localhost.com/Albums.asp?singerID=[/URL][b]1421[/b]

]

2)Get the html code of

[URL unfurl="true"]http://localhost.com/Albums.asp?singerID=[/URL][b]1421[/b]

then look for the follwing pattern with the bold part is changing:

../Music/AlbumSongs.asp?AlbumId=[b]1918[/b]&Album=[b]life[/b]&Singer=[b]Andy[/b]&SingerID=[b]1421[/b]
[/VBCODE]

pattern example:

[code]<tr bgcolor="#C0C0C0">
								<td>
								<a href=" ../Music/AlbumSongs.asp?AlbumId=1918&Album=life&Singer=Andy&SingerID=1421">
								Check this Album</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
								Email to Friend -><a href="../../EmailAlbum.asp?AlbumID=1918">
								<img border="0" src="../images/mail.gif" longdesc="Email This singers Albums to a Friend" alt="Email This singers Albums to a Friend" width="16" height="16"></a>&nbsp; 
								<br>
								</td>

</tr>

3)adding them all to another newlistbox then we do the following for each items in this newly listbox

4)We take the first item from our newlistbox and construct its full url

and get its html :

[URL unfurl="true"]http://localhost/Music/AlbumSongs.asp?AlbumId=1918&Album=life&Singer=Andy&SingerID=1421[/URL]

and we look for pattern like this and bold part changing again and them to thirdlistbox

<a href="javascript:newWindow('../player/player.asp?id=[b]16295[/b]')">

after this we do the same for remaing items in our newlistbox after finishing the process for our first mainlisbox item we do the same process for the remaining items of our mainlistbox till we reach end of the mainlistbox. I be happy if some one show me how i can recursivly acomplish this task.Thanks

my code

Private Sub Command1_Click(Index As Integer)

Select Case Index
    Case 0:
        If txtURL.Text <> "" Then
            RichTextBox1.Text = Inet1.OpenURL(txtURL.Text, icString)
        End If
    
    Case 1:
        End
End Select
End Sub


Private Sub Command2_Click()
 Dim sResult() As String, N As Long

    If GetLine(RichTextBox1.Text, "Albums.asp?SingerID=", "&Singer=", sResult) Then
          For N = LBound(sResult) To UBound(sResult)
            List1.AddItem sResult(N)
              Text1.Text = Text1.Text & sResult(N) & vbCrLf
        Next N

    Else
        ' No occurances were found
    End If
End Sub

Private Function GetLine(ByVal sText As String, ByVal sStart As String, ByVal sEnd As String, ByRef sArr() As String) As Boolean
    Dim lPos As Long, lEnd As Long, lCount As Long, sTemp() As String
    
    ReDim sTemp(100)
    
    lPos = InStr(1, sText, sStart, vbTextCompare)
    Do While lPos
        lEnd = InStr(lPos, sText, sEnd, vbTextCompare)
        If lEnd Then
            sTemp(lCount) = Mid$(sText, lPos, lEnd - lPos)
            lPos = InStr(lEnd, sText, sStart, vbTextCompare)
        Else
            sTemp(lCount) = Mid$(sText, lPos)
            lPos = 0
        End If
        lCount = lCount + 1
        If lCount > UBound(sTemp) Then ReDim Preserve sTemp(100 + lCount)
    Loop

    If lCount > 0 Then
        ReDim Preserve sTemp(lCount - 1)
        sArr = sTemp
    End If
    GetLine = lCount
End Function

 

[johnwm]

This looks like simple string slicing and concatenation. You should review the tutorials I pointed you to in your previous thread, looking for String Functions. Also look for Left$(), Mid$(), Right$(), Instr() and Replace()

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[DavidTigerch]

johnwm thank u for u reply. finding the patterns data is not very difficult ,but i have problem how to make this recursively!! I do not know how to scan trough the urls found in first second listbox in order that i mentioned ?

 

[johnwm]

Looks like you need a For..Next loop, not recursion. Loop structures are also comprehensively covered in the tutorials. Look for Do...Loop and For Each...Next as well

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller