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

最新推荐文章于 2024-04-15 00:02:29 发布

chinaherolts2008

最新推荐文章于 2024-04-15 00:02:29 发布

阅读量278

点赞数

分类专栏： vb.net教程文章标签： c# 开发语言 vb.net教程

原文链接：https://www.cnblogs.com/hardrock/archive/2005/09/27/245255.html

版权

vb.net教程专栏收录该内容

563 篇文章

订阅专栏

这是一个关于VB.NET的教程，提供了两个函数，用于将字符串从全角转换为半角（ToDBC）和从半角转换为全角（ToSBC）。函数通过遍历字符串中的每个字符并进行相应的位移操作来实现转换。这些函数对于处理中英文混合的字符串或在编程中进行字符格式转换非常有用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

vb.net教程https://www.xin3721.com/eschool/vbnetxin3721/

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