Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Google Address Verification?
Message
 
To
22/04/2009 11:58:05
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01395898
Message ID:
01395909
Views:
108
>That looked like a really good start, Yuri. I modified your code as follows to see what I was getting:
>
>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
>
>
>I sent it my own address: "11 Chestnut Ridge, Tannersville, PA" and the contents of TEMP.TXT (below) are more or less useless. What am I missing?
>
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform