INSTRREV

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgInstrrev
• 最后更新: 2025-08-29

---

在字符串中定位子字符串或字符的最后一次出现位置

语法

declare function Instrrev ( byref str as const string, [ Any ] byref substring as const string, byval start as integer = -1 ) as integer
declare function Instrrev ( byref str as const wstring, [ Any ] byref substring as const wstring, byval start as integer = -1 ) as integer

用法

last = Instrrev( str, [ Any ] substring [, start ] )

参数

str

要搜索的字符串。

substring

要查找的子字符串。

start

搜索开始的位置（在 str 中）。第一个字符的位置为 1。

返回值

substring 在 str 中最后一次出现的位置。

说明

定位子字符串或字符在字符串中的最后一次出现位置。若未提供 start 参数或其值小于零，则从最后一个字符开始搜索。

以下情况返回零（0）：

• 未找到 substring，或
• str 或 substring 为空字符串，或
• start 为零，或
• start 大于 str 的长度。

若指定了 Any 关键字，Instrrev 返回 substring 中任意字符的最后一次出现位置。

示例

' It will return 4
Print INSTRREV("abcdefg", "de")

' It will return 0
Print INSTRREV("abcdefg", "h")

Dim test As String
Dim idx As Integer

test = "abababab"
idx = instrrev(test, "b")

Do While idx > 0 'if not found loop will be skipped
    Print """b"" at " & idx
    idx = instrrev(Test, "b", idx - 1)
Loop

Unicode 示例：

dim text as wstring*20
text = "Привет, мир!"
print instrrev(text,"ет") ' displays 5

平台差异

• DOS 目标不支持 Instrrev 的宽字符字符串版本。

方言差异

• 在 -lang qb 方言中不可用，除非使用别名 __Instrrev 引用。

与 QB 的差异

• FreeBASIC 新增

另请参阅

• Instr
• Mid（函数）

返回 目录