[Solved] How to grab this infos from file? (Or what is the right way?)

[Fire]

Hi to all Great Autoit Community.

So, i need help please help me in this to properly figure it out.

I`m trying to create small program for Reverse Ip.

So this is my script:(Snippet from it)

case $Button1
$useragent=HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 MRA 5.6 (build 03278) Firefox/3.6.3 GTB7.0")
            InetGet("onlineser5viceurlgoeshere.com/lookup.php?addr="&GUICtrlRead($Input1)&"&x=0&y=0",@ScriptDir & _
            "\file.html")
            MsgBox(64,"","End")
;EOF Snipped From Autoitscript code

When script finished file.html (result of lookup) exist in @Scriptdir)

I need extract from file.html this entries:

Please note that this infos dynamically changes from another iP Reverse Lookup and it may be 100% different from this:

I know may be i`m unclear .Because my English bad and i cannot properly say my question.

reveripedsitename.com

IP  xx.xx.xxx.x
CONTINENT CODE  NA
COUNTRY CODE    US
COUNTRY NAME    United States
REGION CODE     TX
REGION NAME     Texas
CITY    Houston
LATITUDE    29.7523
LONGITUDE   -95.367
PROVIDER (ORG)  AS21844

And i know that i need grab this infos from this snipped of html page (from downloaded file.html file)

So, my question what is the right way grab this info from file.html ?

_stringbetween() ? or i need StringRegExp() or filereadline() with assosiated with _stringmid() ?

Thank you very much And Thanks in advance again.

Below snipped from file.html file:

expandcollapse popup

<div class='search_result'>
<div class='search_title'>sitenamegoeshereinotput.com</div><br>
<div class='search_data'>
<table class='table1' >
<tr><td class='td_var'>IP </td><td class='td_val'><a href=somelurlhere=xx.xx.xxx.x'>xx.xx.xxx.x</a></td></tr>
<tr>
<td class='td_var'>CONTINENT CODE</td>

<td class='td_val'>NA</td>
</tr>
<tr>
<td class='td_var'>COUNTRY CODE</td>
<td class='td_val'>US</td>
</tr>
<tr>
<td class='td_var'>COUNTRY NAME</td>
<td class='td_val'>United States</td>
</tr>
<tr>
<td class='td_var'>REGION CODE</td>

<td class='td_val'>TX</td>
</tr>
<tr>
<td class='td_var'>REGION NAME</td>
<td class='td_val'>Texas</td>
</tr>
<tr>
<td class='td_var'>CITY</td>
<td class='td_val'>Houston</td>
</tr>
<tr>
<td class='td_var'>LATITUDE</td>

<td class='td_val'>29.7523</td>
</tr>
<tr>
<td class='td_var'>LONGITUDE</td>
<td class='td_val'>-95.367</td>
</tr>
<tr>
<td class='td_var'>PROVIDER (ORG)</td>
<td class='td_val'>AS21844</td>
</tr>

I think this would be right way:

Get html tags and infos :

<div class='search_result'>
--------------------------
-------------------------
------------------
------------------------------
</table>

and then create _IECreateEmbedded () for new file which contains extracted tags+infos then display all info in GUI.

But how to get this diapason of tags?

edit:grammatical mistakes

Edited April 30, 2010 by Sh3llC043r

[jchd]

Which information exactly do you need?

[Fire]

Ok sorry jchd.

I know i`m unclear.

I think i need :

Get html tags include infos :

<div class='search_result'>
--------------------------
-------------------------
------------------
------------------------------
</table>

from file.html file.

and then create _IECreateEmbedded () for new file which contains extracted tags+infos then display all info in GUI.

But how to get this diapason of tags include infos?

[GEOSoft]

$sStr = FileRead(@ScriptDir & "\file.html")
$aInfo = StringRegExp(StringRegExpReplace($sStr, "(?i)(?s)(?U).*<div class=.?search_data.?>(.+)</div>.*", "$1"), "(?i)<td.+?>(.+?)</td>", 3)
If NOT @Error Then
    $sRtn = ""
    For $i = 0 To Ubound($aInfo) -2 Step 2
        $aInfo[$i +1] = StringRegExpReplace($aInfo[$i+1], "<.+?>", "")
        $sRtn &= $aInfo[$i] & " = " & $aInfo[$i+1] & @CRLF
    Next

    MsgBox(0, "Result", $sRtn
EndIf

[Fire]

GEOSoft Thank you very much

It works like charm!

Thanx to all again.Auotit4Ever

Solved.

[GEOSoft]

Glad it works but how you display the result is up to you. BTW if you look through Chat, I think I posted a complete script for doing exactly the same as you are doing with a GUI.

[Fire]

Thanks again GEOSoft.

Here is:

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <GuiEdit.au3>
Dim $avarray
#Region ### START Koda GUI section ### Form=Form1.kxf
$Form1 = GUICreate("", 636, 750, 210, 122)
$Input1 = GUICtrlCreateInput("Ip Or Domain Name Goes Here", 176, 144, 273, 21)
$Button1 = GUICtrlCreateButton("Get Result", 224, 216, 137, 33, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 88, 328, 473, 369)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GUICtrlSetData($Edit1,"")

            $useragent=HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 MRA 5.6 (build 03278) Firefox/3.6.3 GTB7.0")
            InetGet("http://my-addr.com/reverse-lookup-domain-hostname/free-reverse-ip-lookup-service/reverse_lookup.php?addr="&GUICtrlRead($Input1)&"&x=0&y=0",@TempDir & _
            "\file.html")





            $sStr = FileRead(@TempDir & "\file.html")
$aInfo = StringRegExp(StringRegExpReplace($sStr, "(?i)(?s)(?U).*<div class=.?search_data.?>(.+)</div>.*", "$1"), "(?i)<td.+?>(.+?)</td>", 3)
If NOT @Error Then
    $sRtn = ""
    For $i = 0 To Ubound($aInfo) -2 Step 2
    $aInfo[$i +1] = StringRegExpReplace($aInfo[$i+1], "<.+?>", "")
    $sRtn &= $aInfo[$i] & " = " & $aInfo[$i+1] & @CRLF

    Next
FileWrite(@TempDir&"\data4.txt",$sRtn)
    ;MsgBox(0, "Result", $sRtn)

    _FileReadToArray(@TempDir&"\data4.txt",$avarray)
    RunWait("cmd.exe /c " & "del /q " & @TempDir&"\data4.txt" & "&& " & "del /q " & @TempDir&"\file.html",@ScriptDir,@SW_HIDE)

    For $i=1 To $avarray[0]
        _GUICtrlEdit_AppendText($Edit1,$avarray[$i] & @CRLF)
        Next


EndIf

    EndSwitch
WEnd

Thanks so much again to all.

Edited April 30, 2010 by Sh3llC043r

[GEOSoft]

You could have saved yourself some trouble by just using what I gave you and then forgrt about writing to a file and forget about GUICtrlEdit_AppendText().

Where I have the MsgBox, replace it with

GUICtrlSetData($Edit1, $sRtn)

[Fire]

You could have saved yourself some trouble by just using what I gave you and then forgrt about writing to a file and forget about GUICtrlEdit_AppendText().

Where I have the MsgBox, replace it with

GUICtrlSetData($Edit1, $sRtn)

Thanks GEOSoft.

Yeah you are right.This is not completed script and i`m working on it to add more stuff only reason using

_GUICtrlEdit_AppendText()

And yes your way rescued me and Helped me 99 %.

Thank you again GEOSoft and jchd

[jchd]

There are two ways to do it: either use the _IE functions, a clean way if you know what you're searching for (your case), or use the dirty path using regexps. I assume the answer for geolocation of a single IP is short, so you can have it loaded in one variable and extract the whole stuff needed in one shot.

Got distracted elsewhere and I see that you're home. I did nothing on this one!

Edited April 30, 2010 by jchd

[Fire]

There are two ways to do it: either use the _IE functions, a clean way if you know what you're searching for (your case), or use the dirty path using regexps. I assume the answer for geolocation of a single IP is short, so you can have it loaded in one variable and extract the whole stuff needed in one shot.

Got distracted elsewhere and I see that you're home. I did nothing on this one!

jchd yeah solved.Thanks to you too for response.Really my sincerely Thank Guys.