取字串的显示长度leftStr(str,leni)

原创于 2008-09-27 17:30:00 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #测试

web技术专栏收录该内容

40 篇文章

订阅专栏

本文提供了一个自定义的LEFTSTR函数实现示例，该函数用于从字符串左侧开始截取指定长度的字符，特别处理了中文字符计数的问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 
 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>测试LEFTSTR</title>
</head>
<body>
<%
response.Write LeftStr("如果I'am如果I'am如果I'am如果I'am如果I'am如果I'am如果I'am",12)&"</br>"
response.Write LeftStr("1234567890123456789012345678901234567890123456789012345678901234567890",12)&"</br>"
response.Write LeftStr("如果我是上帝，必要杀尽天下天使，洗尽其传承自远古的不净！",12)&"</br>"
response.Write LeftStr("1234567890",12)&"</br>"
response.Write LeftStr("必要杀尽天！",12)&"</br>"
Function LeftStr(str,leni)
    Dim     L,sL,Acode
    l=0 '当前所在位置
    sL=len(str) '最高位置,即长度
    for i=1 to leni*2   '将汉字看成2,所以显示长度最大为leni*2
        l=L+1   '位置+1
        Acode=ASC(Mid(str,L,1)) '取ASC码
        if Acode<0 or Acode>256 then II=I+1  '非ASCII字符则认为是汉字
        if l>=sl then exit for  '如果长度将超过字串长度即退出
    next
    LeftStr =left(str,l)    '得到所需的字符
End Function
%>
</body>
</html>