C#中直接调用VB.NET的函数，兼论半角与全角、简繁体中文互相转化

在C#项目中添加引用Microsoft.VisualBasic.dll, 可以在C#程序中直接使用VB.NET中丰富的函数

 1  1 //  命令行编译 : csc /r:Microsoft.VisualBasic.dll Test.cs
 2    2
 3    3 //  如果是用 Visual Studio .NET IDE, 请按以下方法为项目添加引用:
 4    4 //  打开[解决方案资源管理器], 右击项目名称, 选择[添加引用],
 5    5 //  从列表中选择 Microsoft Visual Basic .NET Runtime 组件.
 6    6
 7   7 using  Microsoft.VisualBasic;
 8    8
 9   9 class  Test
10  10 {
11  11    static   void  Main()
12  12   {
13  13      string  s  =   " 博客园-空军 [skyIV.cnBlogs.com] " ;
14  14     System.Console.WriteLine(s);
15  15     s  =  Strings.StrConv(s, VbStrConv.Wide              ,  0 );  //  半角转全角
16  16     s  =  Strings.StrConv(s, VbStrConv.TraditionalChinese,  0 );  //  简体转繁体
17  17     System.Console.WriteLine(s);
18  18     s  =  Strings.StrConv(s, VbStrConv.ProperCase        ,  0 );  //  首字母大写
19  19     s  =  Strings.StrConv(s, VbStrConv.Narrow            ,  0 );  //  全角转半角
20  20     s  =  Strings.StrConv(s, VbStrConv.SimplifiedChinese ,  0 );  //  繁体转简体
21  21     System.Console.WriteLine(s);
22  22   }
23  23 }

C#.net
 1 /**//**//**//// <summary>
 2        /// 转全角的函数(SBC case)
 3        /// </summary>
 4        /// <param name="input">任意字符串</param>
 5        /// <returns>全角字符串</returns>
 6        ///<remarks>
 7        ///全角空格为12288，半角空格为32
 8        ///其他字符半角(33-126)与全角(65281-65374)的对应关系是：均相差65248
 9        ///</remarks>        
10        public string ToSBC(string input)
11        {
12            //半角转全角：
13            char[] c=input.ToCharArray();
14            for (int i = 0; i < c.Length; i++)
15            {
16                if (c[i]==32)
17                {
18                    c[i]=(char)12288;
19                    continue;
20                }
21                if (c[i]<127)
22                    c[i]=(char)(c[i]+65248);
23            }
24            return new string(c);                
25        }
26
27
28        /**//**//**//// <summary>
29        /// 转半角的函数(DBC case)
30        /// </summary>
31        /// <param name="input">任意字符串</param>
32        /// <returns>半角字符串</returns>
33        ///<remarks>
34        ///全角空格为12288，半角空格为32
35        ///其他字符半角(33-126)与全角(65281-65374)的对应关系是：均相差65248
36        ///</remarks>
37        public string ToDBC(string input)
38        {    
39            char[] c=input.ToCharArray();
40            for (int i = 0; i < c.Length; i++)
41            {
42                if (c[i]==12288)
43                {
44                    c[i]= (char)32;
45                    continue;
46                }
47                if (c[i]>65280 && c[i]<65375)
48                    c[i]=(char)(c[i]-65248);
49            }    
50            return new string(c);
51        }
52
53

vb.net
 1Public Function ToSBC()Function ToSBC()Function ToSBC()Function ToSBC(ByVal input As String) As String '转全角
 2        Dim c As Char() = input.ToCharArray
 3        Dim i As Integer = 0
 4        While i < c.Length
 5            If c(i) = ChrW(32) Then
 6                c(i) = ChrW(12288)
 7            ElseIf AscW(c(i)) < 127 Then
 8                c(i) = ChrW((AscW(c(i)) + 65248))
 9            End If
10            System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
11        End While
12        Return New String(c)
13    End Function
14
15
16    Public Function ToDBC()Function ToDBC()Function ToDBC()Function ToDBC(ByVal input As String) As String '转半角
17
18        Dim c As Char() = input.ToCharArray
19        Dim i As Integer = 0
20        While i < c.Length
21            If AscW(c(i)) = 12288 Then
22                c(i) = ChrW(32)
23            ElseIf AscW(c(i)) > 65280 AndAlso AscW(c(i)) < 65375 Then
24                c(i) = ChrW(AscW(c(i)) - 65248)
25            End If
26            System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
27        End While
28        Return New String(c)
29    End Function