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