"7"  LeftX("中国ren",4) => ... 起点建筑 土木工程技术,建筑设计,室内设计,工程图纸,设计图纸,物业管理,设计图纸,景观设计,软件教程应用,等级考试与就业,软件教程,使用心得交流,设计案例参考,就业与市场动态,影视娱乐 " />

查看完整版本: ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文

迷失的亲 2007-11-24 12:20

ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文

ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文"Pu `XA

]T?6Y&z V2N1kRQ   对中文识别为两个字符,ASCII码为一个,可用此函数代替Len,Left,Right函数 Jt'EBsu

8K&i o(SW;Q   示例:LenX("中国ren") => "7" ce:x'r-v9z9w!U
OR8^b)A2d G3{|HS
  LeftX("中国ren",4) => "中国"5y/v]'tex
!R;aWw!k,EY
  RightX("中国ren",5) => "国ren"
*Kg,n|v)@ f(t7sjK Qk7_(p [L
      参数: String 字符串 Length 长度
6z*D"y\%b4ovz9k
#@7y`SWNRS~       返回:字符串长度,字符串,字符串[code]Public Function LenX(ByVal sString) K&Ff/Vx&X^)D1Z'A
Dim reslult, lngStringLen, strCharString, i *|%DbFKS
lngStringLen = Len(sString) [t.d4l%z
strCharString = "" -`![d.i@bu8HQ
for i = 1 to lngStringLen (as:b @nK'S
strCharString = Mid(sString, i, 1)
"ZO7rL[/F/C if Asc(strCharString) > 0 then reslult= reslult+ 1 else reslult= reslult+ 2
eZ4@[Y&\[9|.` ~ next
-e-p_.u;XyM%MUf LenX= reslult
'q0i^-y7Q.C@.Ceb End Function  
'xc,x:oS;_b Public Function strLeft(ByVal sString, ByVal lLength)
GL3lRQ6y^ @ if isBlank(sString) or lLength < 1 then Exit Function %B+?L8}&~?4q
Dim result, lngStringLength, strCharString, lngCounter ,i I0G2uh }1eE
lngStringLength = Len(sString)
[ SA.{Rf{ result = "" ){K+E&g~d%L4F
for i = 1 to lngStringLength G/X3Ov:v~4h p
strCharString = Mid(sString, i, 1)
B$x&vhmk.d result = result & strCharString
Z4}d3??7I HK if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2
t2Z9@P/z2U if lngCounter >= lLength then Exit For
vFl WCk{3F$S next
G"RVu7?,PXpT^ strLeft = result ZXv-ErrS
End Function :Z;INT+fa(o:[;_
Public Function strRight(ByVal sString, ByVal lLength)
]P3{PL t |8nO if isBlank(sString) or lLength < 1 then Exit Function
:mi*]_6Jc{A Dim result, lngStringLength, strCharString, lngCounter, i YOD;}G"|on
lngStringLength = Len(sString)
a i%i7E"gb result = "" nI r4@ Pz
for i = lngStringLength to 1 step -1
:hjD'CS[t strCharString = Mid(sString, i, 1)
|#|$z.[!g-` result = strCharString & result _v_"k1Bx |.[Wuh
if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2  
5EJb-xX4Q _ if lngCounter >= lLength then Exit For
[ ~L3@Qt}[,v z next 2o&ynR$zJ*y2k)Q
strRight = result z/UP v3T#b3R
End Function [/code]
页: [1]
查看完整版本: ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文