转全角半角(C#，VB.NET)

/**//// <summary>


/// 转全角的函数(SBC case)


/// </summary>


/// <param name="input">任意字符串</param>


/// <returns>全角字符串</returns>


///<remarks>


///全角空格为12288，半角空格为32


///其他字符半角(33-126)与全角(65281-65374)的对应关系是：均相差65248


///</remarks>


public string ToSBC(string input)






{


//半角转全角：


char[] c=input.ToCharArray();


for (int i = 0; i < c.Length; i++)






{


if (c[i]==32)






{


c[i]=(char)12288;


continue;


}


if (c[i]<127)


c[i]=(char)(c[i]+65248);


}


return new string(c);


}








/**//// <summary>


/// 转半角的函数(DBC case)


/// </summary>


/// <param name="input">任意字符串</param>


/// <returns>半角字符串</returns>


///<remarks>


///全角空格为12288，半角空格为32


///其他字符半角(33-126)与全角(65281-65374)的对应关系是：均相差65248


///</remarks>


public string ToDBC(string input)






{


char[] c=input.ToCharArray();


for (int i = 0; i < c.Length; i++)






{


if (c[i]==12288)






{


c[i]= (char)32;


continue;


}


if (c[i]>65280 && c[i]<65375)


c[i]=(char)(c[i]-65248);


}


return new string(c);


}





VB版本：








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