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

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

2009-09-27 19:55

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,"普通" )