ALT+小键盘数字查询器 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

参考网站：
http://www2.webshu.com/expl/character.asp

前天给我初一的弟弟讲几何题，一个题目不会做，想到网上查，△ABC 里面的△不会打，x的平方到现在都打不出来

好像可以不需要网络版的，谁能写个脚本，或者HTA的查询器

[ Last edited by kioskboy on 2008-4-23 at 05:19 PM ]

必须得有样本才能查询，
既然有样本，还不如复制来的快。

到哪里复制，只有打出来了才能复制，时间不乱套了
这个不需要样本的，学c的时候，课本后面的表A为65，那么alt+65就是A

[ Last edited by kioskboy on 2008-4-21 at 08:25 PM ]

如果“△”都不会打，请问你如何输入“△”进行查询
如果你已经有了“△”，直接复制就OK了，还用得着先输入“△”查询后再“Alt+***”么？

Originally posted by zh159 at 2008-4-21 08:33 PM:
如果“△”都不会打，请问你如何输入“△”进行查询
如果你已经有了“△”，直接复制就OK了，还用得着先输入“△”查询后再“Alt+***”么？

哈，好，zh159大虾你来了呀
我一下想起来了，我以前浏览我你写过超牛代码 ASCII 码互查器 - zh159，
你把它改下嘛，里面查的有些有负数，好像不适合这个
我只是为了训练，好记些

[ Last edited by kioskboy on 2008-4-21 at 08:55 PM ]

刚才试了一下，稍加修改好像可以查询所有字符了

ASCII 码查询器 HTA 版：

<html>
<title>ASCII 码查询器 - zh159@bbs.cn-dos.net</title>
<HTA:APPLICATION 
 ID="MyhyliApp"
 APPLICATIONNAME="ASCII 查询查器"
 BORDER="thin"
 BORDERSTYLE=""
 VERSION="1.0"
 SCROLL="no"
 INNERBORDER="no"
 CONTEXTMENU="yes"
 CAPTION="yes"
 MAXIMIZEBUTTON="no"
 MINIMIZEBUTTON="yes"
 SHOWINTASKBAR="yes"
 SINGLEINSTANCE="yes"
 SYSMENU="yes"
 WINDOWSTATE="normal"
 NAVIGABLE="yes"
 />
</head>

<script language="VBScript">

  width=500
  height=440
  window.resizeTo width, height
  ileft=(window.screen.width-width)/2
  itop=(window.screen.height-height)/2
  window.moveTo ileft,itop

    Sub Convert()
  Str = InputText.value
  for Num = 1 to len(Str)
    Str_one=Mid(Str,Num,1)
    ascii = ascii & "Chr(" & int("&h" & Hex(asc(Str_one))) & ");"
  next
    txtOutput.innerHtml = ascii
    End Sub

</script>

<style type='text/css' id='css'>
a {text-transform: none;text-decoration: none; font-size:15px;color:#ffffff;}
.button {font: 15px 宋体, Verdana;height:27;border: 1 solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;cursor:hand;}
.textarea {width:100%;font: 15px 宋体, Verdana;border: 1 solid #000000;}
</style>

<body background="bg.gif" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;">
    <table align="center" style="width:95%;font: 15px 宋体;">
        <tr align="center"><td style="font: 24px 楷体_GB2312;filter: glow(color=#0000ff,strength=5);">ASCII 码查询器</td></tr>
        <tr align="center"><td><u>2008-04-21</u><br><a href="http://bbs.cn-dos.net" target="_blank" title="中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛"><u>zh159@bbs.cn-dos.net</u></a>　<a href="http://bbs.blueshow.net/?a=zh159" target="_blank" title="忧郁的蓝色－专业手机论坛"><u>zh159@bbs.blueshow.net</u></a></td></tr>
        <tr><td><b>输入字符：</b><br><textarea class="textarea" name="InputText" rows="6">ASCII 码查询器</textarea></input type="text" name="InputText" size=40 value="请输入文字"></td></tr>
        <tr><td><input type="button" class="button" name="Button" value=" 转 换 " onClick="Convert">　　<input type="button" class="button" name="ClearText" value="复制 ASCII 码到剪贴板" onClick="copy('txtOutput')"></td></tr>
        <tr><td><b>ASCII 码：</b><br><textarea class="textarea" name="txtOutput" rows="7" style="font: 13px 宋体;"></textarea></td></tr>
    </table>
</body>

<script language=JavaScript>

function copy(ob){
var obj=findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
}
function findObj(n, d) {
  var p,I,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames.document; n=n.substring(0,p);}
  if(!(x=d)&&d.all) x=d.all; for (i=0;!x&&i<d.forms.length;i++) x=d.forms;
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers.document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

</script>

<html>

zh159强，羡慕一个！
------------------------------------------

start charmap

里面什么都有啊

楼主发的那个网址对控制字符不起作用，看来还是charmap使用

什么时候能简洁地复制退格字符就好了

str = InputBox("输入要查询的字符串","Alt")
For Num = 1 To Len(Str)
Str_one = Mid(Str,Num,1)
AscStr = Asc(Str_one)
If AscStr < 0 Then AscStr = AscStr + &h10000
ascii = ascii & "Chr(" & AscStr & ");"
Next
MsgBox ascii

我就是不会VBS .hta什么的更不会了
--------------------------------
这个是3742668版主的，我稍改下，

@echo off&<%0 more +3 >%tmp%\tmp.vbs
cscript //nologo %tmp%\tmp.vbs
pause>nul&exit
For i = 1 To 128 
        str = str + vbCrLf + CStr(i) + vbTab + Hex(i) + _
                vbTab + Chr(i) + vbTab 
Next
WScript.Echo str

真精彩，谢谢大家
今天问了一个朋友，才知道平方符号 ²编码为0178
可是我在网上查编码是50，那是不是当作2了
我一看，编码65586和50怎么都输出为2
而平方符号在一般的文本框和对话框里都当作2了吗，
这是什么原因啊

还有再麻烦大虾们写个双向的查询，也就是说输入41463
就显示△，就当是打草稿，输入前验证下，
哈，如果能再直接把它传到剪贴版就好了，为祖国数学作贡献

[ Last edited by kioskboy on 2008-4-22 at 07:40 PM ]

这个就是2……

文本框和对话框接受ANSI的……

那个符号是unicode的……

Originally posted by slore at 2008-4-22 07:37 PM:
这个就是2……

文本框和对话框接受ANSI的……

那个符号是unicode的……

是这样的，谢谢slore

可以用ascw函数得到178

不清楚这个函数，麻烦大虾你再写下，把这个问题再秒了吧

第1楼　kioskboy	发表于 2008-04-21 20:03
初级用户　发帖 103　积分 153
ALT+小键盘数字查询器参考网站： http://www2.webshu.com/expl/character.asp 前天给我初一的弟弟讲几何题，一个题目不会做，想到网上查，△ABC 里面的△不会打，x的平方到现在都打不出来好像可以不需要网络版的，谁能写个脚本，或者HTA的查询器 [ Last edited by kioskboy on 2008-4-23 at 05:19 PM ]

第2楼　26933062	发表于 2008-04-21 20:15
银牌会员　发帖 879　积分 2,268
必须得有样本才能查询，既然有样本，还不如复制来的快。

第3楼　kioskboy	发表于 2008-04-21 20:18
初级用户　发帖 103　积分 153
到哪里复制，只有打出来了才能复制，时间不乱套了这个不需要样本的，学c的时候，课本后面的表A为65，那么alt+65就是A [ Last edited by kioskboy on 2008-4-21 at 08:25 PM ]

第4楼　zh159	发表于 2008-04-21 20:33
金牌会员　发帖 1,467　积分 3,687
如果“△”都不会打，请问你如何输入“△”进行查询如果你已经有了“△”，直接复制就OK了，还用得着先输入“△”查询后再“Alt+***”么？

第5楼　kioskboy	发表于 2008-04-21 20:50
初级用户　发帖 103　积分 153
Originally posted by zh159 at 2008-4-21 08:33 PM: 如果“△”都不会打，请问你如何输入“△”进行查询如果你已经有了“△”，直接复制就OK了，还用得着先输入“△”查询后再“Alt+**”么？哈，好，zh159大虾你来了呀我一下想起来了，我以前浏览我你写过超牛代码 ASCII 码互查器 - zh159，你把它改下嘛，里面查的有些有负数，好像不适合这个我只是为了训练，好记些 [ Last edited by kioskboy on 2008-4-21 at 08:55 PM* ]

第6楼　zh159	发表于 2008-04-21 21:30
金牌会员　发帖 1,467　积分 3,687
刚才试了一下，稍加修改好像可以查询所有字符了 ASCII 码查询器 HTA 版： <html> <title>ASCII 码查询器 - zh159@bbs.cn-dos.net</title> <HTA:APPLICATION ID="MyhyliApp" APPLICATIONNAME="ASCII 查询查器" BORDER="thin" BORDERSTYLE="" VERSION="1.0" SCROLL="no" INNERBORDER="no" CONTEXTMENU="yes" CAPTION="yes" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" WINDOWSTATE="normal" NAVIGABLE="yes" /> </head> <script language="VBScript"> width=500 height=440 window.resizeTo width, height ileft=(window.screen.width-width)/2 itop=(window.screen.height-height)/2 window.moveTo ileft,itop Sub Convert() Str = InputText.value for Num = 1 to len(Str) Str_one=Mid(Str,Num,1) ascii = ascii & "Chr(" & int("&h" & Hex(asc(Str_one))) & ");" next txtOutput.innerHtml = ascii End Sub </script> <style type='text/css' id='css'> a {text-transform: none;text-decoration: none; font-size:15px;color:#ffffff;} .button {font: 15px 宋体, Verdana;height:27;border: 1 solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;cursor:hand;} .textarea {width:100%;font: 15px 宋体, Verdana;border: 1 solid #000000;} </style> <body background="bg.gif" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;"> <table align="center" style="width:95%;font: 15px 宋体;"> <tr align="center"><td style="font: 24px 楷体_GB2312;filter: glow(color=#0000ff,strength=5);">ASCII 码查询器</td></tr> <tr align="center"><td><u>2008-04-21</u><br><a href="http://bbs.cn-dos.net" target="_blank" title="中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛"><u>zh159@bbs.cn-dos.net</u></a>　<a href="http://bbs.blueshow.net/?a=zh159" target="_blank" title="忧郁的蓝色－专业手机论坛"><u>zh159@bbs.blueshow.net</u></a></td></tr> <tr><td><b>输入字符：</b><br><textarea class="textarea" name="InputText" rows="6">ASCII 码查询器</textarea></input type="text" name="InputText" size=40 value="请输入文字"></td></tr> <tr><td><input type="button" class="button" name="Button" value=" 转换 " onClick="Convert">　　<input type="button" class="button" name="ClearText" value="复制 ASCII 码到剪贴板" onClick="copy('txtOutput')"></td></tr> <tr><td><b>ASCII 码：</b><br><textarea class="textarea" name="txtOutput" rows="7" style="font: 13px 宋体;"></textarea></td></tr> </table> </body> <script language=JavaScript> function copy(ob){ var obj=findObj(ob); if (obj) { obj.select();js=obj.createTextRange();js.execCommand("Copy");} } function findObj(n, d) { var p,I,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames.document; n=n.substring(0,p);} if(!(x=d)&&d.all) x=d.all; for (i=0;!x&&i<d.forms.length;i++) x=d.forms; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers.document); if(!x && document.getElementById) x=document.getElementById(n); return x; } </script> <html>

第7楼　plp626	发表于 2008-04-21 23:43
银牌会员　发帖 1,020　积分 2,278
zh159强，羡慕一个！ ------------------------------------------ start charmap 里面什么都有啊

第8楼　plp626	发表于 2008-04-21 23:47
银牌会员　发帖 1,020　积分 2,278
楼主发的那个网址对控制字符不起作用，看来还是charmap使用什么时候能简洁地复制退格字符就好了

第9楼　slore	发表于 2008-04-22 03:45
铂金会员　发帖 2,478　积分 5,212
str = InputBox("输入要查询的字符串","Alt") For Num = 1 To Len(Str) Str_one = Mid(Str,Num,1) AscStr = Asc(Str_one) If AscStr < 0 Then AscStr = AscStr + &h10000 ascii = ascii & "Chr(" & AscStr & ");" Next MsgBox ascii

第10楼　plp626	发表于 2008-04-22 12:39
银牌会员　发帖 1,020　积分 2,278
我就是不会VBS .hta什么的更不会了 -------------------------------- 这个是3742668版主的，我稍改下， @echo off&<%0 more +3 >%tmp%\tmp.vbs cscript //nologo %tmp%\tmp.vbs pause>nul&exit For i = 1 To 128 str = str + vbCrLf + CStr(i) + vbTab + Hex(i) + _ vbTab + Chr(i) + vbTab Next WScript.Echo str

第11楼　kioskboy	发表于 2008-04-22 19:24
初级用户　发帖 103　积分 153
真精彩，谢谢大家今天问了一个朋友，才知道平方符号 ²编码为0178 可是我在网上查编码是50，那是不是当作2了我一看，编码65586和50怎么都输出为2 而平方符号在一般的文本框和对话框里都当作2了吗，这是什么原因啊还有再麻烦大虾们写个双向的查询，也就是说输入41463 就显示△，就当是打草稿，输入前验证下，哈，如果能再直接把它传到剪贴版就好了，为祖国数学作贡献 [ Last edited by kioskboy on 2008-4-22 at 07:40 PM ]

第12楼　slore	发表于 2008-04-22 19:37
铂金会员　发帖 2,478　积分 5,212
这个就是2…… 文本框和对话框接受ANSI的…… 那个符号是unicode的……

第13楼　kioskboy	发表于 2008-04-22 19:45
初级用户　发帖 103　积分 153
Originally posted by slore at 2008-4-22 07:37 PM: 这个就是2…… 文本框和对话框接受ANSI的…… 那个符号是unicode的…… 是这样的，谢谢slore

第14楼　slore	发表于 2008-04-22 19:46
铂金会员　发帖 2,478　积分 5,212
可以用ascw函数得到178

第15楼　kioskboy	发表于 2008-04-22 19:56
初级用户　发帖 103　积分 153
不清楚这个函数，麻烦大虾你再写下，把这个问题再秒了吧