[转]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  7using Microsoft.VisualBasic;
 8  8
 9  9class 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