VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

運用程式來查詢 中華黃頁地圖

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 1 樓

發表發表於: 星期三 十月 24, 2007 9:08 am    文章主題: 運用程式來查詢 中華黃頁地圖 引言回覆

在紅狐FOX_CAT 提問,
Chris Lee 出手相助,
在此提出完整程式碼給有需要的人參考
代碼:

oIE = createobject('internetexplorer.application')
oIE.Navigate('http://202.39.225.126/hemap/Qaddr/map_addr.asp')
oIE.Visible=.t.
Do While oIE.Busy  or oIE.ReadyState <> 4
Enddo
oIE.Document.FORMS.QueryForm.selCity.Value='台中縣'
oIE.Document.FORMS.QueryForm.selCity.FireEvent('onchange')
oIE.Document.FORMS.QueryForm.selTown.Value='大里市'
oIE.Document.FORMS.QueryForm.txtRoad.value='德芳南路'
oIE.Document.FORMS.QueryForm.txtNo.Value='385'
oIE.Document.FORMS.QueryForm.btnQuery.click


到目前為止查詢地圖的程式總共有:
1.PapaGo http://vfp.sunyear.com.tw/viewtopic.php?t=3080
2.UrMap http://vfp.sunyear.com.tw/viewtopic.php?t=3096
3.中華黃頁 http://vfp.sunyear.com.tw/viewtopic.php?t=4170

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 2 樓

發表發表於: 星期五 十月 26, 2007 9:44 am    文章主題: 引言回覆

oIE.Document.FORMS.QueryForm.txtSEC.value = M->ADD_SEC
oIE.Document.FORMS.QueryForm.txtLANE.value = M->ADD_LAN
oIE.Document.FORMS.QueryForm.txtALLEY.value = M->ADD_ALY
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 3 樓

發表發表於: 星期五 十月 26, 2007 9:51 am    文章主題: 引言回覆

SORRY ENTER 鍵按得太快了
請問 Garfield 先進
oIE.Document.FORMS.QueryForm. <<<<< txtSEC>>>>.value = M->ADD_SEC ===>段
正確的名稱 可否告知 後學測了好久 SEC , SECTION ...... 都不行 只好求救 謝謝

oIE.Document.FORMS.QueryForm.txtLANE.value = M->ADD_LAN ==> 巷
oIE.Document.FORMS.QueryForm.txtALLEY.value = M->ADD_ALY ===>弄
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 4 樓

發表發表於: 星期五 十月 26, 2007 12:19 pm    文章主題: 引言回覆

其實你只要用IE功能表裡的"檢視"-->"原始檔"
或 編輯網頁工具 , 皆可看到大部份物件的名稱.

以下是我亂查的地址,
你試看看
oIE.Document.FORMS.QueryForm.selCity.Value='台中縣'
oIE.Document.FORMS.QueryForm.selCity.FireEvent('onchange')
oIE.Document.FORMS.QueryForm.selTown.Value='大里市'
oIE.Document.FORMS.QueryForm.txtRoad.value='德芳路'
oIE.Document.FORMS.QueryForm.selSection.value='二'
oIE.Document.FORMS.QueryForm.txtLANE.value='137'
oIE.Document.FORMS.QueryForm.txtALLEY.value='2'
oIE.Document.FORMS.QueryForm.txtNo.Value='18'
oIE.Document.FORMS.QueryForm.btnQuery.click

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 5 樓

發表發表於: 星期五 十月 26, 2007 1:54 pm    文章主題: 引言回覆

謝謝 Garfield 前輩
我再式式 oIE.Document.FORMS.QueryForm.<<< selSection >>>.value='二'
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 6 樓

發表發表於: 星期五 十月 26, 2007 2:30 pm    文章主題: 引言回覆

再次謝謝 Garfield 前輩
測試相當成功 oIE.Document.FORMS.QueryForm.<<< sel >>>Section.value='二'
就是沒留意到 sel 這是個 選項
謝謝
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 7 樓

發表發表於: 星期五 十月 26, 2007 4:53 pm    文章主題: 引言回覆

其實你只要用IE功能表裡的"檢視"-->"原始檔"
或 編輯網頁工具 , 皆可看到大部份物件的名稱.

真是如獲至寶 經 Garfield 前輩 一點 讓 後學 功力增進不少
真是感謝
各位請不要笑我太菜了 尚在用功的學習中 ( 現在 "菜" 很貴的)
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 8 樓

發表發表於: 星期五 一月 11, 2008 1:08 pm    文章主題: 引言回覆

中華黃頁 網頁 已更新
由 VFP 程式直接 呼叫 須作修正 :

oIE = CREATEOBJECT('internetexplorer.application')
oIE.NAVIGATE('http://hipage.hinet.net/map.asp')
oIE.VISIBLE=.T.
DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO

oIE.DOCUMENT.FORMS.SEARCH_MAP.ADDR.VALUE = STRCONV(TRIM(PAX_CALL.PAX_ADD) , 2 )
oIE.DOCUMENT.FORMS.SEARCH_MAP.SUBMIT.CLICK

提供給有須要的先進參考
(謝謝 Garfield 及 Chris Lee 李大師 的指導)
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
goto-dream



註冊時間: 2004-05-11
文章: 909


第 9 樓

發表發表於: 星期五 十月 23, 2009 9:07 pm    文章主題: 引言回覆

偉大的 garfield


你少了google MAP
http://vfp.sunyear.com.tw/viewtopic.php?t=4856&start=0&postdays=0&postorder=asc&highlight=google

_________________
福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!

想了解更多,您可上幸福雞湯組.找尋!!丁澐瑄.老師.

          愛作夢
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
goto-dream



註冊時間: 2004-05-11
文章: 909


第 10 樓

發表發表於: 星期五 三月 19, 2010 9:25 pm    文章主題: 引言回覆

請問一下哪一種地圖比較好用

方便用程式去呼叫產生地圖

_________________
福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!

想了解更多,您可上幸福雞湯組.找尋!!丁澐瑄.老師.

          愛作夢
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
DennisTsai



註冊時間: 2005-07-26
文章: 176


第 11 樓

發表發表於: 星期六 三月 20, 2010 6:00 am    文章主題: 引言回覆

之前用upmap,現已改用google
呼叫都方便,功能差很多,例如街景...
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作