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

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