VB.NET中有哪些字符转换函数

这篇文章给大家介绍VB.NET中有哪些字符转换函数，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

VB.NET字符转换代码操作实例:

1. Public Function ToSBC()Function 
   ToSBC(ByVal input As String) 
   As String '转全角  

2. Dim c As Char() = input.
   ToCharArray  

3. Dim i As Integer = 0 

4. While i < c.Length 

5. If c(i) = ChrW(32) Then  

6. c(i) = ChrW(12288)  

7. ElseIf AscW(c(i)) < 127 Then  

8. c(i) = ChrW((AscW(c(i)) + 65248))  

9. End If 

System.Math.Min(System.Threading.
Interlocked.Increment(i), i - 1)  
End While  
Return New String(c)  
End Function  
Public Function ToDBC()Function 
ToDBC(ByVal input As String) 
As String '转半角  
Dim c As Char() = input.ToCharArray  
Dim i As Integer = 0 
While i < c.Length 
If AscW(c(i)) = 12288 Then  
c(i) = ChrW(32)  
ElseIf AscW(c(i)) > 65280 AndAlso 
AscW(c(i)) < 65375 Then  
c(i) = ChrW(AscW(c(i)) - 65248)  
End If  
System.Math.Min(System.Threading.
Interlocked.Increment(i), i - 1)  
End While  
Return New String(c)  
End Function 

关于VB.NET中有哪些字符转换函数就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。