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