MusicGet 类(8)


            GetContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start)))
            end select
        Else
            GetContent=""
        End if
    End function

    '*****************************************************************
    '    function(公有)
    '    作用 :取得字符的拼音
    '*****************************************************************
    Public Function GetPyChar(byref Char)
        tmp=65536+asc(Char)
        if(tmp>=45217 and tmp<=45252) or (tmp=65601) or (tmp=65633) or (tmp=37083) then
         GetPyChar= "A"
        elseif(tmp>=45253 and tmp<=45760) or (tmp=65602) or (tmp=65634) or (tmp=39658) then
         GetPyChar= "B"
        elseif(tmp>=45761 and tmp<=46317) or (tmp=65603) or (tmp=65635) or (tmp=33405) then
         GetPyChar= "C"
        elseif(tmp>=46318 and tmp<=46930) or (tmp>=61884 and tmp<=61884) or (tmp=65604) or (tmp>=36820 and tmp<=38524) or (tmp=65636) then
         GetPyChar= "D"
        elseif(tmp>=46931 and tmp<=47009) or (tmp=65605) or (tmp=65637) or (tmp=61513) then
         GetPyChar= "E"
        elseif(tmp>=47010 and tmp<=47296) or (tmp=65606) or (tmp=65638) or (tmp=61320) or (tmp=63568) or (tmp=36281) then
         GetPyChar= "F"
        elseif(tmp>=47297 and tmp<=47613) or (tmp=65607) or (tmp=65639) or (tmp=35949) or (tmp=36089) or (tmp=36694) or (tmp=34808) then
         GetPyChar= "G"
        elseif(tmp>=47614 and tmp<=48118) or (tmp>=59112 and tmp<=59112) or (tmp=65608) or (tmp=65640) then

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

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