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 包含 "Script"。

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

 

Len 函数

返回字符串内字符的数目，或是存储一变量所需的字节数。

Len(string | varname)

参数

string

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

Varname

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

说明

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

Dim MyString

MyString = Len("VBSCRIPT") '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("   vbscript ")   'MyVar 包含 "vbscript "。

MyVar = RTrim("   vbscript ")   'MyVar 包含 "   vbscript"。

MyVar = Trim("   vbscript ")   'MyVar 包含 "vbscript"。

 

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 不能重复先前的随机数序列。

 

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(exdivssion[, delimiter[, count[, compare]]])

Split函数语法有如下几部分：

部分	描述
exdivssion	必需的。包含子字符串和分隔符的字符串表达式 。如果exdivssion是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
delimiter	可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 exdivssion字符串。
count	可选的。要返回的子字符串数，–1表示返回所有的子字符串。
compare	可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。

 

设置值

compare参数的设置值如下：

常数	值	描述
vbUseCompareOption	–1	用Option Compare语句中的设置值执行比较。
vbBinaryCompare	0	执行二进制比较。
vbTextCompare	1	执行文字比较。
vbDatabaseCompare	2	仅用于Microsoft Access。基于您的数据库的信息执行比较。

 

Replace 函数

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

Replace(exdivssion, find, replacewith[, compare[, count[, start]]])

参数

exdivssion

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

Find

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

Replacewith

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

Start

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

count

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

Compare

可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。

设置

compare 参数可以有以下值：

常数	值	描述
vbBinaryCompare	0	执行二进制比较。
vbTextCompare	1	执行文本比较。

返回值

Replace 返回以下值：

如果	Replace 返回
exdivssion 为零长度	零长度字符串 ("")。