百度音乐解析器


        Sub getUrl(ByVal str As String)
        Dim myRequest As HttpWebRequest = Nothing
        Dim myHttpResponse As HttpWebResponse = Nothing
        Dim doubanurl As String = "http://box.zhangmen.baidu.com/x?op=12&count=1&title="
        doubanurl = doubanurl + str + "$$$$$$"
        myRequest = WebRequest.Create(doubanurl)
        myHttpResponse = myRequest.GetResponse()
        Dim reader As StreamReader = New StreamReader(myHttpResponse.GetResponseStream())
        Dim xmldetail As String = reader.ReadToEnd()
        reader.Close()
        myHttpResponse.Close()
        '以下为歌曲搜索部分
        Dim all As String = xmldetail
        Label5.Text = "正在为您搜索,请稍后...."
        Dim countStart As Integer = InStr(all, "<count>") + Len("<count>")
        Dim countEnd As Integer = InStr(all, "</count>")
        count = Val(Mid(all, countStart, countEnd - countEnd + 1)) '获取返回歌曲结果的数目
        '开始音乐搜索
        Dim encodeStart As Integer
        Dim encodeEnd As Integer
        Dim decodeStart As Integer
        Dim decodeEnd As Integer
        Dim url1 As String
        Dim url2 As String
        encodeStart = 1 : encodeEnd = 1 : decodeStart = 1 : decodeEnd = 1
        Dim i As Integer = 0 '设置记录变量i,用于统计数据
        '反复读取寻找歌曲链接
        Do
            Dim s1 As Integer = encodeStart
            Dim e1 As Integer = encodeEnd
            Dim s2 As Integer = decodeStart
            Dim e2 As Integer = decodeEnd
            encodeStart = InStr(s1, all, "<encode><![CDATA[") + Len("<encode><![CDATA[")
            encodeEnd = InStr(e1 + Len("]]></encode>"), all, "]]></encode>")
            url1 = Mid(all, encodeStart, encodeEnd - encodeStart + 1)
            decodeStart = InStr(s2, all, "<decode><![CDATA[") + Len("<decode><![CDATA[")
            decodeEnd = InStr(e2 + Len("]]></decode>"), all, "]]></decode>")
            url2 = Mid(all, decodeStart, decodeEnd - decodeStart + 1)
            ListBox1.Items.Add(Trim(url1) & Trim(url2))
            i = i + 1
        Loop Until i > count - 1
        '音乐链接搜索结束   //这里的情况比较复杂,暂时搞不定
        'Dim lrcStart As Integer
        'Dim lrcEnd As Integer
        'Dim lrc1 As Integer
        'Dim lrc2 As Integer
        'lrcStart = 1 : lrcEnd = 1 : i = 0
        ''以下为歌词搜索部分(
        'Do
        '    Dim l1 As Integer = lrcStart
        '    Dim l2 As Integer = lrcEnd
        '    lrcStart = InStr(l1, all, "<lrcid>") + Len("<lrcid>")
        '    lrcEnd = InStr(l2 + Len("</lrcid>"), all, "</lrcid>")
        '    lrc1 = Val(Mid(all, lrcStart, lrcEnd - lrcStart + 1)) '转化为数字
        '    lrc2 = Int(lrc1 / 100)
        '    ListBox1.Items.Add("http://box.zhangmen.baidu.com/bdlrc/" & str(lrc2) & "/" & lrc1 & ".lrc")
        '    i = i + 1
        'Loop Until i > count - 1
        '歌词搜索部分()
        Label5.Text = "已为您找到" & count & "首相关音乐"
        End Sub 
 
       程序可以用xml处理,但是非法字符的问题没法解决,所以用了这样的方法。
       考虑过用C#来写,但是最后循环查找实在写不好,只能作罢了。
       一个编程菜鸟
       2012年12月29日
雪轻鸿 CSDN认证博客专家 .NET Python 伪·全栈攻城狮
谢谢你,在这世界的角落,找到我,一个即将进入而立之年的中年大叔,常年以 飞鸿踏雪 的花名混迹江湖。在现实生活中,我是一名 伪·全栈攻城狮,因为我觉得,什么都略懂一点,生活会更多彩一些。目前,主要关注.NET、.NET Core、Python、数据分析、微服务、Web 等技术方向。日常行为:读书、写作、电影、烹饪、洞箫等。喜欢看日剧/纪录片/科普、刷B站、刷LeetCode等。
已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 成长之路 设计师:Amelia_0503 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值