📄 16200.html
字号:
<html>
<head>
<title>Re: 怎样用VB指令以内码显示符号呢？－－想自制一个内码对照程式</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 怎样用VB指令以内码显示符号呢？－－想自制一个内码对照程式</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:cthelios@ms21.hinet.net">C.T.Wang</a> on July 26, 1999 at 17:47:57:<p>
In Reply to: <a href="16190.html">怎样用VB指令以内码显示符号呢？－－想自制一个内码对照程式</a> posted by Thomasaria on July 26, 1999 at 14:14:33:<p>
: 之前曾贴过一次，但旋即淹没，没人帮忙，只好再贴一次啦<p> 1. 找到一个Hex Dump的函式, 可能不合你的用途, But I think you can get the idea.<p>Public Function HexOut(ByVal pvStr, ByVal piLineLen As Integer) As String<br> 'USAGE: strOutPut = HexOut(strIn, 10)<br> 'pvStr: Input string to be converted<br> 'piLineLen: How many char to output(in Hex) in one line<br> 'Author: C.T.Wang<br> On Error GoTo ErrorHandler<br> <br> HexOut = ""<br> <br> Dim bStr() As Byte<br> Dim sText As String<br> Dim sOut As String<br> Dim i%, j%<br> <br> If piLineLen <= 3 Then<br> piLineLen = 3<br> End If<br> sText = StrConv(pvStr, vbFromUnicode)<br> bStr = sText<br> For i% = 0 To UBound(bStr)<br> If j% = piLineLen Then<br> j% = 0<br> sOut = sOut & vbCrLf<br> End If<br> If j% = 0 Then<br> sOut = sOut & "."<br> End If<br> sOut = sOut & Hex(bStr(i%)) & " "<br> j% = j% + 1<br> Next i%<br> <br> HexOut = sOut<br> Exit Function<p>ErrorHandler:<br> 'Call ErrorSave"HexOut")<br> Exit Function<br>End Function<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16200-->
<!--top: 16255--><li><a href="16255.html">Re: 怎样用VB指令以内码显示符号呢？－－想自制一个内码对照程式</a> <b>Thomasaria</b> <i>16:20:27 7/27/99</i>
(<!--responses: 16255-->0)
<ul><!--insert: 16255-->
</ul><!--end: 16255-->
</ul><!--end: 16200-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -