代码收藏 » 字符串

ASP来实现UTF8转换GB2312国标码

enjoy — Tue, 06 Apr 2010 14:12:33 +0000

ASP来实现UTF8转换GB2312国标码-GB2312转UTF-8

‘个人代码风格注释（变量名中第一个小写字母表表示变量类型）
‘i:为Integer型;
’s:为String;
Function U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i

iHexNum = Trim(a_iNum)

    If iHexNum = “” Then
        Exit Function
    End If

sResult = “”

    If (iHexNum < 128) Then
        sResult = sResult & iHexNum
    ElseIf (iHexNum < 2048) Then
        sResult = ChrB(&H80 + (iHexNum And &H3F))
        iHexNum = iHexNum \ &H40
        sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
    ElseIf (iHexNum < 65536) Then
        sResult = ChrB(&H80 + (iHexNum And &H3F))
        iHexNum = iHexNum \ &H40
        sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
        iHexNum = iHexNum \ &H40
        sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
    End If

U2UTF8 = sResult
End Function

Function GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Dim iLen,iUnicode,iTemp,i

    sGB = Trim(a_sStr)
    iLen = Len(sGB)
    For i = 1 To iLen
         sTemp = Mid(sGB,i,1)
         iTemp = Asc(sTemp)

         If (iTemp>127 OR iTemp<0) Then
             iUnicode = AscW(sTemp)
             If iUnicode<0 Then
                 iUnicode = iUnicode + 65536
             End If
        Else
            iUnicode = iTemp
        End If

sResult = sResult & U2UTF8(iUnicode)
Next

GB2UTF = sResult
End Function

‘调用方法
Response.BinaryWrite(GB2UTF(“中国人”))
该文章出自《TOMMYHU’s blog》,原文链接：http://www.tommyhu.cn/asp-to-achieve-utf8-conversion-gb2312-gb-code/

转载时间是: 2010-04-06 07:09:31 请务必保留此链接，谢谢！

在字符串指定位置插入一段字符串

enjoy — Wed, 13 Jan 2010 14:24:05 +0000

//插入一段字符串

function str_insert($str, $i, $substr)

{

for($j=0; $j<$i; $j++){

$startstr .= $str[$j];

}

for ($j=$i; $j

$laststr .= $str[$j];

}

$str = ($startstr . $substr . $laststr);

return $str;

}

判断是否为指定长度内字符串

enjoy — Sat, 04 Apr 2009 15:02:25 +0000

//———————————————————————————–
——-
// 函数名：CheckLengthBetween($C_char, $I_len1, $I_len2=100)
// 作用：判断是否为指定长度内字符串
// 参数：$C_char（待检测的字符串）
// $I_len1 （目标字符串长度的下限）
// $I_len2 （目标字符串长度的上限）
// 返回值：布尔值
// 备注：无
//———————————————————————————–
——-
function CheckLengthBetween($C_cahr, $I_len1, $I_len2=100)
{
$C_cahr = trim($C_cahr);
if (strlen($C_cahr) < $I_len1) return false;
if (strlen($C_cahr) > $I_len2) return false;
return true;
}
//———————————————————————————–
——-

UTF-8 GBK下PHP获取字符串长度

enjoy — Wed, 05 Nov 2008 09:57:11 +0000

UTF-8 GBK下PHP获取字符串长度，是langwan写的，贴过来大家分享，完美的解决了PHP下获取UTF-8或者GBK字符集的字符串长度问题！

* 统计字符串长度
*@author langwan
*@param $str 被统计字符串

return $n;
}

中文字符长度

enjoy — Wed, 05 Nov 2008 09:55:55 +0000

//中文字符长度，一个中文长度为1。
function cstrlen($str){
$n = 0; $p = 0; $c = ”;
$len = strlen($str);

for($i = 0; $i < $len; $i++) {
$c = ord($str{$i});
if($c > 127) {
$p = 1;
} else {
$p = 0;
}
$i+=$p;$n++;
}

return $n;
}

截取字符串-InterceptString

enjoy — Wed, 05 Nov 2008 09:27:55 +0000

‘************* 截取字符串 **************

function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then ‘如果是汉字
y = y + 2
else
y = y + 1
end if
if y >= length then
txt = left(trim(txt),ii) ‘字符串限长
exit for
end if
next
InterceptString = txt
else
InterceptString = “”
end if

End Function

测字符串长度-CheckStringLength

enjoy — Wed, 05 Nov 2008 09:27:14 +0000

‘*************测字符串长度**************

Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then ‘如果是汉字
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y

End Function

UTF8编码转Unicode

enjoy — Mon, 01 Sep 2008 10:03:40 +0000

function Utf8ToUnicode(strUtf8)
{
var bstr = “”;
var nTotalChars = strUtf8.length; // total chars to be processed.
var nOffset = 0; // processing point on strUtf8
var nRemainingBytes = nTotalChars; // how many bytes left to be converted
var nOutputPosition = 0;
var iCode, iCode1, iCode2; // the value of the unicode.

while (nOffset < nTotalChars)
{
iCode = strUtf8.charCodeAt(nOffset);
if ((iCode & 0×80) == 0) // 1 byte.
{
if ( nRemainingBytes < 1 ) // not enough data
break;

bstr += String.fromCharCode(iCode & 0×7F);
nOffset ++;
nRemainingBytes -= 1;
}
else if ((iCode & 0xE0) == 0xC0) // 2 bytes
{
iCode1 = strUtf8.charCodeAt(nOffset + 1);
if ( nRemainingBytes < 2 || // not enough data
(iCode1 & 0xC0) != 0×80 ) // invalid pattern
{
break;
}

bstr += String.fromCharCode(((iCode & 0×3F) << 6) | ( iCode1 & 0×3F));
nOffset += 2;
nRemainingBytes -= 2;
}
else if ((iCode & 0xF0) == 0xE0) // 3 bytes
{
iCode1 = strUtf8.charCodeAt(nOffset + 1);
iCode2 = strUtf8.charCodeAt(nOffset + 2);
if ( nRemainingBytes < 3 || // not enough data
(iCode1 & 0xC0) != 0×80 || // invalid pattern
(iCode2 & 0xC0) != 0×80 )
{
break;
}

bstr += String.fromCharCode(((iCode & 0×0F) << 12) |
((iCode1 & 0×3F) << 6) |
(iCode2 & 0×3F));
nOffset += 3;
nRemainingBytes -= 3;
}
else // 4 or more bytes — unsupported
break;
}

if (nRemainingBytes != 0)
{
// bad UTF8 string.
return “”;
}

return bstr;
}

iscn-判断是否有包括中文的字符串

enjoy — Fri, 25 Apr 2008 10:32:09 +0000

/*
可用于用户名等不允许使用出现中文字符的地方
itlearner整理发布
*/
$str = “dd*（*d”;
if (iscn($str)) {
echo “包括中文的字符串”;
} else {
echo “不包括中文的字符串”;
}

function iscn($str){
if (preg_match(“/.*[".chr(0xa1)."-".chr(0xff)."]+.*/”, $str)) {
return true;
} else {
return false;
}
}

utf8_strlen – 获得UTF8编码的字符串的长度

enjoy — Mon, 14 Apr 2008 10:26:33 +0000

/* * 用于UTF8编码的程序 * 获得字符串的长度，一个中文表示3个长度 * itlearner注释 */ function utf8_strlen($str) { $count = 0; for($i = 0; $i < strlen($str); $i++){ $value = ord($str[$i]); if($value > 127) { $count++; if($value >= 192 && $value <= 223) $i++; elseif($value >= 224 && $value <= 239) $i = $i + 2; elseif($value >= 240 && $value <= 247) $i = $i + 3; else die('Not a UTF-8 compatible string'); } $count++; } return $count; }