Vb常用函数

Left 函数

返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。 语法

Left(string, length)

Left 函数的语法有下面的命名参数：

部分 说明 string 必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。

length 必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。 说明

欲知 string 的字符数，使用 Len 函数。

注意 LeftB 函数作用于包含在字符串中的字节数据。所以 length 指定的是字节数，而不是要返回的字符数。

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 函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。

Len 函数

返回字符串内字符的数目，或是存储一变量所需的字节数。 Len(string | varname) 参数 string

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

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

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

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

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

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 参数指定返回的是字节数目，而不是字符数目。

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 返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。

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"。

RND公式

Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 以上语句生成的是lowerbound-upperbound之间的整数

将上述Rnd改成Rnd(2)则随机的结果不重复改成Rnd(-1)则重复。其中Int为取整函数

这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。 注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。

Randomize 语句

初始化随机数生成器。 语法

Randomize [number]

可选的 number 参数是 Variant 或任何有效的数值表达式。 说明

Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。

如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。

注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。 Rnd 函数示例

本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。

本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

Dim MyValue

Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。 Split函数

描述

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 语法

Split(expression[, delimiter[, count[, compare]]]) Split函数语法有如下几部分：

部分 描述

expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。

delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。

count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。

设置值

compare参数的设置值如下：

常数 值 描述

vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。 vbBinaryCompare 0 执行二进制比较。 vbTextCompare 1 执行文字比较。

vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。

Replace 函数

返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。

Replace(expression, find, replacewith[, compare[, count[, start]]]) 参数

expression

必选项。字符串表达式包含要替代的子字符串。 Find

必选项。被搜索的子字符串。 Replacewith

必选项。用于替换的子字符串。 Start

可选项。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用 count

可选项。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。 Compare