最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

VB.NET編程語(yǔ)言的出現(xiàn)，在一定程度上改變了編程人員的開(kāi)發(fā)方式，提高了開(kāi)發(fā)人員程序開(kāi)發(fā)效率。在實(shí)際編程中，對(duì)于字符的操作是比較常見(jiàn)的。這里為大家?guī)?lái)的就是VB.NET字符轉(zhuǎn)換的相關(guān)實(shí)現(xiàn)方法。#t#

VB.NET字符轉(zhuǎn)換代碼操作實(shí)例:

1. Public Function ToSBC()Function 
   ToSBC(ByVal input As String) 
   As String '轉(zhuǎn)全角  
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 '轉(zhuǎn)半角  
  
  
  
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字符轉(zhuǎn)換相關(guān)實(shí)現(xiàn)操作就為大家介紹到這里。

本文題目：VB.NET字符轉(zhuǎn)換相關(guān)函數(shù)使用說(shuō)明
網(wǎng)站網(wǎng)址：http://m.fisionsoft.com.cn/article/djeijss.html