CStr 函数

返回表达式，该表达式已被转换为 String 子类型的 Variant。

CStr(expression)

expression 参数是任意有效的表达式。

说明

通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。

例如，使用 CStr 强制将结果表示为 String。

CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。

例如对十进制分隔符的识别取决于系统的区域设置。

expression 根据下表决定返回的数据：

下面的示例利用 CStr 函数把数字转换为 String:

Dim MyDouble, MyString MyDouble = 437.324 ' MyDouble 是双精度值。 MyString = CStr(MyDouble) ' MyString 包含 "437.324"。  

InStr 函数

 返回某字符串在另一字符串中第一次出现的位置。
 InStr([start, ]string1, string2[, compare])  

参数

 start
可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 Null，则会出现错误。

如果已指定 compare，则必须要有 start 参数。
string1
必选项。接受搜索的字符串表达式。
string2
必选项。要搜索的字符串表达式。
compare
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。  

设置

 compare 参数可以有以下值：  

返回值

 InStr 函数返回以下值：  

说明

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

Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' String to search in. SearchChar = "P" ' Search for "P". 

MyPos = Instr(4, SearchString, SearchChar, 1) ' A textual comparison starting at position 4. Returns 6. MyPos = Instr(1, SearchString, SearchChar, 0) ' A binary comparison starting at position 1. Returns 9.  

MyPos = Instr(SearchString, SearchChar) ' Comparison is binary by default (last argument is omitted). Returns 9. MyPos = Instr(1, SearchString, "W") ' A binary comparison starting at position 1. Returns 0 ("W" is not found).  

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

InStrRev 函数

 返回某字符串在另一个字符串中出现的从结尾计起的位置。 
 InStrRev(string1, string2[, start[, compare]])  

参数

 string1 
必选项。接受搜索的字符串表达式。 
string2 
必选项。被搜索的字符串表达式。 
Start 
可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，则默认值为 -1，表示从最后一个字符的位置开始搜索。如果 start 包含 Null，则出现错误 
compare 
可选项。在计算子字符串时，指示要使用的比较类型的数值。如果省略，将执行二进制比较。有关数值，请参阅“设置”部分。  

设置

 compare 参数可以有以下值： 
  

返回值

 InStrRev 返回以下值： 
  

说明

 下面的示例利用 InStrRev 函数搜索字符串：  

Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' String to search in. SearchChar = "P" ' Search for "P". 

MyPos = InstrRev(SearchString, SearchChar, 10, 0) ' A binary comparison starting at position 10. Returns 9. 

MyPos = InstrRev(SearchString, SearchChar, -1, 1) ' A textual comparison starting at the last position. Returns 12. 

MyPos = InstrRev(SearchString, SearchChar, 8) ' Comparison is binary by default (last argument is omitted). Returns 0.  

 注意 InStrRev 函数的语法与 InStr 函数的语法并不一样。 
  

Join 函数

 返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建。 
 Join(list[，delimiter])  

参数

 list 
必选项。包含要联接的子字符串一维数组。 
Delimiter 
可选项。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 ("")。如果 delimiter 是零长度字符串，

则在同一列表中列出全部项，没有分界符。  

说明

 下面的示例利用 Join 函数联合 MyArray 的子字符串：  

Dim MyString Dim MyArray(3) MyArray(0) = "Mr." MyArray(1) = "John " MyArray(2) = "Doe " MyArray(3) = "III" MyString = Join(MyArray) 

'MyString 包含 "Mr. John Doe III"。  

LCase 函数

 返回字符串的小写形式。
 LCase(string)
 string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。  

说明

 仅大写字母转换成小写字母；所有小写字母和非字母字符保持不变。
下面的示例利用 LCase 函数把大写字母转换为小写字母：  

Dim MyString Dim LCaseString MyString = "VBSCript" LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。  

Left 函数

 返回指定数目的从字符串的左边算起的字符。
 Left(string, length)  

参数

 string
 字符串表达式，其最左边的字符被返回。如果 string 参数中包含 Null，则返回 Null。
Length
 数值表达式，指明要返回的字符数目。如果是 0，返回零长度字符串 ("")；如果大于或等于 string 参数中的字符总数，则返回整个字符串。  

说明

 可使用 Len 函数确定 string 参数中的字符数目。
下面的示例利用Left 函数返回MyString 的左边三个字母：  

Dim MyString, LeftString MyString = "VBSCript" LeftString = Left(MyString, 3) 'LeftString 包含 "VBS"。  

 注意 LeftB 函数与包含在字符串中字节数据一起使用。length 不是指定返回的字符串数，而是字节数。 
  

Len 函数

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

参数

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

说明

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

Dim MyString MyString = Len("VBSCRIPT") 'MyString 包含 8。  

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

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

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

Replace 函数

 返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。 
 Replace(expression, find, replacewith[, compare[, count[, start]]])  

参数

 expression 
必选项。字符串表达式 包含要替代的子字符串。 
Find 
必选项。被搜索的子字符串。 
Replacewith 
必选项。用于替换的子字符串。 
Start 
可选项。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用 
count 
可选项。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。 
Compare 
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。  

设置

 compare 参数可以有以下值： 
  

返回值

 Replace 返回以下值： 
  

说明

 Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。 
下面的示例利用 Replace 函数返回字符串：  

Dim MyString MyString = Replace("XXpXXPXXp", "p", "Y") '二进制比较从字符串左端开始。返回 "XXYXXPXXY"。 

MyString = Replace("XXpXXPXXp", "p", "Y", '文本比较从第三个字符开始。返回 "YXXYXXY"。3，, -1, 1)   

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

Space 函数

 返回由指定数目的空格组成的字符串。 
 Space(number) 
 number 参数为字符串中用户所需的空格数。  

说明

 下面的示例利用 Space 函数返回由指定数目空格组成的字符串：  

Dim MyString MyString = Space(10) ' 返回具有 10 个空格的字符串。 MyString = "Hello" & Space(10) & "World" 

' 在两个字符串之间插入 10 个空格。  

Split 函数

 返回基于 0 的一维数组，其中包含指定数目的子字符串。
 Split(expression[, delimiter[, count[, start]]])  

参数

 expression
必选项。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。
delimiter
可选项。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串，

则返回包含整个 expression 字符串的单元素数组。
count
可选项。被返回的子字符串数目，-1 指示返回所有子字符串。
Compare
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。  

设置

 compare 参数可以有以下值：  

说明

 下面的示例利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。  

Dim MyString, MyArray, Msg MyString = "VBScriptXisXfun!" MyArray = Split(MyString, "x", -1, 1) ' MyArray(0) contains "VBScript". 

' MyArray(1) contains "is". ' MyArray(2) contains "fun!". Msg = MyArray(0) & " " & MyArray(1) Msg = Msg & " " & MyArray(2) MsgBox Msg  

StrComp 函数

 返回一个表明字符串比较结果的值。
 StrComp(string1, string2[, compare])  

参数

 string1
必选项。任意有效的字符串表达式。
string2
必选项。任意有效的字符串表达式。
Compare
可选项。指示在计算字符串时使用的比较类型的数值。如果省略，则执行二进制比较。有关数值，请参阅“设置”部分。  

设置

 compare 参数可以有以下值：  

返回值

 StrComp 函数有以下返回值：  

说明

 下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。  

Dim MyStr1, MyStr2, MyComp MyStr1 = "ABCD": MyStr2 = "abcd" '定义变量。 MyComp = StrComp(MyStr1, MyStr2, 1) ' 返回 0。 

MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1。 MyComp = StrComp(MyStr2, MyStr1) ' 返回 1。  

String 函数

 返回具有指定长度的、重复字符组成的字符串。
 String(number, character)  

参数

 number
返回字符串的长度。如果 number 参数包含 Null，则返回 Null。
Character
指定字符或字符串表达式的字符代码，其中字符串表达式的第一个字符用于组成返回的字符串。如果 character 参数包含 Null，则返回 Null。  

说明

 如果指定的 character 值大于 255，则 String 使用下列公式将该数转换成有效的字符代码：  

character Mod 256  

 下面的示例利用 String 函数返回指定长度的由重复字符组成的字符串：  

Dim MyString MyString = String(5, "*") ' 返回"*****"。 MyString = String(5, 42) ' 返回"*****"。 MyString = String(10, "ABC") 

' 返回"AAAAAAAAAA"。  

StrReverse 函数

 返回字符串，此字符串与指定字符串顺序相反。
 StrReverse(string1)
 string1 参数是要进行字符反向的字符串。如果 string1 是零长度字符串 ("")，则返回零长度字符串。如果 string1 为 Null，则会出现错误。  

说明

 下面的示例利用 StrReverse 函数返回按相反顺序排列的字符串：  

Dim MyStr MyStr = StrReverse("VBScript") 'MyStr 包含 "tpircSBV"。  

UCase 函数

 返回字符串的大写形式。
 UCase(string)
 string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。  

说明

 只有小写字母被转换成大写字母；所有大写字母和非字母字符均保持不变。
下面的示例利用 UCase 函数返回字符串的大写形式：  

Dim MyWord MyWord = UCase("Hello World") ' 返回"HELLO WORLD"。