同样是取网页指定内容的问题，进来进来外面凉

自私的家伙

网址：http://stockpage.10jqka.com.cn/600006/

要取的内容



就是想吧这个评分，还有三个趋势，放在4个标签里显示出来，或者说  评分的话 单独一个透明标签，然后三个趋势，直接在编辑框里取出来，求各位大老帮忙

oow222

心雨资源吧 发表于 2018-3-15 09:27
要是单独想把每个单独放一个标签呢，就是说取出来的 直接放到三个标签里面

①评分  ② 短  中 长趋势  ...

那你就ctrl+u 分三段，取文本中间，这里的class每个都是唯一存在的

oow222

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
url	文本型
str	文本型
data	文本型

url ＝ “http://stockpage.10jqka.com.cn/600006/”
str ＝ 网页_访问S (url, 0, , , , , , , , , , , , , , , )
data ＝ 网页_取文本_reg (文本_取出中间文本 (str, “”, “<div class="#引号txt-phra#引号”," ,="" ))
调试输出 (data)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 url, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 data, 文本型<br /> <br /> url ＝ “http://stockpage.10jqka.com.cn/600006/”<br /> str ＝ 网页_访问S (url, 0, , , , , , , , , , , , , , , )<br /> data ＝ 网页_取文本_reg (文本_取出中间文本 (str, “”, “<div class="#引号txt-phra#引号”," ,="" ))<br /> <br /> 调试输出 (data)

<div class="#引号txt-phra#引号”," ,="" ))





补充内容 (2018-3-15 09:24):
上面data显示好像有点问题
data ＝ 网页_取文本_reg (文本_取出中间文本 (str, “<div class=#引号analyze-img fl#引号>”, “<div class=#引号txt-phra#引号”, , ))

自私的家伙

oow222 发表于 2018-3-15 09:23
[e=0].版本 2
.支持库 spec

要是单独想把每个单独放一个标签呢，就是说取出来的 直接放到三个标签里面

①评分  ② 短  中 长趋势

测试取文本是可以的

自私的家伙

oow222 发表于 2018-3-15 09:32
那你就ctrl+u 分三段，取文本中间，这里的class每个都是唯一存在的

好的 谢谢~~ 哈哈 敢问楼主还收徒不

百弊若愚

.版本 2
.支持库 internet

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型

返回文本 ＝ 到文本 (编码_Utf8到Ansi (HTTP读文件 (“http://stockpage.10jqka.com.cn/600006/”)))

返回文本 ＝ 文本_取出中间文本 (返回文本, #常量1, #常量2)
标签1.标题 ＝ 文本_取出中间文本 (返回文本, #常量3, “</span>”)
标签1.标题 ＝ 标签1.标题 ＋ #换行符 ＋ 文本_取出中间文本 (返回文本, #常量4, “</span>”)

编辑框1.内容 ＝ 正则_匹配批量 (返回文本)


.子程序 正则_匹配批量, 文本型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。
.参数 源文本, 文本型, , 欲被匹配的文本
.局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：http://ec.125.la/
.局部变量 局_匹配数, 整数型
.局部变量 局_计次, 整数型
.局部变量 返回文本, 文本型

.如果真 (局_正则.创建 (“txt-main#引号>(.*?)</div>”, 源文本, 假, 假, 真, 真) ＝ 假)
    信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )
    返回 (“”)
.如果真结束
局_匹配数 ＝ 局_正则.取匹配数量 ()
.如果真 (局_匹配数 ＝ 0)
    信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )
    返回 (“”)
.如果真结束
.计次循环首 (局_匹配数, 局_计次)
    返回文本 ＝ 返回文本 ＋ “短期趋势：” ＋ 局_正则.取子匹配文本 (局_计次, 1) ＋ #换行符
    .判断开始 (局_计次 ＝ 1)
        标签2.标题 ＝ “短期趋势：” ＋ 局_正则.取子匹配文本 (局_计次, 1)
    .判断 (局_计次 ＝ 2)
        标签3.标题 ＝ “中期趋势：” ＋ 局_正则.取子匹配文本 (局_计次, 1)
    .判断 (局_计次 ＝ 3)
        标签4.标题 ＝ “长期趋势：” ＋ 局_正则.取子匹配文本 (局_计次, 1)
    .默认

    .判断结束

.计次循环尾 ()
返回 (返回文本)
源码.e (639.51 KB, 下载次数: 3)

2018-3-15 09:40 上传

点击文件名下载附件