我们在使用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
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
这个汇总会随时更新,也希望大家补充.
本文转自生鱼片博客园博客,原文链接:http://www.cnblogs.com/carysun/archive/2009/08/27/lotus-stringfunc.html,如需转载请自行联系原作者