PerlRegEx = Yes; Output.Clear; States = 'IN,KY'; st = New(Stack); st.Split(States, ','); df = New(File); df.Open(ScriptPath+'hudhomestore.txt'); df.Truncate; rx = New(RegEx); sk = New(Stack); Link = New(URL); unless st.Empty do begin PageURL = 'https://www.hudhomestore.com/Listing/PropertySearchResult.aspx?zipCode=&city=&county=&street=&sState='+st.Pop+'&fromPrice=0&toPrice=0&fcaseNumber=&bed=0&bath=0&buyerType=0&Status=0&sLanguage=ENGLISH'; while PageURL <> Nothing do begin Link.Get(PageURL); PageURL = Link.FixUp(WildGet(Link.Data, "href='([^']+)'[^>]*>next")); rx.Data = Link.Data; //Output(Link.Data); Terminate; rx.Mask = 'var\s+strLink\s*=\s*"([^"]+)"\s*\+\s*[^+]+\+\s*"([^"]+)"'; rx.Match; SubmitURLPrefix = rx.Value[1]; SubmitURLSufix = rx.Value[2]; //rx.Mask = "'([^']+)';"">\s*[^<]+\s*" + "'([^']+)';"">\s*[^<]+\s*.*?lblAddress""[^<]+
[^,]+,\s*([a-z]{2}),\s*(\d{5})"; rx.Mask = "'([^']+)';"">\s*([^<]+)\s*.*?lblAddress""[^<]+
[^,]+,\s*([a-z]{2}),\s*(\d{5})"; rx.Reset; sk.Clear; while rx.Match do begin //sk.Push(rx.Value[1]); //sk.Reverse; //unless sk.Empty do begin //Link.Get(sk.Pop); //CaseNumber = WildGet(Link.Data, 'case\s*number:\s*<[^>]+>([^<]+)<'); //rx.Data = Link.Data; //rx.Mask = 'lblAddress">[^<]+
[^,]+,\s*([a-z]{2}),\s*(\d{5})'; //rx.Reset; //rx.Match; CaseNumber = rx.Value[2]; State = rx.Value[3]; Zip = rx.Value[4]; DataLine = CaseNumber+TAB+State+TAB+Zip; df.Write(DataLine+CRLF); Output(DataLine); end; end; end; df.Close;