Public Function Dec(Hex)
Dim i
Dim B
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": B = B + 16 ^ (i - 1) * 0
Case "1": B = B + 16 ^ (i - 1) * 1
Case "2": B = B + 16 ^ (i - 1) * 2
Case "3": B = B + 16 ^ (i - 1) * 3
Case "4": B = B + 16 ^ (i - 1) * 4
Case "5": B = B + 16 ^ (i - 1) * 5
Case "6": B = B + 16 ^ (i - 1) * 6
Case "7": B = B + 16 ^ (i - 1) * 7
Case "8": B = B + 16 ^ (i - 1) * 8
Case "9": B = B + 16 ^ (i - 1) * 9
Case "A": B = B + 16 ^ (i - 1) * 10
Case "B": B = B + 16 ^ (i - 1) * 11
Case "C": B = B + 16 ^ (i - 1) * 12
Case "D": B = B + 16 ^ (i - 1) * 13
Case "E": B = B + 16 ^ (i - 1) * 14
Case "F": B = B + 16 ^ (i - 1) * 15
End Select
Next
Dec = B
End Functioncid="388EB545E0D78A33D8428A5CC2811A78E94114B7"   '该CID只是电影宝贝计划的CID,其他电影查看其URL
iParentDir = Dec(left(cid,2))
iChildDir = Dec(mid(cid,3,2))
Url="http://wstatic.xunlei.com/resource_data/"&iParentDir&"/"&iChildDir&"/"&cid&".htm"

解决方案 »

  1.   

    16进制转10进制,还用翻译吗?int dec = Convert.ToInt32(hex, 16);如果要字符串
    string dec = Convert.ToInt32(hex, 16).ToString();
      

  2.   

    似乎很明白了string cid = "388EB545E0D78A33D8428A5CC2811A78E94114B7";
    int iParentDir = Convert.ToInt32(cid.Substring(0,2), 16);
    int iChildDir = Convert.ToInt32(cid.Substring(2,2), 16);
    Url = string.Format("http://wstatic.xunlei.com/resource_data/{0}/{1}/{2}.htm", iParentDir, iChildDir, cid);