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

来源：互联网发布：网络教育什么专业好编辑：程序博客网时间：2024/06/05 07:27

 /**//// <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);        }

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