全角、半角字符相互转换

转载 2007年09月21日 11:58:00
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(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(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
 
 

相关文章推荐

java中全角半角字符的相互转换

import org.apache.commons.lang.StringUtils; /** * * 提供对字符串的全角->半角,半角->全角转换 * */ public ...

半角字符转换为全角

  • 2008-04-10 16:01
  • 477KB
  • 下载

半角字符转换全角

  • 2008-04-10 15:58
  • 9.77MB
  • 下载

禁止 WORDPRESS 将英文半角符号转换成全角符号(字符转义)

WordPress 模式使用了 wptexturize 函数将纯文本字符转换成格式化的 HTML 实体。标签, , , , 和 中的文本被忽略。对于一般写单纯码文字的人来说,这个自动将英文半角符号转换...

半角字符转换为全角

  • 2008-04-10 15:49
  • 9.77MB
  • 下载

C++全角半角字符转换

python学习笔记-半角字符和全角之间的转换

背景:在做日文文本的处理时候,统一半全角字符。分析:说明: 全角字符unicode编码从65281~65374 (十六进制 0xFF01 ~ 0xFF5E) 半角字符unicode编码从33~12...

python实现全角半角的相互转换

缘起 在自然语言处理过程中,全角、半角的的不一致会导致信息抽取不一致,因此需要统一。   转换说明 全角半角转换说明 有规律(不含空格): 全角字符un...

python 匹配文本全角转半角字符

在对文本进行处理的时候经常会遇见要对括号和标点进行匹配 常见的英文(半角)符号如( ) 直接用正则匹配即可 但是遇见全角字符(中文括号、标点),直接用正则匹配会存在问题: 因为编码通常为为utf...

SQL Server中全角和半角字符的比较问题

这是一个在我实际一个项目中遇到的问题。03BHL01001(上海)和03BHL01001(上海)比较的结果是一样的。导致引起的重复的主键问题。 php学习之家   03BHL01001(上海)...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)