精易论坛

标题: 取文本问题果子帮忙看下！ [打印本页]

作者: 我有罪 时间: 2010-1-18 10:58
标题: 取文本问题果子帮忙看下！
上次看了果子的取文本的教程里面是取http:// 一直关键字现在我想取姓名年龄出生地址 3个关键字除了把代码复制几次还有什么办法没！

[e].版本 2

.程序集窗口程序集1

.子程序 _按钮_提取_被单击
.局部变量链接数量, 整数型
.局部变量局部_前面关键字, 文本型
.局部变量局部_后面关键字, 文本型
.局部变量局部_前面的位置, 整数型
.局部变量局部_后面的位置, 整数型
.局部变量局部_字符长度, 整数型
.局部变量局部_结果文本, 文本型
.局部变量局部_计次, 整数型
.局部变量局部_开始位置, 整数型
.局部变量局部_执行时间, 整数型

局部_执行时间＝取启动时间 ()

局部_前面关键字＝ “http://”
局部_后面关键字＝ #引号
链接数量＝取文本出现次数 (编辑框_目标文本.内容, 局部_前面关键字)
局部_开始位置＝ 1
.计次循环首 (链接数量, 局部_计次)
局部_前面的位置＝寻找文本 (编辑框_目标文本.内容, 局部_前面关键字, 局部_开始位置, 假)

局部_后面的位置＝寻找文本 (编辑框_目标文本.内容, 局部_后面关键字, 局部_前面的位置＋取文本长度 (局部_前面关键字), 假)

局部_字符长度＝局部_后面的位置－局部_前面的位置

局部_结果文本＝取文本中间 (编辑框_目标文本.内容, 局部_前面的位置, 局部_字符长度)

编辑框_结果.加入文本 (局部_结果文本＋ #换行符)

局部_开始位置＝局部_后面的位置＋取文本长度 (局部_后面关键字)
.计次循环尾 ()

输出调试文本 (取启动时间 () －局部_执行时间)

.子程序取文本出现次数, 整数型
.参数原文本, 文本型
.参数关键字, 文本型
.局部变量临时变量, 整数型
.局部变量出现次数, 整数型

临时变量＝寻找文本 (原文本, 关键字, , 假)
.如果真 (临时变量＝ -1)
返回 (0)
.如果真结束
出现次数＝出现次数＋ 1
.判断循环首 (临时变量 ≠ -1)
临时变量＝寻找文本 (原文本, 关键字, 临时变量＋取文本长度 (关键字), 假)
.如果真 (临时变量 ≠ -1)
出现次数＝出现次数＋ 1
.如果真结束

.判断循环尾 ()
返回 (出现次数)[/e]

作者: 果子 时间: 2010-1-18 10:58
http://www.3600gz.cn/viewthrea ... 26amp%3Btypeid%3D90

http://www.3600gz.cn/viewthrea ... 26amp%3Btypeid%3D90

作者: 果子 时间: 2010-1-18 11:49
有教程还看不懂？

作者: 我有罪 时间: 2010-1-18 12:23
哪里有哦
{:2_154:}

作者: 拉风小人妖 时间: 2011-4-5 00:11
{:3_218:}看看

欢迎光临精易论坛 (https://125.confly.eu.org/)