VB.NET中有哪些字符转换函数
这篇文章给大家介绍VB.NET中有哪些字符转换函数，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。
VB.NET字符转换代码操作实例:
Public Function ToSBC()Function
ToSBC(ByVal input As String)
As String '转全角Dim c As Char() = input.
ToCharArrayDim i As Integer = 0
While i < c.Length
If c(i) = ChrW(32) Then
c(i) = ChrW(12288)
ElseIf AscW(c(i)) < 127 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
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中有哪些字符转换函数就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。
免责声明：
① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的，并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据，供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。
② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
