[讨论]查找[一-龥]的问题

c81

好象可以在ASCII码中找找的.

http://www.wesoho.com/showlog.asp?log_id=1337&cat_id=28

http://pop.pcpop.com/p051125/0000222886.html

以下是第一个链接上的内容：

<SCRIPT LANGUAGE="javascript">
<!-- Begin
function showKeyCode()
{
var character = document.characterCode.character.value.substring(0,1);
var code = document.characterCode.character.value.charCodeAt(0);
var msg = "字符  \""+character+"\" 对应的ASCII码值为 "+code+".";
alert(msg);
}
//  End -->
</script>
<form name="characterCode">
  <center>输入一个待查字符:
  <input type="text" name="character" size="15">
  <input type="button" value="显示该键值" onClick="showKeyCode();">

把这段代码复制，然后复制到记事本中，保存,假设保存文件名为1.txt,然后将记事本文件改名为1.htm,这样，打开以后就可以查询了

JCgIH7Wy.rar (428 Bytes, 下载次数: 9)

2006-12-19 12:31 上传

点击文件名下载附件

[此贴子已经被作者于2006-12-19 12:31:35编辑过]

poetbox

QUOTE:

以下是引用守柔在2006-12-19 11:56:25的发言：

谢谢poetbox！

能分享一下你的方法吗？

说明：是ALT+40869（数字小键盘），同样适用于查找对话框中。

:)

呵呵，您老人家太客气了。其实是插入符号中所写的9FA5，楼上已提到，您也看到了。

在纯DOS下，一个汉字两个码位，是9f算半个，A5算右半个。是alt-159,alt-165.

在WORd中将9FA5整体以16H直接换算为40869，加上ALT输入。是由DOS下的输入方法推理出来的，相信其他汉字同样有用。

poetbox

晕原来在第二位C81回复了，虽然不是纯手工计算，但其原理也完全可以借鉴入VBA代码中。

至于汉字内码的得来，完全可以直接在网页地址上一敲即出，不必借助任何辅助工具。

我其实在WORD的插入符号中直接查看到的，也不一定非要专门打开浏览器。

守柔

QUOTE:

以下是引用poetbox在2006-12-19 12:34:51的发言：

:)

呵呵，您老人家太客气了。其实是插入符号中所写的9FA5，楼上已提到，您也看到了。

在纯DOS下，一个汉字两个码位，是9f算半个，A5算右半个。是alt-159,alt-165.

在WORd中将9FA5整体以16H直接换算为40869，加上ALT输入。是由DOS下的输入方法推理出来的，相信其他汉字同样有用。

呵呵，我要的是你的推算方法，以下是WORD VBA中我的测试：

?vba.asc("龥")
-613
?vba.ascw("龥")
-24667
?vba.ascb("龥")
 165
?&H9FA5
-24667
所以，我才特地加分啊！呵呵

[此贴子已经被作者于2006-12-20 1:02:19编辑过]

konggs

根据老大的提示及poetbox兄的提示：

我写出如下的代码，测得所选文字的Ascii码。请大家测试：

Sub 汉字转为Ascii码()
'测得所选文字的ASCII码，并放到文档的最后
    On Error Resume Next
   
    Dim a As Long
    Dim astring As String
    Dim intCon%
    Dim bstring As String
   
    astring = Selection.Text '选中文字
    For a = 1 To Len(astring)
        intCon = VBA.AscW((Mid(astring, a, 1))) '在每个字中循环
        If intCon < 0 Then '如果小于0,则用65536来减
           bstring = bstring & Mid(astring, a, 1) & vbTab & intCon + 65536 & vbCrLf
        Else '如果大于0,则取AscW所取得的值
           bstring = bstring & Mid(astring, a, 1) & vbTab & intCon & vbCrLf
        End If
    Next
    '写到文档的最后，另存一段
   ActiveDocument.Content.InsertAfter Chr(13) & bstring
End Sub

[此贴子已经被作者于2006-12-20 11:41:16编辑过]

sylun

先收藏再学习。

poetbox

不好意思，回复晚了，

9FA5十六进制，换算成10进制即可。

插入符号中的数值全都是用十六进制表示的。

十六进制换算十进制方法：可以手工用十六进一原理算（末位保持不变，加上次前位的16倍，再加次次前倍的16*16倍……可得结果），如果有计算器当然最方便了，也可以借助于WINDOWS计算器。开始－运行－CALC－查看－科学型－单选16进制－输入9fa5-单选十进制－OK。附件中的科学型计算器基本功能比较齐全。

0123456789ABCDEF

yxzjls

QUOTE:

以下是引用poetbox在2006-12-18 18:57:35的发言：

我已计算出来了。Alt-40869。

OK!使用愉快！

这是2003版本新增的一项功能，在“插入”→“符号”中，每一个汉字都具有其字符代码，来自Unicode（十六进制），找到该字的代码后，再换算为十进制，就得到Alt+数字（小键盘）的快捷键。

是这样算出来的吗？

bluexuemei

守柔 发表于 2006-12-19 11:56
QUOTE:以下是引用poetbox在2006-12-18 18:57:35的发言：我已计算出来了。Alt-40869。OK!使用愉快！谢谢poet ...

为什么我试了不行，ALT+40869是烋，还有五笔WGKM也不行？

咊崋潤傑

我用拼音在搜狗里可以打出此字。微软简洁里也可以打出此字！谢谢！