轉全角半角互相轉換(C#，VB.NET)

C#

         /// <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