例如,一个汉字只会算作一个字节,在排版时如果所有的汉字都不说,反正有什么区别,但是如果字符串是汉字和英文字母的操作,不方便,相关函数下面三个函数可以用ASP替换。

还要注意,如果在循环中使用,因为我也是循环不变式变量中常用的,执行下面的函数,我的值会改变,如果它在同一个变量中被称为他的循环,会产生未知的结果,请用其他变量名改变。

下面的用法与()、左()、右()相同。

程序代码
复制代码代码如下所示:
功能strlength(STR)
temp_str = len(str)
我temp_str = 1
test_str =(MID(STR,I,1))
如果ASC(test_str)> 0
strlength = strlength + 1
其他的
strlength = strlength + 2
最后如果
下一个
端功能

函数的Strleft(STR,L)
temp_str = len(str)
我temp_str = 1
test_str =(MID(STR,I,1))
strleft = strlefttest_str
如果ASC(test_str)> 0
镜头=镜头1
其他的
镜头=镜头2
最后如果
如果镜头= L,然后退出
下一个
端功能

函数的Strright(STR,L)
temp_str = len(str)
我= temp_str 1步1
test_str =(MID(STR,I,1))
strright = test_strstrright
如果ASC(test_str)> 0
镜头=镜头1
其他的
镜头=镜头2
最后如果
如果镜头= L,然后退出
下一个
端功能