📄 qach04.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>如何求取某一个中文字的两个字元码?</TITLE>
<META NAME="Author" CONTENT="KJ Wang">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000EE" VLINK="#808080" ALINK="#FF0000">
<P>中文问题之 Q&A (4) - </P>
<H2 ALIGN=CENTER>如何求取某一个中文字的两个字元码?
<HR WIDTH="100%"></H2>
<TABLE>
<TR>
<TD ALIGN=CENTER VALIGN=TOP><IMG SRC="Q.gif" HEIGHT=29 WIDTH=21 ALIGN=CENTER></TD>
<TD VALIGN=TOP WIDTH="35"></TD>
<TD VALIGN=TOP>我利用以下方法将 "王" 字分成两个字元 ， 但组合回来却不等於
"王" 字 ?
<UL>
<ADDRESS>Dim c1 As String, c2 As String</ADDRESS>
<ADDRESS>Dim b1 As Byte, b2 As Byte</ADDRESS>
<ADDRESS>c1 = MidB( "王", 1) <FONT COLOR="#008000">' 取 "王"
字的第一个字元</FONT></ADDRESS>
<ADDRESS>c2 = MidB( "王", 2) <FONT COLOR="#008000">' 取 "王"
字的第二个字元</FONT></ADDRESS>
<ADDRESS>b1 = ChrB( c1 ) <FONT COLOR="#008000">' "王" 字的第一个字元码</FONT></ADDRESS>
<ADDRESS>b2 = ChrB( c2 ) <FONT COLOR="#008000">' "王" 字的第二个字元码
</FONT></ADDRESS>
<ADDRESS>S = Chr ( CLng(b1) * 256 + b2) <FONT COLOR="#FF0000">' 不等於
"王"，何故？ </FONT></ADDRESS>
</UL>
<P>
<HR WIDTH="100%"></P>
</TD>
</TR>
<TR>
<TD VALIGN=TOP><IMG SRC="A.gif" HEIGHT=22 WIDTH=24></TD>
<TD VALIGN=TOP></TD>
<TD VALIGN=TOP>问题出在「MidB( "王", 1)」及「MidB( "王",
2)」 ， 由於对 32 bits 的 Windows 而言 ， "王" 是不可分割的字元组，所以：
<UL>
<P><FONT COLOR="#800000">MidB( "王", 1) 并不等於 "王"
字的第一个字元</FONT></P>
<P><FONT COLOR="#800000">MidB( "王", 2) 也不等於 "王"
字的第二个字元</FONT></P>
</UL>
<P>欲求取某一个中文字的两个字元码 ， 请呼叫以下副程式：</P>
<UL>
<PRE><FONT SIZE=+1><FONT COLOR="#800000">Sub SplitCword(ByVal S As String, b1 As Byte, b2 As Byte)
Dim WordValue As Long
WordValue = Asc(S) </FONT><FONT COLOR="#FF0000">+ 65536 </FONT><FONT COLOR="#008000">' 将中文字元码表示成正数
</FONT><FONT COLOR="#800000"> b1 = WordValue \ 256
b2 = WordValue Mod 256
End Sub</FONT></FONT></PRE>
</UL>
<P>呼叫的例子如下：</P>
<UL>
<P>Dim b1 As Byte, b2 As Byte<BR>
call SplitCword("王", b1, b2)</P>
</UL>
<P>则呼叫之後, b1 即等於 "王" 的第一个字元码 ， b2 即等於 "王"
的第二个字元码 。</P>
<P>SplitCword 副程式中值得注意的是：</P>
<UL>
<P><FONT COLOR="#800000">Asc(中文字) + 65536</FONT></P>
<P><FONT COLOR="#800000">= 中文字的字元码</FONT></P>
<P><FONT COLOR="#800000">= 中文的第一个 Byte×256 + 中文的第 二个 Byte</FONT></P>
</UL>
</TD>
</TR>
</TABLE>
<CENTER><P>
<HR WIDTH="100%"> <FORM><INPUT type=button value= "上一页" Onclick="history.back();"> <INPUT type=button value="kj首页" onclick=" parent.location='http://www.kj.com.tw'"></FORM></P></CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -