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