[yunqa.de] html parser

From: randy <randydom@xxxxxxxxx>
To: yunqa@xxxxxxxxxxxxx
Date: Tue, 19 Oct 2010 19:09:56 +0200
Hi i've this python code :
//***************************
data = fd.read(65536)
        # print data
        if (len(data) > 0):
            if data.find("The item you searched was not found in our
database") > 0:
                print "[+]No record"
                sys.exit(1)

            retup = re.findall('(color: red">)(\\d+)(<\\/span>)', data)
            if len(retup) > 0:
                for element in retup:
                    digit1 = element[1]

                                retup = re.findall('(\\/)(\\d+)(
).*?([+-]?\\d*\\.\\d+)(?![-+0-9\\.])', data)
                                if len(retup) > 0:
                                        for element in retup:
                                                digit2 = element[1]
                                                perc = element[3]

                                        print "[+] record detected! [" +
digit1 + "/" + digit2 + "] (" + perc + "%)"
                                        print "\t[*] here is the Report:"

                                        result = data.find("<th>List</th>")
                                        retup =
re.findall(r"(<td)([a-zA-Z0-9\/\!\@\:\<\>\=\.\"\-\_\~\+\]\[\(\) ]*)(</td>)",
data[int(result):])

                                        i = 0
                                        # print retup
                                        while i < len(retup) and len(retup)
> 0:
                                                 if
retup[i][1][1:].find("First name") > 0:
                                                         break
                                                 if retup[i+3][1][1:] !=
"-":
                                                         print "\t\t" +
retup[i][1][1:] + " - " + retup[i+3][1][18:]

                                                 i = i + 4

                                        print "\n[+] Detailed report found
at:", fd.url


                if not len(data):
                        break

//***************************

please can someone convert it to delphi so that i can use the Html parser .
-- 
Many thanks

-----

Yours Randy
[yunqa.de] html parser

Other related posts:
