开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 3107|回复: 14
收起左侧

[易源码分享] 小歪:取歌词软件

[复制链接]
发表于 2017-7-27 21:52:06 | 显示全部楼层 |阅读模式   山东省日照市
分享源码
界面截图:
是否带模块: 纯源码
备注说明: -

给大家带来的是一个取歌词的软件,想要什么歌的歌词就能搜索到什么歌的歌词,非常的方便。我强调的不是功能是一些小技巧,这个软件的实现原理就是取网络元素,非常的方便,我还录了一期视频加QQ:1454144616就能看。虽说功能的实现非常简单,但是很多对于很多对易语言感兴趣但是还不敢迈出那重要一步的同学们来说这个视频可能是对你们兴趣的一个提升吧,很多大神也不要说我,我不是来炫耀什么,我只是一个讲师,我希望能给更多的人提供帮助!


源码如下:
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
_按钮_select_被单击  
取歌词 (“http://www.lrcgc.com/so/?q=”编码_URL编码 (编辑框_Name.内容, 真, )“&csrf_token=4e6d8e5a66cdad3b”)
子程序名返回值类型公开备 注
取歌词  
参数名类 型参考可空数组备 注
address文本型
变量名类 型静态数组备 注
源文件文本型 
标志文本型 
歌词文本型 
歌词段文本型0
i整数型 
列表框1.清空 ()
源文件 = 网页_访问S (address, 0, , , , )
如果真 (寻找文本 (源文件, #address_left, , ) = -1)
信息框 (“没有标志文本!”, 0, , )
返回 ()
标志 = 文本_取出中间文本 (源文件, #address_left, #address_right, )
标志 = “http://www.lrcgc.com/lyric-” + 标志
源文件 = 网页_访问S (标志, 0, , , , )
歌词 = 文本_取出中间文本 (源文件, #geci_left, #geci_right, )
歌词段 = 分割文本 (歌词,
, )
如果真 (取数组成员数 (歌词段) = 0)
信息框 (“没有找到歌词段!”, 0, , )
返回 ()
计次循环首 (取数组成员数 (歌词段), i)
列表框1.加入项目 (歌词段 [i], )
计次循环尾 ()
子程序名返回值类型公开备 注
_按钮_Copy_被单击  
变量名类 型静态数组备 注
i整数型 
复制歌词文本型 
计次循环首 (列表框1.取项目数 (), i)
复制歌词 = 复制歌词 + 列表框1.取项目文本 (i - 1)
计次循环尾 ()
置剪辑板文本 (复制歌词)
常量名称常量值公 开备 注
address_left<文本长度: 16> 
address_right<文本长度: 18> 
geci_left<文本长度: 26> 
geci_right<文本长度: 4> 

取歌词.rar (150.71 KB, 下载次数: 82)

 楼主| 发表于 2019-6-6 20:19:23 | 显示全部楼层   北京市北京市
惊雷 发表于 2017-7-31 10:11
编译不了..........................

引用精易模块
回复 支持 反对

使用道具 举报

结帖率:95% (58/61)

签到天数: 7 天

发表于 2019-1-28 16:21:47 | 显示全部楼层   广东省佛山市
#在这里快 赞一个!收藏速回复#
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-5 11:34:20 高大上手机用户 | 显示全部楼层   山东省烟台市
惊雷 发表于 2017-7-31 10:11
编译不了..........................

添加精易模块
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-10-15 20:23:24 | 显示全部楼层   北京市北京市
惊雷 发表于 2017-7-31 10:11
编译不了..........................

附加一个精易模块就行了
回复 支持 反对

使用道具 举报

头像被屏蔽
结帖率:100% (5/5)
发表于 2017-10-7 18:45:46 | 显示全部楼层   陕西省商洛市
支持版主 下载看看
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2017-9-4 01:27:53 | 显示全部楼层   陕西省西安市
支持 支持 楼主666666666666
回复 支持 反对

使用道具 举报

发表于 2017-8-6 10:53:27 | 显示全部楼层   山东省青岛市
感谢分享,好好学习
回复 支持 反对

使用道具 举报

发表于 2017-7-31 20:50:11 | 显示全部楼层   吉林省长春市
支持   感谢分享!
回复 支持 反对

使用道具 举报

发表于 2017-7-31 10:11:18 | 显示全部楼层   山东省泰安市
本帖最后由 惊雷 于 2017-7-31 10:32 编辑

编译不了..........................
B~VXS07M`0L$QQEAQNLUWGI.png
B~VXS07M`0L$QQEAQNLUWGI.png
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表