MusicGet 类(11)


         GetPyChar="0-9"
        end if
    end function

    '*****************************************************************
    '    function(公有)
    '    作用 :循环取得字符串的拼音
    '*****************************************************************
    Public Function GetPy(byref Str)
        for i=1 to len(Str)
            GetPy=GetPy&GetPyChar(mid(Str,i,1))
        next
    end function 

    '*****************************************************************
    '    function(公有)
    '    作用 :取得歌曲歌词
    '*****************************************************************
    Public Function LrcMusicGc(MusicName,singer)
            musicGc=Getdata("http://mp3.baidu.com/m?tn=baidump3lyric&ct=150994944&word="&musicname&"%20"&singer,1)
            if instr(musicgc,"建议您检查输入文字有无错误") then 
                MusicGc= "暂无"
            else
                musicGc=FormatHtml(musicgc,0)
                musicGc=GetContent(musicgc,"专辑:<a href="http://mp3.baidu.com/m?tn=baidump3&ct=134217728&lm=-1&word=","<p align=right>",0)
                musicgc=Replace(musicgc,"<","<")
                musicgc=Replace(musicgc,">",">")
                musicgc=Replace(musicgc," "," ")
                musicgc=Replace(musicgc,"<font style=color:#e10900>","")
                musicgc=Replace(musicgc,"</font>","")
                musicgc=GetContent(musicgc,"<p>","</p>",0)

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3032.html