Trouble parsing webpages

[arandomguy01]

Hello and thanks for reading. I am having trouble parsing webpages using Inetget and saving the file as a txt file. It seems to lose all formatting when I do this making it difficult for me to anticipate how to extract URL's and other info. I'll explain what I'm trying to do in more depth. I want to input an initial webpage, search for a list of urls that have the same basic format. Download each url that is found and parse each for some specific info and then compile a list of what was found, probably output a txt file, maybe in a gui after I get the basic parts done. I've done something like this previously but I lost a HDD and all my scripts I had written for reference.

Another problem I am having, even if I DL the initial page by hand, when stringsplitting into arrays, the array is not populating like I expect it to and is returning some numbers and I've no idea why. If someone could give me an example of this or direct me I would be very thankful for the help.

[MrMitchell]

Have you got examples of the code you're using and the websites you're trying to get?

[arandomguy01]

Um, yes but my code is ugly. Well, here is what I was fiddling with. The debug things are there because I was trying to figure out what was going on. I am trying to get a clans page on WoT such as this page > http://uc.worldoftanks.com/uc/clans/1000000006/ then evaluate each players' tiers of tanks in that clan to gauge their relative strength at a glance. Going through this by hand takes an extreme amount of time and I would really like to simplify it by scripting this. Ugly code below

$n = 0
$numplayers = 0
MsgBox(0, "debug", @ScriptDir & "\Clans.txt")
If FileExists(@ScriptDir & "\Clans.txt") Then MsgBox(0, "debug", "File Exists.")
$file = FileOpen(@ScriptDir & "\Clans.txt", 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file, $n)
    If @error = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        FileClose($file)
        ExitLoop
    EndIf

    $playerexists = StringInStr($line, 'href="http://uc.worldoftanks.com/uc/accounts/')
    If $playerexists <> 0 Then
        ;$split = StringSplit($playerexists, "{ASC 34}")
        $split = StringSplit($playerexists, ">")
        If $split[0] >= 2 Then
        MsgBox(0, "debug", $playerexists & " " & $split[0] & " " & $split[2] & " " & $numplayers)
        $numplayers = $numplayers + 1
        EndIf
    EndIf
    $n = $n + 1
WEnd

[wakillon]

Did you read Additional notes regarding game automation ?

[arandomguy01]

Did you read Additional notes regarding game automation ?

I'm not automating a game. I am parsing a web page...

Edit - Matters not at this point anyways. I see what I did wrong and corrected my mistake(s). So I solved this on my own. Thanks for your time.

Edited May 21, 2011 by arandomguy01