全形/半形 互換

1. '半形轉全形
2. Public Function ToWchr(ByRef data As String) As String
3. Dim sb As New StringBuilder
4. Dim ascii As Integer = 0
5. 
   
6. For Each c As Char In data.ToCharArray()
7. ascii = Convert.ToInt32(c)
8. If ascii = 32 Then
9. sb.Append(Convert.ToChar(12288))
10. Else
11. sb.Append(Convert.ToChar(ascii + IIf(ascii <>
12. End If
13. Next
14. 
    
15. Return sb.ToString
16. End Function
17. 
    
18. ' 全形 轉 半形
19. Public Function ToNchr(ByRef data As String) As String
20. Dim sb As New StringBuilder
21. Dim ascii As Integer = 0
22. 
    
23. For Each c As Char In data.Replace("〔", "[").Replace("〕", "]").Replace("'", "'").ToCharArray()
24. ascii = Convert.ToInt32(c)
25. If ascii = 12288 Then
26. sb.Append(Convert.ToChar(32))
27. Else
28. If ascii > 65280 And ascii <>Then
29. sb.Append(Convert.ToChar(ascii - 65248))
30. Else
31. sb.Append(Convert.ToChar(ascii))
32. End If
33. End If
34. Next
35. 
    
36. Return sb.ToString
37. End Function