用VB写歌词搜索程序
我的图书馆
用VB写歌词搜索程序
用VB写歌词搜索程序
上网，听歌，再加上一杯香茗，真是悠哉游哉。听到兴致之时，自然想看歌词。音乐极限网站就提供了歌词搜索。我想，作为编程爱好者的我们，能不能在程序中实现歌词搜索呢？经过一番研究，发觉其实也很简单。
网，听歌，再加上一杯香茗，真是悠哉游哉。听到兴致之时，自然想看歌词。音乐极限网站就提供了歌词。我想，作为编程爱好者的我们，能不能在中实现歌词呢？经过一番研究，发觉其实也很简单。
　　首先看看音乐极限歌词是怎样进行的。比如张学友的《偷心》，我发觉音乐极限有一种歌词方式是这样的：只要在IE地址栏中键入心&singer_name=张学友 并回车，即可出歌词。也就是说在“张学友”处要输入的是歌手名，在“偷心”处要输入的是歌名，然后就能。我又试了其他歌手的歌曲，均可以。并且我查看源文件发觉歌词在网页中排放有固定规律。比如在显示歌词的网页上，均有固定的“歌词：”后面接歌词，而且在源文件中它们都被放在一个
之间。所以当我们获取了全部源文件，我们首先寻找“歌词：”，如果找不到，则服务器上没提供要的歌词；如果找到，则去掉它前面所有代码，然后再寻找“”，只要找到第一个“”，我们就把它以及它后面的代码全部清除，歌词就在剩下的代码中。我们知道，在网页中“&”和“&”是配对出现的。我仔细研究了剩下的代码，发觉在“&”和“&”之间要么是歌词，要么是空格。所以只要在剩下的代码中去除全部“&”和“&”之间的内容包括它们本身即可得到歌词。
　　又如何进行以获取源文件呢？当中有几个控件都可以做到。本使用inet控件。inet有两种方法可以向服务器请求获取指定的数据，分别是OpenURL和Execute。他们的不同点在于前者是同步的，后者是异步的。一般来说，使用OpenURL比较方便，因为它可以直接把获取的数据赋给某个变量。但是本只用Execute，因为使用OpenURL会出现一个很难解决的问题，至于什么问题，还是留着给读者您当练习吧。
　　现在开工。打开6，新建一个工程，在工具箱里添加inet控件。在窗体Form上画出三个文本框，分别命名为txt歌手、txt歌名和txt歌词，Text属性均为空，其中txt歌词的属性MultiLine为True，属性ScrollBars为2-Vertical。再添加一个按钮并命名为cmd，其属性Caption为；最后添加一个inet控件，名为inet1。
　　详细代码如下：
Option ExplicitPrivate Sub cmd_Click()　''向服务器请求下载歌词　Inet1.Execute "" & Trim(txt歌 名) & "&" & "singer_name=" & Trim(txt歌手), "get"End SubPrivate Sub inet1_StateChanged(ByVal State As Integer)　Dim 网页代码$　Dim 临时变量$　Dim 位置&　If State = 11 Then　　　MsgBox "出现错误！"　ElseIf State = 12 Then　　　Do ''开始接受数据　　　　　DoEvents　　　　　临时变量$ = Inet1.GetChunk(1024, icString)　　　　　If Len(临时变量$) = 0 Then Exit Do　　　　　网页代码$ = 网页代码$ & 临时变量$ ''接受到的所有数据存放在变量 “网页代码$”中　　　Loop　　　位置& = InStr(1, 网页代码$, "歌词：") ''首先寻找特征词“歌词：”　　　If 位置& = 0 Then　　　　　''如果没找到特征词“歌词：”就证明服务器上没提供要的歌词　　　　　MsgBox "未收录这首歌的歌词！"　　　　　Exit Sub　　　Else　　　　　''把歌词解析出来　　　　　''首先把“网页代码$”中“歌词：”前面的代码全部去掉　　　　　网页代码$ = Right(网页代码$, Len(网页代码$) - (位置& - 1))　　　　　''寻找第二个特征词“”　　　　　位置& = InStr(1, 网页代码$, "")
　　　　　''把特征词“”后面的代码（包括特征词自身）全部去掉　　　　　网页代码$ = Left(网页代码$, 位置& - 1)　　　　　''歌词就在剩下的代码中　　　　　Do　　　　　　　DoEvents　　　　　　　位置& = InStr(1, 网页代码$, "&")　　　　　　　If 位置& = 0 Then　　　　　　　　　''如果找不到字符“&”则证明整个寻找已结束　　　　　　　　　临时变量$ = 临时变量$ & " " & 网页代码$　　　　　　　　　Exit Do　　　　　　　Else　　　　　　　　　''找到字符“&”把它前面的代码截取保存　　　　　　　　　临时变量$ = 临时变量$ & " " & Left(网页代码$, 位置& - 1)　　　　　　　　　''然后从“网页代码$ ”中清除已被截取部分和字符“&”　　　　　　　　　网页代码$ = Right(网页代码$, Len(网页代码$) - 位置&)　　　　　　　　　''再寻找字符“&”　　　　　　　　　位置& = InStr(1, 网页代码$, "&")　　　　　　　　　''找到字符“&”把它前面代码包括它自身全部清除　　　　　　　　　网页代码$ = Right(网页代码$, Len(网页代码$) - 位置&)　　　　　　　End If　　　　　Loop　　　　　''“临时变量$”中存放着歌词，把它们全部赋给“txt歌词”　　　　　txt歌词 = 临时变量$　　　End If　 End IfEnd Sub
TA的推荐TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&
喜欢该文的人也喜欢相关文章推荐
手机中文实名
托盘，亦即程序最小化后程序图标隐藏到屏幕右下角的任务栏里。这种最小化方法比普通的最小化节约空间，因此备受欢迎，很多软件都具有这样的功能。在VB中，可用API函数来实现托盘功能，但比较复杂,不太好操作。...
用VB6.0实现将窗体最小化到系统托盘区 两个方法均测试部分有效或完全有效
1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False
2、菜单：工程--添加模块 按“...
程序实现：
上面的公式看似复杂，其实我们关心的就是最后的5个计算步骤，这里说明一下，有的书上以隶属度矩阵的某一范数小于一定值作为收敛的条件，这也可，不过计算量稍微要大一点了。
基础知识：Windows的消息驱动机制
子类化，对于各位高手来说easy到不得了了，不用我说，基本可以绕路了。但是对于一些新手来说确实很陌生的，基本上在网上也没有什么系统的资料。那么，我就趁...
我是马克华菲品牌服装的代理商，品牌公司要求代理商必须将每天的进销存数据录入其ERP系统（百胜服装ERP）,而其系统对代理商的内部管理来说，功能还不完善，且代理商有时并不希望所有真实的数据被其掌握。
转自：/blog/189513首先要添加引用（工程--引用）Microsoft VBScript Regular Expressions 5.5，然...
模糊聚类算法（FCM）和硬聚类算法（HCM)的VB6.0实现及其应用
http://blog.csdn.net/laviewpbt/article/details/1361548
用VB6.0中的某些控件时总是提示“该部件的许可证信息没有找到，在设计环境中，没有合适的许可证使用该功能”~！（主要是因为VB6.0精简版）
具体解决方法：
这里需要一个工具：vbcli.ex...
VB中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名，目录名或卷标名。dir函数的语法结构为:
Member Function Dir[(Pathname[,attr...
他的最新文章
他的热门文章
您举报文章：
举报原因：
原文地址：
原因补充：
(最多只允许输入30个字)VB程序代码_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB程序代码
阅读已结束，下载文档到电脑
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩2页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。}