全角转半角

Question

谁知道字符串全角转半角的方法

Answer 1

没办法直接转的，好在有全角半角的字符也不多，可以查一下做一个一一对应，做成函数，或放在数据库里。s=strconv(s,vbnarrow)是双字节字符转成单字节字符，不是全角转半角

Answer 2

private  function ChangeFont(yourStr as string ) as  string
    dim i as integer
     dim mChr as string
     dim KeyAscii  as long
     for  i=1 to len(yourstr)
         keyascii=asc(mid(yourstr,i,1))
         If AscW(Chr(KeyAscii)) > 32 Then '轉全角
             KeyAscii = Asc(ChrW(AscW(Chr(KeyAscii)) - 288))
             mChr =mchr &  Chr(KeyAscii)
         ElseIf AscW(Chr(KeyAscii)) = 32 Then
             mChr =mchr &   ChrW(12288)
         else
             mchr=mchr & mid(yourstr,i,1)
         End If
     next
     changefont=mchr
 end function