|
|
字符串转换成十六进制 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
-huitiansou '字符串转换成十六进制 Public Function StrToHex(ByVal strS As String) As String Dim abytS() As Byte Dim bytTemp As Byte Dim strTemp As String Dim lLocation As Long abytS = StrConv(strS, vbFromUnicode) For lLocation = 0 To UBound(abytS) bytTemp = abytS(lLocation) strTemp = Hex(bytTemp) strTemp = Right("00" & strTemp, 2) StrToHex = StrToHex & strTemp Next lLocation End Function
|
|
相关文章:相关软件: |
|