日文系统下在MS中半角转全角 宏源代码
来源:互联网 发布:淘宝买不到115会员 编辑:程序博客网 时间:2024/05/22 06:34
sub main()
'###########################################'
'####Convert the half Char to Wide Char#####'
'###########################################'
Dim elemSet as New MbeElementSet
Dim elem as New MbeElement
Dim setMember as MbeSetMember
Dim filePos as Long
Dim fileNum as Long
Dim Point as MbePoint
dim status as integer
Dim ws as string
If elemSet.fromSelectionSet (1) <> MBE_Success Then
If elemSet.fromFence () <> MBE_Success Then
mbemessagebox "No Selections "
MbeWriteStatus "Please Place Select"
Exit Sub
Else
MbeWriteStatus "Found Fence!"
End If
Else
MbeWriteStatus "Found Select"
End If
MbeSendCommand "Mark"
dim ss as String
status=elemset.getfirst(setmember)
Do while status=MBE_Success
filePos = elem.fromFile (setMember.filePos, setMember.fileNum)
if elem.type=17 then
if elem.getstring(ss) = MBE_Success then
Dim s as String
dim Ck as long
dim Hi as long,Li as long
s=""
for i=1 to len(ss)
ck=asc(mid$(ss,i,1))
if ( ck>=48 and ck<= 57) or (ck>=64 and ck<=90) then
ck=ck+33311
hi=ck / 256
li=ck mod 256
s=s & chr$(hi) & chr$(li)
elseif ck>=97 and ck <=123 then
ck=ck+33312
hi=ck / 256
li=ck mod 256
s=s & chr$(hi) & chr$(li)
elseif ck = 126 then
s=s & chr$(129) & chr$(96)
elseif ck = 124 then
s=s & chr$(129) & chr$(98)
elseif ck = 96 then
s=s & chr$(129) & chr$(77)
elseif ck = 94 then
s=s & chr$(129) & chr$(79)
elseif ck = 95 then
s=s & chr$(129) & chr$(81)
elseif ck = 125 then
s=s & chr$(129) & chr$(112)
elseif ck = 63 then
s=s & chr$(129) & chr$(72)
elseif ck = 58 then
s=s & chr$(129) & chr$(70)
elseif ck = 59 then
s=s & chr$(129) & chr$(71)
elseif ck = 93 then
s=s & chr$(129) & chr$(110)
elseif ck = 91 then
s=s & chr$(129) & chr$(109)
elseif ck = 46 then
s=s & chr$(129) & chr$(68)
elseif ck = 32 then
s=s & chr$(129) & chr$(64)
elseif ck = 33 then
s=s & chr$(129) & chr$(73)
elseif ck = 40 then
s=s & chr$(129) & chr$(105)
elseif ck = 41 then
s=s & chr$(129) & chr$(106)
end if
if ck = 61 then
s=s & chr$(129) & chr$(129)
elseif ck = 62 then
s=s & chr$(129) & chr$(132)
elseif ck = 60 then
s=s & chr$(129) & chr$(131)
elseif ck = 45 then
s=s & chr$(129) & chr$(124)
elseif ck = 43 then
s=s & chr$(129) & chr$(123)
elseif ck = 36 then
s=s & chr$(129) & chr$(144)
elseif ck = 42 then
s=s & chr$(129) & chr$(150)
elseif ck = 37 then
s=s & chr$(129) & chr$(147)
elseif ck = 38 then
s=s & chr$(129) & chr$(149)
elseif ck = 35 then
s=s & chr$(129) & chr$(148)
elseif ck = 39 then
s=s & chr$(129) & chr$(86)
elseif ck = 34 then
s=s & chr$(129) & chr$(87)
end if
next i
if elem.setstring(s)=MBE_Success then
elem.font=0
status=elem.rewrite()
end if
end if
end if
status=elemset.GetNext(setmember)
Loop
end sub
- 日文系统下在MS中半角转全角 宏源代码
- 日文全角转半角
- 日文系统下全角和半角空格trim
- Flex:日文半角转全角,英数全角转半角
- 日文全角半角字符判断
- Ruby中关于日文转UTF-8及半角全角转换的技巧
- JavaScript区别日文全角与半角(转)
- javascript中全角转半角
- javascript中全角转半角
- javascript中全角转半角
- 在JS中Check全角半角
- [HTML][Javascript]javascript中全角转半角
- Delphi中实现全角转半角
- Delphi中实现全角转半角
- 全角转半角 半角转全角
- 全角转半角与半角转全角
- 半角转全角、全角转半角
- 缩写(全角、半角、 半角英数 、半角全角混在)
- 一个男人必须明白的22个道理
- 多媒体应用之Photoshop使用论述
- 已知三角形三个顶点的坐标a(x1,y1),b(x2,y2),c(x3,y3)求三角形中心点即内接圆的圆心
- 如何在vista安装rational rose 2003
- LInux2.6.29 Busybox1.13.3 到S3C2440
- 日文系统下在MS中半角转全角 宏源代码
- 过去的结束
- 开源测试工具的完整解决方案 (转)
- 写在开博之际——开博碎语
- IE收藏夹
- 如何实现两个数据库同步
- [技术讨论]拜托,不要再本本主义了
- 手动打造专业的Makefile文件
- LoadRunner数据库连接及参数设置(转)