vb常用函数3

1、Left 函数——返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。

语法：Left(string, length)

Left 函数的语法有下面的命名参数：
string——必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返            回 Null。 
length——必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。  

 

2、Mid 函数——从字符串中返回指定数目的字符。       

语法：Mid(string, start[, length])

参数

string ——字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。

Start—— string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。

Length——要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。

说明：要判断 string 中字符的数目，可使用 Len 函数。      

下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：

Dim MyVar

MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含 "scrīpt"。

注意   MidB 函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。

 

3、Len 函数——返回字符串内字符的数目，或是存储一变量所需的字节数。
语法：Len(string | varname)

参数

String——任意有效的字符串表达式。如果 string 参数包含 Null，则返回 Null。

Varname——任意有效的变量名。如果 varname 参数包含 Null，则返回 Null。

说明：下面的示例利用 Len 函数返回字符串中的字符数目：

Dim MyString

MyString = Len("VBscrīpt") 'MyString 包含 8。

注意：   LenB 函数与包含在字符串中的字节数据一起使用。LenB 不是返回字符串中的字符数，而是返回用于代表字符串的字节数。

 

4、Right 函数——从字符串右边返回指定数目的字符。
语法：Right(string, length)

参数

string ——字符串表达式，其最右边的字符被返回。如果 string 参数中包含 Null，则返回 Null。

Length——数值表达式，指明要返回的字符数目。如果为 0，返回零长度字符串；如果此数大于或等于 string 参数中的所有字符数目，则返回整个字符串。

说明：要确定 string 参数中的字符数目，使用 Len 函数。

下面的示例利用 Right 函数从字符串右边返回指定数目的字符：

Dim AnyString, MyStr

AnyString = "Hello World"      ' 定义字符串。

MyStr = Right(AnyString, 1)    ' 返回 "d"。

MyStr = Right(AnyString, 6)    ' 返回 " World"。

MyStr = Right(AnyString, 20)   ' 返回 "Hello World"。

注意： RightB 函数用于字符串中的字节数据，length 参数指定返回的是字节数目，而不是字符数目。

 

5、InStr 函数——返回某字符串在另一字符串中第一次出现的位置。
   语法：InStr([start, ]string1, string2[, compare])

参数

Start——可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 Null，则会出现错误。如果已指定 compare，则必须要有 start 参数。

string1——必选项。接受搜索的字符串表达式。

string2——必选项。要搜索的字符串表达式。

compare ——可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。

设置--compare 参数可以有以下值：常数、值、描述
vbBinaryCompare
 0
 执行二进制比较。
 
vbTextCompare
 1
 执行文本比较。
 

返回值

InStr 函数返回以下值：

如果
 InStr 返回
 
string1 为零长度
 0
 
string1 为 Null
 Null
 
string2 为零长度
 start
 
string2 为 Null
 Null
 
string2 没有找到
 0
 
在 string1 中找到 string2
 找到匹配字符串的位置
 
start > Len(string2)
 0
 

说明

下面的示例利用 InStr 搜索字符串：

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP"   ' 要搜索的字符串。

SearchChar = "P"   ' Search for "P".

MyPos = Instr(4, SearchString, SearchChar, 1)   ' 在位置 4 进行的文本比较。返回 6。

MyPos = Instr(1, SearchString, SearchChar, 0)   ' 在位置 1 进行的二进制比较。返回 9。

MyPos = Instr(SearchString, SearchChar)   ' 默认情况下，进行的是二进制比较（省略了最后的参数）。返回 9。

MyPos = Instr(1, SearchString, "W")   ' 在位置 1 进行的二进制比较。返回 0（找不到 "W"）。

注意   InStrB 函数使用包含在字符串中的字节数据，所以 InStrB 返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。

 

6、LTrim、RTrim与 Trim 函数——返回不带前导空格 (LTrim)、后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本。
语法：LTrim(string)

      RTrim(string)

      Trim(string)

String——参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。

说明：下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格：

Dim MyVar

MyVar = LTrim("   vbscrīpt ")   'MyVar 包含 "vbscrīpt "。

MyVar = RTrim("   vbscrīpt ")   'MyVar 包含 "   vbscrīpt"。

MyVar = Trim("   vbscrīpt ")   'MyVar 包含 "vbscrīpt"。

 

7、Rnd 函数——返回一个随机数。
语法：Rnd[(number)]

Number——参数可以是任意有效的数值表达式。

说明： Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式：

如果 number 为Rnd 生成
小于零——每次都相同的值，使用 number 作为种子。

大于零——序列中的下一个随机数。

等于零——最近生成的数。

省略——序列中的下一个随机数。
    因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。

    在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有基于系统计时器的种子。

    要产生指定范围的随机整数，请使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

   这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。

注意   要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。

 

8、Randomize 语句——初始化随机数生成器。
语法：Randomize [number]