中国DOS联盟

MsgBox Ascw("²") 保存的时候要unicode编码。

Originally posted by plp626 at 2008-4-21 11:43 PM: zh159强，羡慕一个！ ------------------------------------------

start charmap

里面什么都有啊

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

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

麻烦大虾把上面的改成双向查询，再弄个传到剪贴版功能，好吗 MsgBox Ascw("²") 怎么么弹出的还是2呀，我不保存的 ²好像能复制粘贴的

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

有剪切板功能的。

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

厉害ING!!!!!!!!!!!!!!!!!!!!!!!!! 超强

欢迎进入我的网盘！！！

发个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

收藏！