|
|
发表于 2013-5-20 19:42:09
|
显示全部楼层
广东省深圳市
[e]
.版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 网页信息, 文本型
.局部变量 提交地址, 文本型
.局部变量 源码, 文本型
源码 = 到文本 (HTTP读文件 (“http://software001.ys168.com”))
' 网页信息 = 文本_取出中间文本 (源码, #常量取网页信息1, #常量取网页信息2)
网页信息 = 取中间文本A (源码, #常量取网页信息1, #常量取网页信息2)
调试输出 (网页信息)
'
' 网页信息 = 文本_取出中间文本 (源码, #常量取网页信息1, #常量取网页信息2)
' 延迟 (500)
' 判断循环尾 ()
.子程序 取中间文本A, 文本型
.参数 源文本, 文本型
.参数 首字符, 文本型
.参数 尾字符, 文本型
.局部变量 SZ, 整数型, , "2"
SZ [1] = 寻找文本 (源文本, 首字符, , 假)
SZ [1] = SZ [1] + 取文本长度 (首字符)
SZ [2] = 寻找文本 (源文本, 尾字符, SZ [1], 假)
返回 (取文本中间 (源文本, SZ [1], SZ [2] - SZ [1]))
[/e] |
|