VFP 愛用者社區

[Patrick Wu]

請教各位先進 :
後學最近寫了 掛號信件自動查詢系統 程式如下 :

oIE = CREATEOBJECT( "internetexplorer.application" )
oIE.NAVIGATE( "http://postserv.post.gov.tw/webpost/CSController?cmd=POS4001_1&_ACTIVE_ID=190" )
oIE.VISIBLE=.T.

DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO

oIE.DOCUMENT.FORMS.MainForm.MAILNO1.VALUE= "98652210000910106657"
oIE.DOCUMENT.FORMS.MainForm.cmd.value = "POS4001_2"
oIE.DOCUMENT.FORMS.document.MainForm.submit()

以上沒問題
但 後學要如何取回 此網上的 處理日期時間 == > 2009/09/04-17:53:55
在原始碼內為: dispFormatDateTimeEng('20090904175355')
請各位先進 不吝指導 謝謝

[saint]

那個看起來就是一個table ，所以先看一下網頁上的文字檔，看一下它有沒有ID或Name，也可以利用firefox 中的 firebug來看網頁元素。
找到之後，取出值就像你自己寫的
xxx = oIE.DOCUMENT.FORMS.元素.TEXT
元素，不確定有多長。這要看網頁才知道，這是你自己要去做的功課

[Patrick Wu]

謝謝 215001 及 Saint 先進的指導
後學 TRY 了 將成果呈上 :

INKEY(3) && 等待3秒
M->I_E_STR = oIE.Document.Body.InnerHtml
IF AT( "投遞成功" , M->I_E_STR ) != 0
_SCREEN.WindowState = 2
STORE SUBSTR(M->I_E_STR , AT( "dispFormatDateTimeEng" , M->I_E_STR ) + 23 , TO M->POS_ARR
THISFORM.A_D_01.VALUE = CTOD(SUBSTR(M->POS_ARR,05,02) + "/" + SUBSTR(M->POS_ARR,07,02) + "/" + SUBSTR(M->POS_ARR,01,04))
THISFORM.A_D_01.REFRESH()
THISFORM.A_D_01.READONLY = .F.
THISFORM.A_D_01.TABSTOP = .T.
THISFORM.I_E_A_D
ENDIF

[Patrick Wu]

那行怪怪的是 : AT( "dispFormatDateTimeEng" , M->I_E_STR ) + 23 , 0

謝謝各先進的指導與關懷

[215001]

STORE SUBSTR(M->I_E_STR , AT( "dispFormatDateTimeEng" , M->I_E_STR )+23,14) TO M->POS_ARR