>if oShell.AppActivate(OIE.DOCUMENT.title) > oShell.SendKeys(lcAddress+"{ENTER}") > WAIT WINDOW TIMEOUT 1.0 "" > > DO case > CASE "Did you mean:" $ OIE.DOCUMENT.body.innerText > lcresult = SUBSTR(OIE.DOCUMENT.body.innerText, AT("Did you mean:",OIE.DOCUMENT.body.innerText)) > ?LEFT(lcresult,AT(CHR(13),lcresult)) > ?substr(lcresult,AT(CHR(13),lcresult)+2,AT(CHR(13),lcresult,2) -AT(CHR(13),lcresult)-1) > > OTHERWISE > lcResult = OIE.DOCUMENT.body.innerText > STRTOFILE(lcResult,'temp.txt') > ENDCASE >endif >>
>Screen reader users: click here for plain HTMLWeb Images Maps News Video Gmail more ?Shopping > >Groups > >Books > >Scholar > >Finance > >Blogs > >YouTube > >Calendar > >Photos > >Documents > >Reader > >Sites > >even more » > Loading...Still loading... Slow? Try Basic HTMLSign in | Help >All resultsLocationsBusinessesUser-created contentRelated mapsMapped web pagesReal estateShow search optionsRemove search options >Find businesses, addresses and places of interest. Learn more. > > > RSS > View in Google Earth > Print Send Link©2009 Google - Map data ©2009 Europa Technologies, LeadDog Consulting, Tele Atlas - Terms of UseMapSatellite >Show labelsTerrain500 mi500 kmTrafficMore...Photos >Videos >Wikipedia >Webcams > >Hide allStreet ViewDrag me to a street!<> > >Get DirectionsGet Directions My MapsMy Maps > > > > > > > > > >Add Destination - Show optionsHide options > > > > >Note: Public transit coverage may not be available in this area. > > >Change default location >Set default location >Change default location >Set default location > >Remove > >Put your business on Google Maps >Display your ads on Google Maps > > >Hide all > >PhotosVideosWikipediaTransitWebcams >I do not know what you are missing whithout reviewing your code. Here is what I am getting while adding another "CASE"
CASE "Address:"+CHR(13) $OIE.DOCUMENT.body.innerText *Address: *11 Chestnut Ridge *Tannersville, PA 18372 *A.11 Chestnut Ridge *Tannersville, PA 18372Explore this area » *Pan or zoom the map to exploreDone lcresult= SUBSTR(OIE.DOCUMENT.body.innerText, AT("Address:"+CHR(13),OIE.DOCUMENT.body.innerText)) lcout=lcresult 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