取文本问题 果子帮忙看下！

我有罪

上次看了果子的取文本的教程 里面是取http://  一直关键字  现在我想取 姓名 年龄 出生地址  3个关键字 除了把代码复制几次还有什么办法没！


[e].版本 2

.程序集 窗口程序集1

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

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

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

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

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

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

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

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

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

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

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

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

果子

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

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

果子

有教程还看不懂？

我有罪

哪里有哦
{:2_154:}

拉风小人妖

{:3_218:}看看