發表人 |
內容 |
主題: 打開瀏覽器方式 |
tuberose
回覆: 4
觀看: 5812
|
版面: VFP 討論區 發表於: 星期日 四月 24, 2016 11:34 am 主題: 打開瀏覽器方式 |
MS 不提供非 IE 等第三方浏览器 Automation 实例的,原因都知道的。但你可以在 VFP 的 Form 中嵌入第三方的程序或软件、 |
主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
tuberose
回覆: 13
觀看: 9138
|
版面: VFP 討論區 發表於: 星期五 三月 11, 2016 12:02 pm 主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
对不起,是我打错了,谢谢上面的网友的指正。
源代码:
Create Cursor 交叉匯率表 ( 币种 C(6), 美金 C(6), 台幣 C(6), 圓 C(6), ;
日港幣 C(6), 人民幣 C(6), 英鎊 C(6 ... |
主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
tuberose
回覆: 13
觀看: 9138
|
版面: VFP 討論區 發表於: 星期五 三月 11, 2016 10:30 am 主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
Update :
*!* Get Rate Date.
Wait Window "请稍等片刻......" Nowait
oIE = Createobject("Internetexplorer.Application")
oIE.Visible = .T.
oIE.Navigate("http://yamstock.megatime.com.tw/rate ... |
主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
tuberose
回覆: 13
觀看: 9138
|
版面: VFP 討論區 發表於: 星期五 三月 11, 2016 10:02 am 主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
*!* Get Rate Date.
Clear
Wait Window "请稍等片刻......" Nowait
oIE = Createobject("Internetexplorer.Application")
oIE.Visible = .T. && Or .F.
oIE.Navigate("http://yamstock.megati ... |
主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
tuberose
回覆: 13
觀看: 9138
|
版面: VFP 討論區 發表於: 星期四 二月 04, 2016 3:23 pm 主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
版本 2 : 文本方式
*!* Enumerates/Detect the number of tables and rows and columns and Cells in HTTP.
Clear
Set Safety Off
CRLF = Chr(13) + Chr(10)
cStr = ""
oIE = Createobject("internetexpl ... |
主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
tuberose
回覆: 13
觀看: 9138
|
版面: VFP 討論區 發表於: 星期四 二月 04, 2016 3:19 pm 主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
Update :
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
oIE.Navigate("http://www.caneis.com.tw/home/information/citycode.htm")
tStartSecond = Seconds()
Do While oIE.Busy = ... |
主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
tuberose
回覆: 13
觀看: 9138
|
版面: VFP 討論區 發表於: 星期四 二月 04, 2016 3:03 pm 主題: 請高手幫忙抓下此網頁的城市代碼及名稱 |
Clear
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
oIE.Navigate("http://www.caneis.com.tw/home/information/citycode.htm")
tStartSecond = Seconds()
Do While oIE.Busy = .T. ... |
主題: 想求fix檔 |
tuberose
回覆: 4
觀看: 4656
|
版面: VFP 討論區 發表於: 星期六 一月 16, 2016 1:24 pm 主題: 想求fix檔 |
Try it:
https://www.microsoft.com/en-pk/download/details.aspx?id=13959
https://msdn.microsoft.com/en-us/vfoxpro
https://foxypreviewer.codeplex.com/releases/view/49471 |
主題: 如何快速 計算最大值 在暫存表上??? |
tuberose
回覆: 2
觀看: 2755
|
版面: VFP 討論區 發表於: 星期五 七月 24, 2015 12:32 pm 主題: 如何快速 計算最大值 在暫存表上??? |
? Max(1,10,7,8,9,11,51,2,3,42,99,101) |
主題: 如何用vfp 解出 標準差stdev |
tuberose
回覆: 2
觀看: 3395
|
版面: VFP 討論區 發表於: 星期四 六月 25, 2015 8:12 pm 主題: 如何用vfp 解出 標準差stdev |
Clear
*!* The cursor contains the same data aS Excel's help for STDEV and STDEVP
*!* A B C D
*!* --- ---
*!* 1 2 3 4
*!* 2 3 4 5
*!* excel 是 stdev(A1:D2)=1.309307341
Create Cursor ... |
主題: [分享]簡易統計圖製作(simplechart.vcx) |
tuberose
回覆: 8
觀看: 17637
|
版面: VFP 討論區 發表於: 星期三 六月 24, 2015 2:17 pm 主題: [分享]簡易統計圖製作(simplechart.vcx) |
主页找:http://vfpx.codeplex.com/
或者在:http://vfpx.codeplex.com/releases/view/106904 |
主題: 顯示2到某數中的質數 |
tuberose
回覆: 24
觀看: 15257
|
版面: VFP 討論區 發表於: 星期六 五月 09, 2015 8:48 pm 主題: 顯示2到某數中的質數 |
逆向计算
*!* 求前 X 个质数的自然数范围
*!* 1,000,000 耗时1.5秒
Clear
lnSec = Seconds()
lnCnt = 74300
lnOddArea = Int(1.2*lnCnt*Log(lnCnt)/2)
Local aD ... |
主題: 顯示2到某數中的質數 |
tuberose
回覆: 24
觀看: 15257
|
版面: VFP 討論區 發表於: 星期六 五月 09, 2015 6:14 pm 主題: 顯示2到某數中的質數 |
陣列數只能计算到一亿
这个是限制 |
主題: 顯示2到某數中的質數 |
tuberose
回覆: 24
觀看: 15257
|
版面: VFP 討論區 發表於: 星期六 五月 09, 2015 6:12 pm 主題: 顯示2到某數中的質數 |
正则表达式也可以计算质数
但速度不快
=====================
nPrime = 10000 && >= 1 / 10,000 约 44秒
tStartTime = Seconds()
oRE = Createobject("V ... |
主題: 顯示2到某數中的質數 |
tuberose
回覆: 24
觀看: 15257
|
版面: VFP 討論區 發表於: 星期六 五月 09, 2015 5:43 pm 主題: 顯示2到某數中的質數 |
使用 Sieve of Eratosthenes 算法
Web at : http://en.wikipedia.org/wiki/Sieve_of_Eratosthenes |
|