|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
16 楼』:
MsgBox Ascw("²")
保存的时候要unicode编码。
|
|
 2008-4-22 20:04 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
17 楼』:
| Quote: | Originally posted by plp626 at 2008-4-21 11:43 PM:
zh159强，羡慕一个！
------------------------------------------
start charmap 里面什么都有啊 |
|
我这电脑里面没有字符映射表
|
|
|
2008-4-22 20:37 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
18 楼』:
| Quote: | Originally posted by slore at 2008-4-22 03:45 AM:
str = InputBox("输入要查询的字符串","Alt"[color=#FF00 ... |
|
麻烦大虾把上面的改成双向查询，再弄个传到剪贴版功能，好吗
MsgBox Ascw("²") 怎么么弹出的还是2呀，我不保存的
²好像能复制粘贴的
|
|
|
2008-4-22 20:38 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
19 楼』:
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
|
|
|
2008-4-22 21:49 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
 『第
20 楼』:
有剪切板功能的。
| Quote: | 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 |
|
|
|
|
2008-4-22 22:10 |
|
|
haiou327
高级用户
DOS时空
积分 713
发帖 348
注册 2007-2-10
状态 离线
|
『第
21 楼』:
厉害ING!!!!!!!!!!!!!!!!!!!!!!!!!
超强
|
欢迎进入我的网盘！！！ |
|
|
2008-4-23 02:14 |
|
|
matlan
初级用户
积分 87
发帖 63
注册 2008-8-23
状态 离线
|
『第
22 楼』:
发个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
|
|
|
2008-11-16 22:05 |
|
|
fyjokre
社区乞丐
积分 -11
发帖 9
注册 2008-11-21
状态 离线
|
|
|
2008-11-21 10:57 |
|
|
