CStr 函数
返回表达式，该表达式已被转换为 String 子类型的 Variant。
CStr(expression)
expression 参数是任意有效的表达式。
说明
通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，使用 CStr 强制将结果表示为 String。
CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。
expression 根据下表决定返回的数据：
如果 expression 为
CStr 返回
Boolean
字符串，包含 True 或 False。
Date
字符串，包含系统的短日期格式日期。
Null
运行时错误。
Empty
零长度字符串 ("")。
Error
字符串，包含跟随有错误号码的单词
Error。
其他数值
字符串，包含此数字。
下面的示例利用 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 参数可以有以下值：
常数
值
描述
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" ' 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 参数可以有以下值：
常数
Value
描述
vbBinaryCompare
0
执行二进制比较。
vbDatabaseCompare
2
执行基于包含在数据库(在此数据库中执行比较)中的信息的比较。
返回值
InStrRev 返回以下值：
如果
InStrRev 返回
string1 为零长度
0
string1 为 Null
Null
string2 为零长度
start
string2 为 Null
Null
string2 没有找到
0
在 string1 中找到 string2
找到匹配字符串的位置
start > Len(string2)
0
说明
下面的示例利用 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 参数可以有以下值：
常数
值
描述
vbBinaryCompare
0
执行二进制比较。
vbTextCompare
1
执行文本比较。
返回值
Replace 返回以下值：
如果
Replace 返回
expression 为零长度
零长度字符串 ("")。
expression 为 Null
错误。
find 为零长度
expression 的副本。
replacewith 为零长度
expression 的副本，其中删除了所有由 find 参数指定的内容。
start > Len(expression)
零长度字符串。
count 为 0
expression 的副本。
说明
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 参数可以有以下值：
常数
值
描述
vbBinaryCompare
0
执行二进制比较。
vbTextCompare
1
执行文本比较。
说明
下面的示例利用 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 参数可以有以下值：
常数
值
描述
vbBinaryCompare
0
执行二进制比较。
vbTextCompare
1
执行文本比较。
返回值
StrComp 函数有以下返回值：
如果
StrComp 返回
string1 小于 string2
-1
string1 等于 string2
0
string1 大于 string2
1
string1 或 string2
Null
说明
下面的示例利用 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"。
860
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
