如何將全形英文字、數值轉半形

作者:admin 日期:2008-07-11

字體大小: 小中大

最近有網友詢問如何將全形英文字、數值轉成半形(作為使用者資料輸入之驗證)
提供以下函數供需要的網友直接使用

程序代碼

Function ChgToHalfStr(strInput)
strFullshape="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-_~+, ?!@#$%^&*()."
  strHalfshape="ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ１２３４５６７８９０－＿～＋，　？！＠＃＄％︿＆＊（）‧"
  For Subi=1 To len(strFullshape)
    strInput=Replace(strInput,Mid(strHalfshape,Subi,1),Mid(strFullshape,Subi,1))
  Next
  ChgToHalfStr=strInput
End Function

這是我的作法，如果格友有更具效率的寫法，歡迎分享喔~
那如果是要將半形轉全形呢？聰明的您~應該不難反解了吧....

[本日誌由 admin 於 2008-07-11 11:11 PM 編輯]