急！在线等！也关于数据转换

我现在需要将一个非标准的字符串转换成16进制数的表达格式，我用UltraEdit32中的工具可以得到如下字符串的16进制数的表达格式，在vb中应该怎么做？)髍订tt獲{?↘拻K?梴@玹t┒r??1?29F3 72B6 A974 74AB 407B 973D A84B 1392

解决方案 »

  1.   

    Hex 函数示例
    本示例使用 Hex 函数来得到某数值的 16 进制值。Dim MyHex
    MyHex = Hex(5)   ' 返回 5。
    MyHex = Hex(10)   ' 返回 A。
    MyHex = Hex(459)   ' 返回 1CB。
      

  2.   

    Hex函数只支持转换数字，不支持转换字符串的！！
      

  3.   

    Hex函数只支持转换数字，不支持转换字符串的，更何况是非标准的字符串！！
      

  4.   

    vb中的函数向来都是数字和字符串分开的，你可以使用一下Hex$ 函数，
    如：
      Dim MyHex1
      MyHex1 = Hex$("11")   ' 返回 B。
      MyHex1 = Hex$("28")   ' 返回 1C。
      

  5.   

    无论是hex还是hex$都要求转换的是Number，而很显然，任何一个函数怕都不会支持左括号(的转换吧，其实这个字符串就在上面“)髍订tt獲{?↘拻K?梴@玹t┒r??1?”，高手可以试着转换一下，如果转换成下面的“29F3 72B6 A974 74AB 407B 973D A84B 1392”就对了，但是UltraEdit32中的工具可以转并不代表VB中可以转，VB是否有着能力，现在我有点怀疑！
      

  6.   

    你可以将字符串中的字符一个个的取出来,然后用ASC()函数来得到这个字符的ASCII码值,然后根据这个值使用HEX$()函数来将这些值转换为字符串输出不就得了.