VFP 愛用者社區

[prg3]

請問各位先進,小弟想寫一段 能從ie網頁自動抓取一檔案(.txt)到我電腦的磁碟機上請問怎麼寫

[syntech]

我的中文不太好,請說明清楚.

是抓一個 TXT檔, 例如 http://123.123.123.123/text/A.txt ,
還是轉存為 TXT,
還是其他有的沒的

[prg3]

對如大哥所說:
是抓一個 TXT檔, 例如 http://123.123.123.123/text/A.txt ,

我試過用
oIE = CREATEOBJECT("InternetExplorer.Application")

oIE.visible = .F. ==> 不希望出現ie BROWSER 但還是有POP網頁出來
oIE.Navigate("http://220.130.3.168/txtftp/aa.txt")
sleep(1000)
lnX = 0
oIE.Document.execCommand("saveas",0,D:\DATA\SIX.TXT) ==>出現錯誤
" UNRECOGNIZED COMMAND VERB"

麻煩指教謝謝

[chilin]

使用方法:
1.將wget.exe 複製到 c:\windows\system32\ 目錄底下
2.開啟dos視窗
3.wget的使用說明,請輸入wget -h

exp:
下載網路上的檔案請執行:wget {url}
{url}:表示文件的網址
若url中有&符號(GET參數間的符號)請換成%26(%26即為&的urlencode)


PS:附件已壓縮過,請自行解壓縮再使用

[prg3]

感謝chilin 題共此方法 但是我還是覺得直接寫在prg上比較方便
目前小弟經測試原來會產生我所提的error 是因為我用vfp6.0在vista 上執行
結果讓我搞不清楚到底哪裡錯 後來到xp 上執行竟然可行程式如下

oIE = createobject('internetexplorer.application')
oIE.Navigate('http://202.130.60.222/tstxt/aa.txt')
oIE.Visible=.F.
Do While oIE.Busy or oIE.ReadyState <> 4
if nxl < 4000
loop
else
=messagebox("web error",48,"error message")
break;
endif
Enddo
if nxl < 4000
oIE.Document.ExecCommand("SaveAs",0,"d:/data/six.txt")
endif
release oIE


但是我明明執行oIE.Document.ExecCommand("SaveAs",0,"d:/data/six.txt")
其中 parameter 0 是不跳出存檔對話視窗但還是跳出來有那位高手可以指導一下嗎謝謝!!

[syntech]

那就要問 IE 的版本或是有沒有裝其他的東東.

因為我使用 XP + IE 7.0 一樣有問題,
所以是不是你用 XP+ IE 6.0 可以

[prg3]

我用的是ie6+xp 一樣會跳出對話視窗 我想是跟ie沒啥關希吧

[九月飞花]

oinet = CREATEOBJECT("InetCtls.Inet",.f.)
IF !oinet.StillExecuting
WAIT WINDOW "正在取数据" nowa
cTxt=oinet.OpenURL("http://202.130.60.222/tstxt/aa.txt")
WAIT clear
?cTxt

ELSE
?"没有初始化，请重始"
ENDIF
RELEASE oinet

[prg3]

Dear 九月飞花:


小弟照您的方式處理:
--------------------------------------------------------------------------------

oinet = CREATEOBJECT("InetCtls.Inet",.f.)
IF !oinet.StillExecuting
WAIT WINDOW "正在取数据" nowa
cTxt=oinet.OpenURL("http://202.130.60.222/tstxt/aa.txt")
WAIT clear
?cTxt ===> 沒有顯示任何內容

ELSE
?"没有初始化，请重始"
ENDIF
RELEASE oinet

-----------------------------------------------------------------------------
最後還出現 error code 是否還需注意啥煩告知謝謝

另外我用下列程式會出現對話視窗,但有時還會pop 另一視窗系統有依程式是鄭在執行中叫我重試或執行...."實在搞不懂"

oIE = createobject('internetexplorer.application')
oIE.Navigate('http://202.130.60.222/tstxt/aa.txt')
oIE.Visible=.F.
Do While oIE.Busy or oIE.ReadyState <> 4
if nxl < 4000
loop
else
=messagebox("web error",48,"error message")
break;
endif
Enddo
if nxl < 4000
oIE.Document.ExecCommand("SaveAs",0,"d:/data/six.txt")
endif
release oIE

[goto-dream]

要怎樣利用 wget 去抓 百度的圖片

http://image.baidu.com/i?tn=baiduimage&ct=201326592&cl=2&lm=-1&&word=%C3%F7%D0%C7%20%C3%C0%C5%AE%20%B1%DA%D6%BD%20|%20%C5%AE%D0%C7&z=5

[jurgen]

http://www.sweetpotatosoftware.com/SPSBlog/PermaLink,guid,b6eb576c-7142-4993-b3f2-74b7af5fb66c.aspx

這個 fll 有你要的功能啊 "HTTPToStr"
但它還是開發中的東西，你可以試試看，看看效果如何[/url]

[goto-dream]

謝了.有空
會試看看