* From Sergey. PROCEDURE GoogleMapSearch(cAddress, DoNotAutoCorrect) #DEFINE READYSTATE_COMPLETE 4 LOCAL oIE As InternetExplorer.Application, URL, Result URL="http://maps.google.com?q=" + m.cAddress IF NOT m.DoNotAutoCorrect oIE = CREATEOBJECT("InternetExplorer.Application") oIE.Visible = .F. oIE.Navigate(m.URL) DO WHILE oIE.Readystate <> READYSTATE_COMPLETE WAIT WIND TIME 1.0 "" ENDDO DO CASE CASE "Did you mean:" $ oIE.DOCUMENT.body.innerText Result = SUBSTR(oIE.DOCUMENT.body.innerText, AT("Did you mean:",oIE.DOCUMENT.body.innerText)) ?LEFT(m.Result,AT(CHR(13),m.Result)) ?SUBSTR(m.Result,AT(CHR(13),m.Result)+2,AT(CHR(13),m.Result,2) -AT(CHR(13),m.Result)-1) CASE "Address:"+CHR(13) $oIE.DOCUMENT.body.innerText Result = SUBSTR(oIE.DOCUMENT.body.innerText, AT("Address:"+CHR(13),oIE.DOCUMENT.body.innerText)) lcOut = m.Result ilines = 1 DO WHILE lcout <> "A." AND ilines<5 ?LEFT(lcout,AT(CHR(13),lcout)-1) lcout=SUBSTR(lcout,AT(CHR(13),lcout)+2) ilines=ilines+1 ENDDO OTHERWISE m.Result = oIE.DOCUMENT.body.innerText STRTOFILE(m.Result,'temp.txt') ENDCASE oIE.Quit() ELSE ShellExecute(m.URL, "", "Web", "") ENDIF RETURN