VB.NET字符轉(zhuǎn)換相關(guān)函數(shù)使用說明
作者：佚名
字符操作是變成中一個(gè)比較基本的知識(shí)點(diǎn)。對(duì)于初學(xué)者來說，掌握這些基礎(chǔ)知識(shí)對(duì)于將來的應(yīng)用非常重要。下面就一起來看看VB.NET字符轉(zhuǎn)換相關(guān)操作方法。
VB.NET編程語言的出現(xiàn)，在一定程度上改變了編程人員的開發(fā)方式，提高了開發(fā)人員程序開發(fā)效率。在實(shí)際編程中，對(duì)于字符的操作是比較常見的。這里為大家?guī)淼木褪荲B.NET字符轉(zhuǎn)換的相關(guān)實(shí)現(xiàn)方法。#t#
VB.NET字符轉(zhuǎn)換代碼操作實(shí)例:
- Public Function ToSBC()Function
ToSBC(ByVal input As String)
As String '轉(zhuǎn)全角 - 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 '轉(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)操作就為大家介紹到這里。
責(zé)任編輯：曹凱
來源：
博客園
