QTP常用函数及验证邮箱是否符合格式要求

一,我们闲看下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)<>"."   '往字符串右边数，最后一个字符不是"."