标题: ALT+小键盘数字 查询器 [打印本页]
作者: kioskboy 时间: 2008-4-21 20:03 标题: ALT+小键盘数字 查询器
参考网站：
http://www2.webshu.com/expl/character.asp
前天给我初一的弟弟讲几何题，一个题目不会做，想到网上查，△ABC 里面的△不会打，x的平方到现在都打不出来
好像可以不需要网络版的，谁能写个脚本，或者HTA的查询器
[ Last edited by kioskboy on 2008-4-23 at 05:19 PM ]
作者: 26933062 时间: 2008-4-21 20:15
必须得有样本才能查询，
既然有样本，还不如复制来的快。
作者: kioskboy 时间: 2008-4-21 20:18
到哪里复制，只有打出来了才能复制，时间不乱套了
这个不需要样本的，学c的时候，课本后面的表A为65，那么alt+65就是A
[ Last edited by kioskboy on 2008-4-21 at 08:25 PM ]
作者: zh159 时间: 2008-4-21 20:33
如果“△”都不会打，请问你如何输入“△”进行查询
如果你已经有了“△”，直接复制就OK了，还用得着先输入“△”查询后再“Alt+***”么？
作者: kioskboy 时间: 2008-4-21 20:50
| Quote: | |
|
哈，好，zh159大虾你来了呀
我一下想起来了，我以前浏览我你写过超牛代码 ASCII 码互查器 - zh159，
你把它改下嘛，里面查的有些有负数，好像不适合这个
我只是为了训练，好记些
[ Last edited by kioskboy on 2008-4-21 at 08:55 PM ]
作者: zh159 时间: 2008-4-21 21:30
刚才试了一下，稍加修改好像可以查询所有字符了
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[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
</script>
<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[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
</script>
<html>
作者: plp626 时间: 2008-4-21 23:43
zh159强，羡慕一个！
------------------------------------------
start charmap
里面什么都有啊作者: plp626 时间: 2008-4-21 23:47
楼主发的那个网址对控制字符不起作用，看来还是charmap使用
什么时候能简洁地复制退格字符就好了
作者: slore 时间: 2008-4-22 03:45
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
作者: plp626 时间: 2008-4-22 12:39
我就是不会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
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
作者: kioskboy 时间: 2008-4-22 19:24
真精彩，谢谢大家
今天问了一个朋友，才知道平方符号 ²编码为0178
可是我在网上查 编码是50，那是不是当作2了
我一看，编码65586和50怎么都输出为2
而平方符号在一般的文本框和对话框里都当作2了吗，
这是什么原因啊
还有再麻烦大虾们写个双向的查询，也就是说输入41463
就显示△，就当是打草稿，输入前验证下，
哈，如果能再直接把它传到剪贴版就好了，为祖国数学作贡献
[ Last edited by kioskboy on 2008-4-22 at 07:40 PM ]
作者: slore 时间: 2008-4-22 19:37
这个就是2……
文本框和对话框接受ANSI的……
那个符号是unicode的……
作者: kioskboy 时间: 2008-4-22 19:45
| Quote: | |
|
是这样的，谢谢slore
作者: slore 时间: 2008-4-22 19:46
可以用ascw函数得到178
作者: kioskboy 时间: 2008-4-22 19:56
不清楚这个函数，麻烦大虾你再写下，把这个问题再秒了吧
作者: slore 时间: 2008-4-22 20:04
MsgBox Ascw("²")
保存的时候要unicode编码。
作者: kioskboy 时间: 2008-4-22 20:37
| Quote: | |
|
我这电脑里面没有字符映射表
作者: kioskboy 时间: 2008-4-22 20:38
| Quote: | |
|
麻烦大虾把上面的改成双向查询，再弄个传到剪贴版功能，好吗
MsgBox Ascw("²") 怎么么弹出的还是2呀，我不保存的
²好像能复制粘贴的
作者: slore 时间: 2008-4-22 21:49
Title = "Alt查询器 By Slore"
Mode = MsgBox("查询ANSI编码选[是],Unicode选[否]",vbYesNo + 64,Title)
strIn = InputBox("请输入要查询的字符串。" & vbCrLf & "反查以'开头,"";""为间隔符",Title)
If strIn = "" Then MsgBox "谢谢使用此Alt查询器!再见~",64,Title:Wscript.Quit
If Mode = 6 Then
If Left(strIn,1) = "'" Then
strIn = Mid(strIn,2)
strWord = Split(strIn,";")
For i = 0 To UBound(strWord)
txtOut = txtOut & Chr(strWord(i)) & ":" & strWord(i) & " "
Next
Else
For i = 1 To Len(strIn)
strChar = Mid(strIn,i,1)
Ascii = Asc(strChar)
If Ascii < 0 Then Ascii = Ascii + &H10000
txtOut = txtOut & strChar & ":" & Ascii & " "
Next
End If
Else
If Left(strIn,1) = "'" Then
strIn = Mid(strIn,2)
strWord = Split(strIn,";")
For i = 0 To UBound(strWord)
txtOut = txtOut & ChrW(strWord(i)) & ":" & strWord(i) & " "
Next
Else
For i = 1 To Len(strIn)
strChar = Mid(strIn,i,1)
Ascii = AscW(strChar)
If Ascii < 0 Then Ascii = Ascii + &H10000
txtOut = txtOut & strChar & ":" & Ascii & " "
Next
End If
End If
MsgBox txtOut,64,Title
作者: slore 时间: 2008-4-22 22:10
有剪切板功能的。
| Quote: | |
|
作者: haiou327 时间: 2008-4-23 02:14
厉害ING!!!!!!!!!!!!!!!!!!!!!!!!!
超强
作者: matlan 时间: 2008-11-16 22:05
发个vbs的
'2008-9-13
'定义常用字符
Dim cy
cy="℃αβγπελ∑∞≈≤≥☆★Δ"
a=inputbox("欢迎使用此小程序请输入要转换的字符："&vbCrLf&"(在QQ,WORD中使用加~。按下EXIT退出)","ALT+数字=汉字",cy)
If a=Empty Then WScript.Quit
while UCase(a)<>"EXIT"
If Mid(a,1,1)="~" And Len(a)=1 Then '只有一个~时
a=inputbox(chr(34)&a& chr(34) & "在HTML,TXT,PPT,XLS中所对应编码为：" & Chr(13) & c(a),"ALT+数字=汉字(强化版)",a)
ElseIf Mid(a,1,1)="~" And Len(a)>1 then '转义字符 在qq，word中使用
a=Right(a,Len(a)-1)
a=inputbox(chr(34)&a& chr(34) & "在QQ,DOC中所对应编码为：" & Chr(13) & q(a),"ALT+数字=汉字",a)
Else
a=inputbox(chr(34)&a& chr(34) & "在HTML,TXT,PPT,XLS中所对应编码为：" & Chr(13) & c(a),"ALT+数字=汉字",a)
End if
If a=Empty Then WScript.Quit
Wend
function c(str) '记事本，excel，ppt,网页中使用的字符转编码函数
c=""
for i=1 to len(str)
c=c&"<"&Hword(Mid(str,i,1))&">"& clng("&H" & Hex(Asc(mid(str,i,1))))&Space(9-Len(clng("&H" & Hex(Asc(mid(str,i,1))))))
next
end function
function q(str) 'qq,word中使用的字符转编码函数
q=""
for i=1 to len(str)
q=q&"<"&Hword(Mid(str,i,1))&">"& clng("&H" & Hex(Ascw(mid(str,i,1))))&Space(9-Len(clng("&H" & Hex(Ascw(mid(str,i,1))))))
next
end function
'左对齐格式化
Function Lstr(str,n)
Lstr=str & Space(n-Len(str))
End Function
'字母汉字格式化
Function Hword(str)
If Asc(str)<0 Then
Hword=str
Else Hword=str &Space(1)
End If
End Function
作者: fyjokre 时间: 2008-11-21 10:57
收藏！