left() 函数是 VBScript 的函数，VBScript 将1个汉
敬业的IT人
互联网
佚名
2008-1-11 20:54:14
- ·JavaScript实现无限级树型菜单
·JavaScript教程(3)-JavaScript程序构
·ASP入门（二）——VBScript及表单
·Solaris Shell 与 Shell Script 简介
·使用 RIP协认处理不连续的子网和VLSM
·JavaScript教程(5)-在JavaScript中创
·与DVDrip的亲密接触-制作篇
·把VB的程序写成VBScript方式放在VBS文
·详细解析选路信息协议（RIP）
·JavaScript教程(6)-JavaScript对象系
我自己编写了如下3个函数，用来取代 len()、left()、right()，希望能解决您的问题。
'--------------------------------------------------------
'Name: lenX
'Argument: uStr
'Return:
'Description: 返回字符串的长度，1个中文字符长度为2
'--------------------------------------------------------
function lenX(byval uStr)
dim theLen,x,testuStr
theLen = 0
for x = 1 to len(uStr)
testuStr = mid(uStr,x,1)
if asc(testuStr) < 0 then
theLen = theLen + 2
else
theLen = theLen + 1
end if
next
lenX = theLen
end function
'--------------------------------------------------------
'Name: leftX
'Argument: uStr 待处理的字符串
' uLen 要截取的长度
'Return:
'Description: 返回指定长度的字符串，1个中文字符长度为2
'--------------------------------------------------------
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
'--------------------------------------------------------
'Name: rightX
'Argument: uStr 待处理的字符串
' uLen 要截取的长度
'Return:
'Description: 返回指定长度的字符串，1个中文字符长度为2
'--------------------------------------------------------
function rightX(byval uStr,byval uLen)
dim i,j,uTestStr
rightX = ""
j = 0
for i = len(uStr) to 1 step -1
uTestStr = mid(uStr,i,1)
rightX = rightX & uTestStr
if asc(uTestStr) < 0 then
j = j + 2
else
j = j + 1
end if
if j >= uLen then exit for
next
end function
- 最新文章
- Microsoft(R) Visual Basic(R) S..[01-11]
- VBScript 运算符(+)[01-11]
- VBScript 语法错误[01-11]
- VBScript 与窗体（十）[01-11]
- VBScript 与窗体[01-11]
- VBScript 页面的简单样例[01-11]
- 相关文章
- VBScript 运算符(+)[01-11]
- VBScript 语法错误[01-11]
- VBScript 与窗体（十）[01-11]
- VBScript 与窗体[01-11]
- VBScript 页面的简单样例[01-11]
- VBScript 循环语句[01-11]
