这篇文章给大家介绍VB.NET中有哪些字符转换函数,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。
VB.NET字符转换代码操作实例:
Public Function ToSBC()Function
ToSBC(ByVal input As String)
As String '转全角
Dim c As Char() = input.
ToCharArray
Dim 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中有哪些字符转换函数就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。