一,我们闲看下QTP中常用的一些函数
1)InStr 函数
返回某字符串在另一字符串中第一次出现的位置。
InStr([start, ]string1, string2[, compare])
2)Right 函数
从字符串右边返回指定数目的字符。
Right(string, length) 举例：Dim AnyString, MyStr AnyString = "Hello World" ' 定义字符串。
MyStr = Right(AnyString, 1) ' 返回 "d"。
MyStr = Right(AnyString, 6) ' 返回 " World"。
MyStr = Right(AnyString, 20) ' 返回 "Hello World"。
3)Len 函数
返回字符串内字符的数目，或是存储一变量所需的字节数。
Len(string | varname) 举例：Dim MyString MyString = Len("VBSCRIPT") 'MyString 包含 8。
4)LTrim、RTrim与 Trim 函数
返回不带前导空格 (LTrim)、后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本。LTrim(string) RTrim(string) Trim(string)
举例：
Dim MyVar
MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。
MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。
MyVar = Trim(" vbscript ") 'MyVar 包含 "vbscript"。
5)Rnd 函数 返回一个随机数。Rnd[(number)] number 参数可以是任意有效的数值表达式。
说明 Rnd 函数返回一个小于 1 但大于或等于 0 的值。
6)Randomize 语句 初始化随机数生成器。
语法 Randomize [number] 可选的 number 参数是 Variant 或任何有效的数值表达式
7)IsNumeric 判断是为数字，返回boolean值
二,邮箱验证代码
Dim MailAddr
MailAddr="42178@qq.com"
If InStr(1, MailAddr, "@") > 1 And InStr(3, MailAddr, ".") And Right(MailAddr, 1) <> "." Then
msgbox(true)
else
msgbox(false)
end if
解析：InStr(1, MailAddr, "@") '判断第一个字符不是@；
InStr(3,MailAddr,".") '判断最多第三个字符为"."
Right(MailAddr,1)<>"." '往字符串右边数，最后一个字符不是"."