全角、半角字符相互转换

C#版本: 
/// 转全角的函数(SBC case
        
///  
        
/// 任意字符串 
        
/// 全角字符串 
        
/// 
        
///全角空格为12288,半角空格为32 
        
///其他字符半角(33-126)与全角(65281-65374)的对应关系是:均相差65248 
        
///         
        
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);                 
        } 


        
///  
        
/// 转半角的函数(DBC case
        
///  
        
/// 任意字符串 
        
/// 半角字符串 
        
/// 
        
///全角空格为12288,半角空格为32 
        
///其他字符半角(33-126)与全角(65281-65374)的对应关系是:均相差65248 
        
/// 
        
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()Function ToSBC()Function ToSBC()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()Function ToDBC()Function ToDBC()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
 
 
阅读更多
个人分类: .net技术
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭