转全角半角(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(ByVal input As StringAs String '转全角
        Dim c As Char() = input.ToCharArray
        
Dim i As Integer = 0
        
While i < c.Length
            
If c(i) = ChrW(32Then
                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 StringAs 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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值