傑特_資訊手札

遇到一個非常麻煩的東西，User輸入的資料如果有全形及半形時該如何處理。

最快的方式是讓User輸入的資料，全部轉為半形。

全形轉半形

VbStrConv.Narrow :全形轉半形


 Dim Word As String
 Dim NewWord As String
Word  = "ＡＢＣ"　　

NewWord  =  StrConv(Word , VbStrConv.Narrow)

半形轉全形
VbStrConv.Wide:半形轉全形


 Dim Word As String
 Dim NewWord As String
Word  = "ABC"　　

NewWord  =  StrConv(Word , VbStrConv.Wide)


參考資料：http://www.dotblogs.com.tw/hatelove/archive/2009/04/02/7810.aspx