VB.NET字符转换相关函数使用说明

VB.NET编程语言的出现，在一定程度上改变了编程人员的开发方式，提高了开发人员程序开发效率。在实际编程中，对于字符的操作是比较常见的。这里为大家带来的就是VB.NET字符转换的相关实现方法。#t#

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字符转换相关实现操作就为大家介绍到这里。

本文标题：VB.NET字符转换相关函数使用说明
当前链接：http://www.hantingmc.com/qtweb/news12/354212.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联