MS Access 中的 InStr() 和 InstrRev()函数

在 MS Access 中，InStr() 和 InstrRev() 是用于查找字符串的函数。

InStr() 函数

InStr() 函数用于返回一个特定子字符串在一个字符串中第一次出现的位置。其语法如下：

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

其中，参数解释如下：

• start：可选参数。开始查找的位置，默认为 1。
• string1：必选参数。要查找的字符串。
• string2：必选参数。要查找的子字符串。
• compare：可选参数。指定比较大小写的方式，可以是以下三个值之一：
  • vbBinaryCompare：执行二进制比较。
  • vbTextCompare：执行文本比较。
  • vbDatabaseCompare：执行数据库比较。

InStr() 函数的返回值为子字符串在字符串中的位置。如果找不到子字符串，则返回0。

下面是一个使用 InStr() 函数的例子：

Dim searchStr As String
searchStr = "This is a test string"
MsgBox InStr(1, searchStr, "test") ' 输出 11
MsgBox InStr(1, searchStr, "Test") ' 输出 0
MsgBox InStr(1, searchStr, "TEST", vbTextCompare) ' 输出 11

InstrRev() 函数

InstrRev() 函数与 InStr() 函数类似，不同的是它返回最后一次出现的子字符串的位置。其语法如下：

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

其中，参数解释如下：

• string1：必选参数。要查找的字符串。
• string2：必选参数。要查找的子字符串。
• start：可选参数。开始查找的位置，默认为字符串的末尾。
• compare：可选参数。指定比较大小写的方式，可以是以下三个值之一：
  • vbBinaryCompare：执行二进制比较。
  • vbTextCompare：执行文本比较。
  • vbDatabaseCompare：执行数据库比较。

InstrRev() 函数的返回值为子字符串在字符串中的位置。如果找不到子字符串，则返回0。

下面是一个使用 InstrRev() 函数的例子：

Dim searchStr As String
searchStr = "This is a test string for testing the InstrRev() function"
MsgBox InstrRev(searchStr, "test") ' 输出 29
MsgBox InstrRev(searchStr, "test", 25) ' 输出 11
MsgBox InstrRev(searchStr, "TEST", , vbTextCompare) ' 输出 29

总结

在 MS Access 中，InStr() 和 InstrRev() 函数都是很有用的字符串查找函数。它们可以帮助我们轻松查找特定的子字符串。使用时我们需要注意函数的参数，特别是比较大小写的方式。