[ 來源：動網(wǎng) ]
以下用法和len(),lift(),right()一樣。
Function Strlength(Str)Temp_Str=Len(Str)For I=1 To Temp_StrTest_Str=(Mid(Str,I,1))If Asc(Test_Str)>0 ThenStrlength=Strlength+1ElseStrlength=Strlength+2End IfNextEnd FunctionFunction Strleft(Str,L)Temp_Str=Len(Str)For I=1 To Temp_StrTest_Str=(Mid(Str,I,1))Strleft=Strleft&Test_StrIf Asc(Test_Str)>0 Thenlens=lens+1Elselens=lens+2End IfIf lens>=L Then Exit ForNextEnd FunctionFunction Strright(Str,L)Temp_Str=Len(Str)For i = Temp_Str to 1 step -1Test_Str=(Mid(Str,I,1))Strright=Test_Str&StrrightIf Asc(Test_Str)>0 Thenlens=lens+1Elselens=lens+2End IfIf lens>=L Then Exit ForNextEnd Function
來源：http://edu.chinaz.com
上一篇：
簡體中文編碼對應器
下一篇：
巧用ASP生成PDF文件