/// 转全角的函数(SBC case) /// /// 任意字符串 /// 全角字符串 /// ///全角空格为12288,半角空格为32 ///其他字符半角(33-126)与全角(65281-65374)的对应关系是：均相差65248 ///
/// 转全角的函数(SBC case) ///
/// 任意字符串 ///
///其他字符半角(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);
}
///
///
///其他字符半角(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 String) As String '转全角
Dim c As Char() = input.ToCharArray
Dim i As Integer = 0
While i < c.Length
If c(i) = ChrW(32) Then
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 String) As 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.uker.net/，或发email至：echo@uker.net，UKer.net资深编辑将为您详细解答。
网友评论