搜索QQ空间背景音乐易语言源码

源码程序结合易语言正则表达式支持库，实现QQ空间背景音乐的搜索。

@易语言资源网

.版本 2
.支持库 RegEx
.支持库 spec
.支持库 iext

.子程序 搜索背景音乐
.参数 QQuser, 文本型
.局部变量 局部_内容, 文本型
.局部变量 局部_正则, 正则表达式
.局部变量 局部_搜索结果, 搜索结果, , "0"
.局部变量 局部_计次, 整数型
.局部变量 局部_表项, 整数型

局部_内容 ＝ 到文本 (对象_HTTP读文件 (“GET”, “http://qzone-music.qq.com/fcg-bin/cgi_playlist_xml.fcg?json=1&uin=” ＋ QQuser))
调试输出 (局部_内容)
局部_正则.创建 (#常量_搜索音乐, )
局部_搜索结果 ＝ 局部_正则.搜索全部 (局部_内容)
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (局部_搜索结果), 局部_计次)
    调试输出 (局部_搜索结果 [局部_计次].取子匹配文本 (局部_内容, 3, ))
    局部_表项 ＝ 超级列表框1.插入表项 (, 到文本 (局部_计次), , , , )
    超级列表框1.置标题 (局部_表项, 1, 局部_搜索结果 [局部_计次].取子匹配文本 (局部_内容, 1, ))
    超级列表框1.置标题 (局部_表项, 2, 局部_搜索结果 [局部_计次].取子匹配文本 (局部_内容, 3, ))
.计次循环尾 ()
标签_状态.标题 ＝ “一共搜索到 [” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “]首歌曲...”