因为汉字会被会读成两个字符,
下面是收集别人写的函数,用这个就可以:
function leftX(byval uStr,byval uLen)
dim i,j,uTestStr,theStr
leftX = ""
j = 0
for i = 1 to len(uStr)
uTestStr= mid(uStr,i,1)
theStr = theStr & uTestStr
if asc(uTestStr) < 0 then
j = j + 2
else
j = j + 1
end if
if j >= uLen then exit for
next
leftX = theStr
end function
那么你上面的就用:leftX(jj,100),这样就可以是100个汉字了!