| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 829 人关注过本帖, 1 人收藏
标题:求助:如何抓取网络特定数据,如中行外汇牌价里即时更新汇率数据
只看楼主 加入收藏
igaoyuan
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:103
专家分:112
注 册:2022-12-19
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:5 
求助:如何抓取网络特定数据,如中行外汇牌价里即时更新汇率数据
经常用到汇率计算,每次需要到中行外汇牌价查询,手动输入最新牌价后计算,是否能够抓取某个特定数值能,比如下列网址的美元与人民币汇率
https://www.
图片附件: 游客没有浏览图片的权限,请 登录注册


查看页面源代码,没有明显的定位查找条件
图片附件: 游客没有浏览图片的权限,请 登录注册


希望自动抓取红框内数值,不知大佬会用什么办法?
谢谢!
搜索更多相关主题的帖子: 网络 特定 计算 更新 数据 
2023-01-10 11:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
文本下载后,提取相关文本字符串,用alines()提取相关数据

坚守VFP最后的阵地
2023-01-10 11:39
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:20 
程序代码:
CLEAR 
lcWb = "美元"
lcWb1 = STRCONV(STRCONV(lcWb, 9), 15)
LOCAL lcToUTF8
* 转换为UTF8编码
lcUTF8 = ""
FOR ln = 1 TO LEN(lcWb1) STEP 2
    lcUTF8 = lcUTF8 + "%" + SUBSTR(lcWb1, ln, 2)
ENDFOR
* 下载网页数据
oHTTP = CREATEOBJECT("MSXML2.ServerXMLHTTP") &&MSXML2.XMLHTTP/WinHttp.WinHttpRequest.5.1/MSXML2.ServerXMLHTTP/Microsoft.xmlhttp
oHTTP.Open("POST", "https://srh./search/whpj/search_cn.jsp", .F.)
OHTTP.SETREQUESTHEADER("Content-Type", "application/x-www-form-urlencoded")
lcSend = "erectDate=&nothing=&pjname=" + lcUTF8 + "&head=head_620.js&bottom=bottom_591.js"

oHTTP.Send(lcSend)
IF oHTTP.Status = 200
    lcStr = oHTTP.ResponseText
    ALINES(laStr, STREXTRACT(lcStr, "<tr>", "</tr>", 3), 4+1)
    * 显示中行折算价
    ? lcWb + "中行折算价: " + SUBSTR(laStr[11], 5)
ENDIF 
收到的鲜花
  • igaoyuan2023-01-10 15:38 送鲜花  1朵   附言:感谢!敬礼!
  • sam_jiang2023-01-11 09:39 送鲜花  1朵  

坚守VFP最后的阵地
2023-01-10 14:38
igaoyuan
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:103
专家分:112
注 册:2022-12-19
收藏
得分:0 
回复 3楼 sdta
感激之情无以言表!!!
大佬,您的代码简单高效,敬礼!感谢!
2023-01-10 15:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
或者改为
程序代码:
IF oHTTP.Status = 200
    lcStr = oHTTP.ResponseText
    ALINES(laStr, lcStr, 4+1)
    * 显示中行折算价
    ? lcWb + "中行折算价: " + SUBSTR(laStr[172], 5)
ENDIF 
收到的鲜花
  • igaoyuan2023-01-10 17:38 送鲜花  1朵   附言:感谢大佬

坚守VFP最后的阵地
2023-01-10 16:02
igaoyuan
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:103
专家分:112
注 册:2022-12-19
收藏
得分:0 
回复 5楼 sdta
少用一个函数达到同样效果!
2023-01-10 17:37
快速回复:求助:如何抓取网络特定数据,如中行外汇牌价里即时更新汇率数据
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038907 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved