vb6 parsing and adding to .txt

[sp00ki3]

ok i have vb6 and i need to parse something from a web site source and have it add the parsed to a txt file.

example:

<tr><td>1,400</td><td><a target="_self" href="pro.php?pro=16003&amp;PHPSESSID=60b57bea646051deae63662d88bfa4d1"><font color

i need everything on one page parsed between

href="pro.php?pro=

and

&PHPSESSID=

in this case 16003

then i need to add it to a txt file as this.

URL GOTO=http://webpage.com/16003

that will be in the txt file with all the different numbers at the end of each link.

now how do I go about doing this? i used to know how but i cant find anything on/about it please help thank you[/quote]

[jeffbroodwar]

can you try to elaborate the problem? it's actually confusing.... i hope i can help...

[mailderemi]

can you try to elaborate the problem? it's actually confusing.... i hope i can help...

Hi
if you wanna work multilanguage (VB6+PHP) I think the easiest way is:

- saving the page into htm or html
OR
- use IE activex

(by you know we can't export php commands from a web server) so then open the file into a string variable then attach your PHP commands to it.

also see http://www.thescripts.com/forum/thread659246.html

[danp129]

ok i have vb6 and i need to parse something from a web site source and have it add the parsed to a txt file.

How to get webpage source

i need everything on one page parsed between

href="pro.php?pro=

and

&PHPSESSID=

How to parse page:

Private Sub Command1_Click()
    Dim sString 'As String
    Dim sPattern 'As String
    Dim ret
    Dim i 'As Long
    Dim sURLPrefix 'As String
    Dim sLineOutput 'As String
    sURLPrefix = "URL GOTO=http://webpage.com/"
 
    sString = "<tr><td>1,400</td><td><a target=""_self"" href=""pro.php?pro=16003&amp;PHPSESSID=60b57bea646051deae63662d88bfa4d1""><font color<tr><td>1,400</td><td><a target=""_self"" href=""pro.php?PHPSESSID=60b57bea646051deae63662d88bfa4d1&pro=17432""><font color<tr><td>1,400</td><td><a target=""_self"" href=""pro.php?pro=987621&PHPSESSID=60b57bea646051deae63662d88bfa4d1""><font color"
    sPattern = "href=['\""]pro\.php[^'\""]*?pro=([0-9]+)"
 
 
    ret = GetPro(sPattern, sString)
 
    If UBound(ret) < 0 Then
        MsgBox "No match found"
        Exit Sub
    End If
 
    For i = 0 To UBound(ret)
        sLineOutput = sURLPrefix & ret(i)
        'put your code here to output the string to text file
        MsgBox sLineOutput
    Next 'i
 
    If IsArray(ret) Then Erase ret
 
End Sub
 
Function GetPro(myPattern, myString)
    'Create objects.
    Dim objRegExp   ' As RegExp
    Dim objMatch    ' As Match
    Dim colMatches  ' As MatchCollection
    Dim RetStr      ' As String
    Dim sDelim, sDelim2
    Dim objSubMatch
 
    ' Create a regular expression object.
    Set objRegExp = CreateObject("VBScript.RegExp") ' New RegExp
 
    'Set the pattern by using the Pattern property.
    objRegExp.Pattern = myPattern
 
    ' Set Case Insensitivity.
    objRegExp.IgnoreCase = True
 
    'Set global applicability.
    objRegExp.Global = True
    'On Error resume next
    'Test whether the String can be compared.
    If (objRegExp.Test(myString) = True) Then
        'Get the matches.
        Set colMatches = objRegExp.Execute(myString)   ' Execute search.
 
        For Each objMatch In colMatches   ' Iterate Matches collection.
          If objMatch.SubMatches.Count > 0 Then
            RetStr = RetStr & sDelim
            sDelim2 = ""
            For Each objSubMatch In objMatch.SubMatches
              RetStr = RetStr & sDelim2 & objSubMatch
              sDelim2 = ","
            Next 'objSubMatch
            sDelim = vbCrLf
          Else
            RetStr = RetStr & sDelim & objMatch.Value
            sDelim = vbCrLf
          End If
        Next
    Else
        'RetStr = "String Matching Failed"
    End If
   TestRegExp = Split(RetStr, vbCrLf)
Exit Function
errortrap:
MsgBox "error"
 
End Function
 

then i need to add it to a txt file as this.

URL GOTO=http://webpage.com/16003

that will be in the txt file with all the different numbers at the end of each link.

How to write to a file

Good luck

[sp00ki3]

Thx alot im still kinda new to coding so some of it is weird to me but ill work through it and get it working thx alot i really like this site already lol