博客园  :: 首页  :: 联系 :: 订阅 订阅  :: 管理

Lotus中关于字符串处理的函数汇总

Posted on 2009-08-27 10:11  生鱼片  阅读(1305)  评论(0编辑  收藏  举报

我们在使用LotusScript编写代理程序的时候,很多时候我们会遇到需要处理字符串的情况,本文就对平时遇到的相关函数做一个汇总。

 

Sub Initialize
 
Dim testStr As String
 testStr
="这是一个很普通的字符串"
 
 
Msgbox Right(testStr,3
 
'字符串 取右边三个
 
 
Msgbox Left(testStr,3
 
'这是一  取左边三个
 
 
Msgbox Rightbp(testStr, 5)    
 
'符串 从右边取5个字节的字串,一个汉字两个字节,故5只能取到两个字
 
 
Msgbox Leftbp(testStr, 5
 
'这是  从左边取5个字节的字串,一个汉字两个字节,故5只能取到两个字
 
 
Msgbox Strright(testStr, "普通"
 
'的字符串 指定子串右边的子串
 
 
Msgbox Strleft(testStr, "普通" )
 
'这是一个很  指定子串左边的子串
 
 
Msgbox Strrightback(testStr, "普通" ) 
 
'的字符串 指定子串右边的子串
 
 
Msgbox Strleftback(testStr, "普通"  )
 
'这是一个很 指定子串左边的子串
 
 
Msgbox Strtoken(testStr, "普通"1)  
 
'这是一个很
 
 
Msgbox Instr(testStr,"普通"  )   
 
'6
 
 
Msgbox Instrb(testStr,"普通"  )
 
'11
 
 
Msgbox Instrbp(testStr,"普通" )
  
'11
 
 
Msgbox Mid(testStr, 5
 
'很普通的字符串
 
 
Msgbox Midbp(testStr, 5
 
'一个很普通的字符串
 
End Sub
这个汇总会随时更新,也希望大家补充.