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

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

ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文
mWp1@V[YB s
f!shS6Ri&E7vC
F 　　对中文识别为两个字符，ASCII码为一个,可用此函数代替Len,Left,Right函数5D+pra{(b)i3L|


N-nIrI$Hc5@u 　　示例：LenX("中国ren") => "7"
5L'\1Ge(W,H,F4`zn
7Wh}"@C 　　LeftX("中国ren",4) => "中国"
6H,|j8k;e-z'i 'VRkA$qr7x
　　RightX("中国ren",5) => "国ren":x*K
aL"sh&A
:Qe7}(rt3J)z2s G
      参数：　String 字符串　Length 长度 qZ:@V%M%Ms*Q
!~)KD*@?9]
      返回：字符串长度，字符串，字符串[code]Public Function LenX(ByVal sString)
3r?8Sr@"Vl Dim reslult, lngStringLen, strCharString, i
7ZZ!I2CX&dJ lngStringLen = Len(sString)
JZTFd9L strCharString = "" :Q|K\4o!crL3}
for i = 1 to lngStringLen 5s0`]K(U E"j.p{ P:t
strCharString = Mid(sString, i, 1)
"c*]H)ckw if Asc(strCharString) > 0 then reslult= reslult+ 1 else reslult= reslult+ 2 &o,M7YZ7o9G]q
next
HIZ[9T+I:n m)Fn4w3X LenX= reslult J2{0Q)lV
End Function  
J(z&V`#Mk?9V.V Public Function strLeft(ByVal sString, ByVal lLength) |iw2Ch6X9O Iy
if isBlank(sString) or lLength < 1 then Exit Function
Bw7gQy` Dim result, lngStringLength, strCharString, lngCounter ,i S@ Nd(^G t
lngStringLength = Len(sString) gi&jMr3^ E
result = ""
/J*o3PJ)L for i = 1 to lngStringLength
cF
t~Q x7w-r I2s strCharString = Mid(sString, i, 1)
K.k-w{$R R0h$H result = result & strCharString
&h5ui S#o#~;]1J/R if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2 I!mV5{
F-{{4t
if lngCounter >= lLength then Exit For
PXu5@ @$[%m+|m next
Q-j*eTK\ strLeft = result %tJaEa.o8|](n5X3E
End Function L8@9F'U:I"b
Public Function strRight(ByVal sString, ByVal lLength)
DP Xt'EO[&Kl ~!T
if isBlank(sString) or lLength < 1 then Exit Function
/Oz:G+[ {1\'X~ Dim result, lngStringLength, strCharString, lngCounter, i
/tK4f)kud lngStringLength = Len(sString) 0h2D(b?^f6L
result = "" |O"mPRRK}r-@
for i = lngStringLength to 1 step -1
%V)J2U)X u!`_0e strCharString = Mid(sString, i, 1)
P%A)i#Y-B7C!YsJ3N4v\ result = strCharString & result
S/]l2Cvo\ if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2  
gawWeR
w*| if lngCounter >= lLength then Exit For

FJc:bNH| next
{c,H6l_T Qi ~3@ strRight = result x#[ E3@0X
\
End Function [/code]