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;