中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-10 17:39 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » ALT+小键盘数字 查询器
可打印版本 　2,916 / 22
第16楼　slore 发表于 2008-04-22 20:04
铂金会员　发帖 2,478　积分 5,212
MsgBox Ascw("²")


保存的时候要unicode编码。
第17楼　kioskboy 发表于 2008-04-22 20:37
初级用户　发帖 103　积分 153
Originally posted by plp626 at 2008-4-21 11:43 PM:
zh159强，羡慕一个！
------------------------------------------


里面什么都有啊

我这电脑里面没有字符映射表
第18楼　kioskboy 发表于 2008-04-22 20:38
初级用户　发帖 103　积分 153
Originally posted by slore at 2008-4-22 03:45 AM:
str = InputBox("输入要查询的字符串","Alt"

麻烦大虾把上面的改成双向查询，再弄个传到剪贴版功能，好吗
MsgBox Ascw("²") 怎么么弹出的还是2呀，我不保存的
²好像能复制粘贴的
第19楼　slore 发表于 2008-04-22 21:49
铂金会员　发帖 2,478　积分 5,212
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
第20楼　slore 发表于 2008-04-22 22:10
铂金会员　发帖 2,478　积分 5,212
有剪切板功能的。


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
第21楼　haiou327 发表于 2008-04-23 02:14
高级用户　发帖 348　积分 713
厉害ING!!!!!!!!!!!!!!!!!!!!!!!!!
超强
第22楼　matlan 发表于 2008-11-16 22:05
初级用户　发帖 63　积分 87
发个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
第23楼　fyjokre 发表于 2008-11-21 10:57
社区乞丐　发帖 9　积分 -11
收藏！
上一页　 1 2
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023