7165.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行
HTML
23 行
<html>
<head>
<title>Re: 怎样把字串"1010101" 转换成数值55Hex ??</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 怎样把字串"1010101" 转换成数值55Hex ??</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:callback@pcmail.com.tw">callback</a> on November 06, 1998 at 19:56:19:<p>
In Reply to: <a href="7164.html">怎样把字串"1010101" 转换成数值55Hex ??</a> posted by 杀手 on November 06, 1998 at 19:15:07:<p>
我曾写过一个 function,给你参考, 可直接拿来用<br>用法:<br>dim strA as string<p>'Text1内输入 8 bit的二进位字串<br>strA=gstrBin8ToHex2(text1.text)<br>_________________________________________<p>Public Function gstrBin8ToHex2(ByVal strBin8 As String) As String<br> Dim strHex2 As String * 2 '最后传回值<br> Dim strTemp As String * 4, strConv As String * 1<br> Dim bytI As Byte '回圈计数<br> <br> strHex2 = ""<br> For bytI = 0 To 1<br> strTemp = Mid(strBin8, 4 * bytI + 1, 4)<br> Select Case strTemp<br> Case "0000": strConv = "0"<br> Case "0001": strConv = "1"<br> Case "0010": strConv = "2"<br> Case "0011": strConv = "3"<br> Case "0100": strConv = "4"<br> Case "0101": strConv = "5"<br> Case "0110": strConv = "6"<br> Case "0111": strConv = "7"<br> Case "1000": strConv = "8"<br> Case "1001": strConv = "9"<br> Case "1010": strConv = "A"<br> Case "1011": strConv = "B"<br> Case "1100": strConv = "C"<br> Case "1101": strConv = "D"<br> Case "1110": strConv = "E"<br> Case "1111": strConv = "F"<br> Case Else<br> gstrBin8ToHex2 = "Input Error!"<br> GoTo gstrBin8ToHex2_end<br> End Select<br> strHex2 = strHex2 & strConv<br> Next bytI<br> gstrBin8ToHex2 = strHex2<br>gstrBin8ToHex2_end:<br>End Function<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7165-->
</ul><!--end: 7165-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?