○以下用法和len(),lift(),ri...... 以下用法和len(),lift(),right()一样。 Function Strlength(Str) Temp_Str=Len(Str) For I=1 To Temp_Str Test_Str=(Mid(Str,I,1)) If Asc(Test_Str)>0 Then Strlength=Strlength+1 Else Strlength=Strlength+2 End If Next End Function Function Strleft(Str,L) Temp_Str=Len(Str) For I=1 To Temp_Str Test_Str=(Mid(Str,I,1)) Strleft=Strleft&Test_Str If Asc(Test_Str)>0 Then lens=lens+1 Else lens=lens+2 End If If lens>=L Then Exit For Next End Function Function Strright(Str,L) Temp_Str=Len(Str) For i = Temp_Str to 1 step -1 Test_Str=(Mid(Str,I,1)) Strright=Test_Str&Strright If Asc(Test_Str)>0 Then lens=lens+1 Else lens=lens+2 End If If lens>=L Then Exit For Next End Function |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-29 21:19 , Processed in 0.096211 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.