VB.NET中有哪些字符转换函数-成都创新互联网站建设

关于创新互联

多方位宣传企业产品与服务 突出企业形象

公司简介 公司的服务 荣誉资质 新闻动态 联系我们

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 

  1. System.Math.Min(System.Threading.
    Interlocked.Increment(i), i - 1)  

  2. End While  

  3. Return New String(c)  

  4. End Function  

  5. Public Function ToDBC()Function 
    ToDBC(ByVal input As String) 
    As String '转半角  

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

  7. Dim i As Integer = 0 

  8. While i < c.Length 

  9. If AscW(c(i)) = 12288 Then  

  10. c(i) = ChrW(32)  

  11. ElseIf AscW(c(i)) > 65280 AndAlso 
    AscW(c(i)) < 65375 Then  

  12. c(i) = ChrW(AscW(c(i)) - 65248)  

  13. End If  

  14. System.Math.Min(System.Threading.
    Interlocked.Increment(i), i - 1)  

  15. End While  

  16. Return New String(c)  

  17. End Function 

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


本文题目:VB.NET中有哪些字符转换函数
网站URL:http://kswsj.cn/article/ggjcjd.html

其他资讯