中国DOS联盟论坛 - Powered by Discuz! Board

标题: ALT+小键盘数字查询器 [打印本页]

作者: kioskboy 时间: 2008-4-21 20:03 标题: ALT+小键盘数字查询器

参考网站： www2.webshu.com ... 前天给我初一的弟弟讲几何题，一个题目不会做，想到网上查，△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

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 ]

作者: 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>

作者: 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

作者: 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

Originally posted by slore at 2008-4-22 07:37 PM: 这个就是2…… 文本框和对话框接受ANSI的…… 那个符号是unicode的……

是这样的，谢谢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

Originally posted by plp626 at 2008-4-21 11:43 PM: zh159强，羡慕一个！ ------------------------------------------
start charmap
里面什么都有啊

我这电脑里面没有字符映射表

作者: kioskboy 时间: 2008-4-22 20:38

Originally posted by slore at 2008-4-22 03:45 AM: str = InputBox("输入要查询的字符串","Alt"[color=#FF00 ...

麻烦大虾把上面的改成双向查询，再弄个传到剪贴版功能，好吗 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

有剪切板功能的。

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 ret = MsgBox(txtOut,vbYesNo + 64,"是否复制到剪切板上?") If ret = 7 Then Wscript.Quit Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = False:objIE.Navigate("about:blank") objIE.Document.parentwindow.clipboardData.SetData "text", txtOut objIE.Quit:Set objIE = Nothing

作者: 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

收藏！