提取网站指定内容

z512201464

  如何提取网站指定内容啊,求大大们跟个例程.
       像360

Bye

这个问题，我昨天提问过了，也得到了解决
取网页指定内容到编辑框
http://www.3600gz.cn/forum.php?m ... 5&fromuid=43560
{:3_244:}

zx_sorry

.版本 2

.子程序 取文本指定内容, 文本型, 公开, 取出想要的内容
.参数 完整内容, 文本型, , 完整内容
.参数 左边文本, 文本型, , 左边文本
.参数 右边文本, 文本型, , 右边文本
.参数 循环读取, 逻辑型, 可空, 可空，默认为假，为真时“左边文本”“右边文本”“结果数组”不能为空.
.参数 结果数组, 文本型, 可空 数组, 可空，当“循环读取”为真时，不可为空.返回结果的数组.
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型
.局部变量 位置1, 整数型
.局部变量 位置2, 整数型

总长度 ＝ 取文本长度 (完整内容)
.如果 (循环读取 ＝ 真)
    重定义数组 (结果数组, 假, 0)
    位置1 ＝ 寻找文本 (完整内容, 左边文本, , 真)
    .判断循环首 (位置1 ≠ -1)
        位置2 ＝ 寻找文本 (完整内容, 右边文本, 位置1 ＋ 1, 真)
        加入成员 (结果数组, 取文本中间 (完整内容, 位置1 ＋ 取文本长度 (左边文本), 位置2 － 位置1 － 取文本长度 (左边文本)))
        位置1 ＝ 寻找文本 (完整内容, 左边文本, 位置2 ＋ 1, 真)
    .判断循环尾 ()
    .如果 (取数组成员数 (结果数组) ＞ 1)
        返回 (结果数组 [1])
    .否则
        返回 (“”)
    .如果结束

.否则
    .如果 (寻找文本 (完整内容, 左边文本, , 假) ＞ -1 且 寻找文本 (完整内容, 右边文本, , 假) ＞ -1)
        位置2 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
        临时文本 ＝ 取文本中间 (完整内容, 位置2, 总长度)
        总长度 ＝ 取文本长度 (临时文本)
        位置2 ＝ 寻找文本 (临时文本, 右边文本, , 假) － 1
        临时文本 ＝ 取文本中间 (临时文本, 1, 位置2)
        返回 (临时文本)
    .否则
        返回 (“”)
    .如果结束

.如果结束


使用方法
取文本指定内容(网页文本，左边文本，右边文本)

Ander

先取得的网页源码.再用正则获取指定内容

避孕光环

Ander 发表于 2011-9-17 09:59
先取得的网页源码.再用正则获取指定内容

！正解！！！

小太爷

我也想要啊！！！！！！！！！！！！！！！

taodile

我也想要啊