文本操作-取论坛所有版块名

吾爱编程 · 发表于 2011-2-8 20:31:36

[e].版本 2

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量找到位置, 整数型
.局部变量尾部位置, 整数型
.局部变量版块名, 文本型, , "0"
.局部变量中间文本, 文本型
.局部变量计次, 整数型

' 
' <h3>友情链接</h3>
找到位置＝寻找文本 (编辑框_网页源码.内容, “”, , 假)
尾部位置＝倒找文本 (编辑框_网页源码.内容, “<h3>友情链接</h3>”, , 假)
中间文本＝取文本中间 (编辑框_网页源码.内容, 找到位置, 尾部位置－找到位置)
' 调试输出 (中间文本)
子程序_取所有版块名 (中间文本, 版块名)
.计次循环首 (取数组成员数 (版块名), 计次)
列表框1.加入项目 (版块名 [计次], )
.计次循环尾 ()

.子程序子程序_取所有版块名
.参数传入文本, 文本型
.参数所有版块, 文本型, 参考数组
.局部变量找到首位置, 整数型
.局部变量找到尾位置, 整数型
.局部变量版块名, 文本型

.循环判断首 ()
找到首位置＝寻找文本 (传入文本, “<h2>”, 找到首位置＋ 1, 假)
找到尾位置＝寻找文本 (传入文本, “</a>”, 找到首位置＋ 1, 假)
版块名＝取文本中间 (传入文本, 找到首位置, 找到尾位置－找到首位置)
.如果真 (版块名＝ “”)
到循环尾 ()
.如果真结束
加入成员 (所有版块, 取文本右边 (版块名, 取文本长度 (版块名) －倒找文本 (版块名, “>”, , 假)))
.循环判断尾 (找到首位置＞ 0)

.子程序 __启动窗口_创建完毕

编辑框_网页源码.内容＝到文本 (读入文本 (打开文件 (取运行目录 () ＋ “\新建文本文档.txt”, , ), ))[/e]

方丈薛 · 发表于 2011-2-8 20:56:06

代码写的很棒

死亡 · 发表于 2011-2-8 20:56:47

哇谢谢了太感谢·1

yao84 · 发表于 2011-2-8 21:48:02

学习了~~~~~~~~~~~~~

shangju · 发表于 2011-2-8 21:51:30

楼主太厉害了！佩服

是沉默的火 · 发表于 2011-11-20 16:05:19

谢谢提供，继续努力！

596375291 · 发表于 2011-11-21 18:45:04

汗完全看不到11111111

xbd1759 · 发表于 2011-11-21 23:46:40

貌似都有了看看一不一养的

qaz5080 · 发表于 2012-3-8 23:41:32

哇谢谢了太感谢

一只羊 · 发表于 2012-3-23 10:18:23

下来来看看吧呵呵

		自动登录	找回密码
密码			注册

[易源码分享] 文本操作-取论坛所有版块名

评分