InStr 函数

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

语法

InStr([start, ]string1,string2[, compare])

InStr 函数的语法具有下面的参数：

设置

 compare 参数设置为：

返回值

说明

InStrB 函数作用于包含在字符串中的字节数据。所以InStrB 返回的是字节位置，而不是字符位置。

使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ‘ 被搜索的字符串。
SearchChar = "P"   ‘ 要查找字符串 "P"。

‘ 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
‘ 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)   

‘ 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
‘ 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)

‘ 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar)   ‘ 返回 9。

MyPos = Instr(1, SearchString, "W")   ‘ 返回 0。

Left 函数

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

语法

Left(string,length)

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

Left 函数来得到某字符串最左边的几个字符。

Dim AnyString, MyStr
AnyString = "Hello World"   ‘ 定义字符串。
MyStr = Left(AnyString, 1)   ‘ 返回 "H"。
MyStr = Left(AnyString, 7)   ‘ 返回 "Hello W"。
MyStr = Left(AnyString, 20)   ‘ 返回 "Hello World"。

Mid 函数

返回 Variant (String)，其中包含字符串中指定数量的字符。

语法

Mid(string,start[, length])

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

Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"   建立一个字符串。
FirstWord = Mid(MyString, 1, 3)   ‘ 返回 "Mid"。
LastWord = Mid(MyString, 14, 4)   ‘ 返回 "Demo"。
MidWords = Mid(MyString, 5)   ‘ 返回 "Funcion Demo"。

Right 函数

返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。

语法

Right(string,length)

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

Right 函数来返回某字符串右边算起的几个字符。

Dim AnyString, MyStr
AnyString = "Hello World"   ‘ 定义字符串。
MyStr = Right(AnyString, 1)   ‘ 返回 "d"。
MyStr = Right(AnyString, 6)   ‘ 返回 " World"。
MyStr = Right(AnyString, 20)   ‘ 返回 "Hello World"。