我要取出里面的特点文本保存到列表框

静哥 · 发表于 2010-8-31 13:01:29

本帖最后由静静于 2010-8-31 13:07 编辑

<mms Tit="CCTV-书画" Url="mms://media.catv.net/shtv" />
<mms Tit="CCTV-1" Url="mms://61.175.162.94/cctv1" />
在编辑框里面是以上的内容要把 CCTV-书画和 mms://media.catv.net/shtv 取出来到列表框
最好是列表框1 里面就只有名称列表框2 里面就地址
能行吗

29499531 · 发表于 2010-8-31 13:01:30

.版本 2

.程序集窗口程序集1
.程序集变量结束字符, 文本型
.程序集变量起始位置, 整数型
.程序集变量结束位置, 整数型

.子程序 _按钮1_被单击

结束字符＝ #引号
起始位置＝寻找文本 (编辑框1.内容, “<mms Tit=” ＋ #引号, 结束位置, 假)
.判断循环首 (起始位置 ≥ 0)
读一行 ()
.判断循环尾 ()

.子程序读一行

起始位置＝寻找文本 (编辑框1.内容, “<mms Tit=” ＋ #引号, 结束位置, 假) ＋ 10
结束位置＝寻找文本 (编辑框1.内容, 结束字符, 起始位置, 假)
列表框1.插入项目 (0, 取文本中间 (编辑框1.内容, 起始位置, 结束位置－起始位置), )
起始位置＝寻找文本 (编辑框1.内容, “Url=” ＋ #引号, 结束位置, 假) ＋ 5
结束位置＝寻找文本 (编辑框1.内容, 结束字符, 起始位置, 假)
列表框2.插入项目 (0, 取文本中间 (编辑框1.内容, 起始位置, 结束位置－起始位置), )

起始位置＝寻找文本 (编辑框1.内容, “<mms Tit=” ＋ #引号, 结束位置, 假) ' 判断依据

微凉 · 发表于 2010-8-31 13:33:59

文本_取中间
文本_取左边
文本_取右边
自己琢磨琢磨{:3_220:}

冷情 · 发表于 2010-8-31 14:04:59

你那个是不是XML 啊

静哥 · 发表于 2010-8-31 18:19:12

回复 3# 风吹小屁屁

系啊

冷情 · 发表于 2010-8-31 18:59:06

回复 4# 静静

xbzx · 发表于 2010-8-31 23:44:32

取特定文本.rar (1.86 KB, 下载次数: 12)

wqejnyt · 发表于 2010-9-1 00:36:01

本帖最后由 wqejnyt 于 2010-9-1 00:37 编辑

[e].版本 2
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击
.局部变量 a, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ii, 整数型
列表框1.清空 ()
a ＝分割文本 (编辑框1.内容, #引号, )
.如果真 (信息框 (“是否取出观看地址？是=取出观看地址，否=取出电视台名称！”, #询问图标＋ #是否钮, “询问：”) ＝ #是钮)
.计次循环首 (取数组成员数 (a), i)
      .如果真 (取文本左边 (a , 4) ＝ “mms:”)
         列表框1.加入项目 (a , )
      .如果真结束
.计次循环尾 ()
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (a), ii)
.如果真 (取文本左边 (a [ii], 4) ＝ “CCTV”)
      列表框1.加入项目 (a [ii], )
.如果真结束
.计次循环尾 ()
[/e]

白河小鸟 · 发表于 2010-9-1 09:01:17

用精易模块，取中间文本，能批量取的{:3_213:}

htmasc · 发表于 2010-12-12 02:50:27

哇，又学了一招

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

[已解决] 我要取出里面的特点文本保存到列表框

最佳答案