取中间文本第一次总是取空？

小生怕怕啊

biao197 发表于 2013-5-20 21:00
* “”
* “http://c5.ys168.com/Ccenter.aspx?z=mupoprkls11e11a10b11f11i9g11d10allksskmltnlnlt56”
...

.版本 2
.支持库 internet
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 网页信息, 文本型
.局部变量 提交地址, 文本型
.局部变量 源码, 文本型

源码 ＝ 到文本 (HTTP读文件 (“http://software001.ys168.com”))
.判断循环首 (网页信息 ＝ “”)
     网页信息 ＝ 取中间文本A (源码, #常量取网页信息1, #常量取网页信息2)
.判断循环尾 ()
调试输出 (网页信息)

.子程序 取中间文本A, 文本型
.参数 源文本, 文本型
.参数 首字符, 文本型
.参数 尾字符, 文本型
.局部变量 SZ, 整数型, , "2"

SZ [1] ＝ 寻找文本 (源文本, 首字符, , 假)
SZ [1] ＝ SZ [1] ＋ 取文本长度 (首字符)
SZ [2] ＝ 寻找文本 (源文本, 尾字符, SZ [1], 假)
返回 (取文本中间 (源文本, SZ [1], SZ [2] － SZ [1]))

小生怕怕啊

[e]
.版本 2
.支持库 internet
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 网页信息, 文本型
.局部变量 提交地址, 文本型
.局部变量 源码, 文本型

源码 ＝ 到文本 (HTTP读文件 (“http://software001.ys168.com”))
.判断循环首 (网页信息 ＝ “”)
     网页信息 ＝ 取中间文本A (源码, #常量取网页信息1, #常量取网页信息2)
.判断循环尾 ()
调试输出 (网页信息)

.子程序 取中间文本A, 文本型
.参数 源文本, 文本型
.参数 首字符, 文本型
.参数 尾字符, 文本型
.局部变量 SZ, 整数型, , "2"

SZ [1] ＝ 寻找文本 (源文本, 首字符, , 假)
SZ [1] ＝ SZ [1] ＋ 取文本长度 (首字符)
SZ [2] ＝ 寻找文本 (源文本, 尾字符, SZ [1], 假)
返回 (取文本中间 (源文本, SZ [1], SZ [2] － SZ [1]))
[/e]

小生怕怕啊

抱歉,上面的发错了!

[e]
.版本 2
.支持库 internet
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 网页信息, 文本型
.局部变量 提交地址, 文本型
.局部变量 源码, 文本型

.判断循环首 (网页信息 ＝ “”)
  源码 ＝ 到文本 (HTTP读文件 (“http://software001.ys168.com”))
  网页信息 ＝ 取中间文本A (源码, #常量取网页信息1, #常量取网页信息2)
.判断循环尾 ()
调试输出 (网页信息)

.子程序 取中间文本A, 文本型
.参数 源文本, 文本型
.参数 首字符, 文本型
.参数 尾字符, 文本型
.局部变量 SZ, 整数型, , "2"

SZ [1] ＝ 寻找文本 (源文本, 首字符, , 假)
SZ [1] ＝ SZ [1] ＋ 取文本长度 (首字符)
SZ [2] ＝ 寻找文本 (源文本, 尾字符, SZ [1], 假)
返回 (取文本中间 (源文本, SZ [1], SZ [2] － SZ [1]))
[/e]

abc16

把第一句改为：源码 ＝ 到文本 (网页_访问 (“http://software001.ys168.com”))

biao197

三个傻瓜 发表于 2013-5-21 13:11
[e]
.版本 2
.支持库 internet

谢谢了，达到效果了

abc16

abc16 发表于 2013-5-20 23:38
把第一句改为：源码 ＝ 到文本 (网页_访问 (“http://software001.ys168.com”))

嘿嘿