帮我看看E语言组件复制问题

lgf84453549

为什么我复制的组件  的标题的网页上的源码指定内容
增加到复制的组件上为什么，所以复制的组件标题都是一样的...........谁帮我我发源码帮我修改   
谢谢
[e]
.版本 2
.支持库 RegEx
.支持库 internet
.程序集 窗口程序集1
.程序集变量 正则, 正则表达式
.程序集变量 结果, 搜索结果, , "0"
.子程序 __启动窗口_创建完毕
' _启动窗口.高度 ＝ 150  ' 这里是设置窗口的高度
编辑框1.内容 ＝ 编辑框1.标记

.子程序 复制组件
.局部变量 复制标签, 标签
.局部变量 LL, 整数型
正则.创建 (“>” ＋ “([^<]+)” ＋ “</h3><div”, 假)
正则.多行模式 ＝ 真
结果 ＝ 正则.搜索全部 (网页源码)
x ＝ 取数组成员数 (结果)
.变量循环首 (2, x ＋ 1, 1, LL)
    复制窗口组件 (标签l, 复制标签)
    .计次循环首 (x, i)
        编辑框2.加入文本 (结果 .取子匹配文本 (网页源码, 1, ), 到文本 (#换行符))
        复制标签.标题 ＝ 结果 .取子匹配文本 (网页源码, 1, )
    .计次循环尾 ()
    复制标签.移动 (((LL － 1) ％ 6) × 55 ＋ 标签l.左边, ((LL － 1) ＼ 6) × 55 ＋ 标签l.顶边, , )
    复制标签.可视 ＝ 真
    复制标签.标记 ＝ 到文本 (LL)
.变量循环尾 ()

.子程序 标签还原
.局部变量 LL, 整数型
.局部变量 标记标签, 标签
.计次循环首 (x ＋ 1, LL)
    标记标签 ＝ 取标记组件 (LL)
    标记标签.边框 ＝ 2
.计次循环尾 ()
.子程序 _标签l_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 事件标签, 标签
标签还原 ()
事件标签 ＝ 取事件组件 ()
事件标签.边框 ＝ 1
.如果真 (取代码 (编辑框1.内容, 1) ＜ 0)
    编辑框1.内容 ＝ “”
.如果真结束
编辑框1.加入文本 (事件标签.标题, “,”)
.子程序 _按钮1_被单击
.局部变量 ll, 整数型
网页源码 ＝ 到文本 (HTTP读文件 (“http://movie.tudou.com/albumtop/c22t4a-1y-1h-1s0p1.html”))
编辑框1.内容 ＝ 网页源码
.如果 (按钮1.标题 ＝ “复制组件”)
    _启动窗口.高度 ＝ 560
    按钮1.标题 ＝ “清除组件”
    信息框 (“开始复制”, 64, “复制组件”)
    复制组件 ()
    信息框 (“复制完毕”, 64, “复制组件”)
.否则
    按钮1.标题 ＝ “复制组件”
    编辑框1.内容 ＝ 编辑框1.标记
    .计次循环首 (x, ll)
        标记标签 ＝ 取标记组件 (ll ＋ 1)
        标记标签.销毁 ()
    .计次循环尾 ()
.如果结束

.子程序 _按钮2_被单击
.局部变量 事件按钮, 按钮
事件按钮 ＝ 取事件组件 ()
编辑框1.内容 ＝ 事件按钮.标记
标签还原 ()
.子程序 _按钮11_被单击

[/e][ 11.zip (2.45 KB, 下载次数: 20)

2012-3-29 23:49 上传

点击文件名下载附件

zhangge

[e].版本 2
.支持库 RegEx

.计次循环首 (x, LL)
    复制窗口组件 (标签l, 复制标签)
    编辑框2.加入文本 (结果 [LL].取子匹配文本 (网页源码, 1, ), 到文本 (#换行符))
    复制标签.标题 ＝ 结果 [LL].取子匹配文本 (网页源码, 1, )
    复制标签.移动 (((LL － 1) ％ 6) × 55 ＋ 标签l.左边, ((LL － 1) ＼ 6) × 55 ＋ 标签l.顶边, , )
    复制标签.可视 ＝ 真
    复制标签.标记 ＝ 到文本 (LL)
.计次循环尾 ()
[/e]

你里面的哪个循环是要做什么用的啊...
帮你改好了...

zhangge

最后补上一句:[e].版本 2

标签l.可视 ＝ 假
[/e]

[小熊]

asdffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff

大家好呵呵

  bu   看看啊

向往

应该已经解决了吧，解决了就改状态吧