快速业务通道

C#转全角半角

作者 佚名技术 来源 NET编程 浏览 发布时间 2012-04-12
        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版本:
 


    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



    
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

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号