源码程序结合易语言正则表达式支持库,实现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.取表项数 ()) + “]首歌曲...”
易语言qq空间背景音乐