VB里有这样的函数吗？

[Milly66]

想实现从一个字符串的后面开始查找某个字符，并返回其位置，VB中有没有这种函数呀？
能告诉我吗？

[mylzw]

用Len + InStr 函数就行了。

debug.print Len(Text1.Text) - InStr(1, Text1.Text, Text2.Text) + 1

其中，Text1.text为接受搜索的字符串，Text2.text为要搜索的字符串。

[BlueBeer]

InStrRev函数


描述

返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。

语法

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

InstrRev函数语法有如下几部分：

部分 描述
string1 必需的。要执行搜索的字符串表达式。
string2 必需的。要搜索的字符串表达式。
start 可选的。数值表达式，设置每次搜索的开始位置。如果忽略，则使用–1，它表示从上一个字符位置开始搜索。如果start包含
Null，则产生一个错误。

compare 可选的。数字值，指出在判断子字符串时所使用的比较方法。如果忽略，则执行二进制比较。关于其值，请参阅“设置值”部分。


设置值

compare参数值如下：

常数 值 描述
vbUseCompareOption –1 用Option Compare语句的设置值来执行比较。
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文字比较。
vbDatabaseCompare 2 只用于Microsoft Access。基于您的数据库信息执行比较。


返回值

InStrRev返回值如下：

如果 InStrRev返回
string1长度为零。 0
string1为Null。 Null
string2长度为零 Start
string2为Null Null
string2没有找到。 0
string2在string1中找到。 找到匹配字符串的位置。
start > Len(string2) 0


说明

请注意，InstrRev函数的语法和Instr函数的语法不相同。

[ipman]

InStrRev函数

[yinweihong]

InStrRev函数 返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起
语法
InstrRev(string1,string2[,start[,compare]])
InstrRev函数语法有如下几部分：
部分 描述
string1 必需的。要执行搜索的字符串表达式
string2 必需的。要搜索的字符串表达式
start 可选的。数值表达式，设置每次搜索的开始位置。如果忽略，则使用?，它表示从上一个字符位置开始搜索。如果start包含Null，则产生一个错误
compare 可选的。数字值，指出在判断子字符串时所使用的比较方法。如果忽略，则执行二进制比较。关于其值，请参阅“设置值”部分。
设置值
compare 参数值如下：
常数值描述
VbUseCompareOption -1 用OptionCompare语句的设置值来执行比较
vbBinaryCompare 0 执行二进制比较
vbTextCompare 1 执行文字比较
vbDatabaseCompare 2 只用于MicrosoftAccess。基于您的数据库信息执行比较


返回值
InStrRev返回值如下：
如果 InStrRev返回
string1长度为零 0
string1为Null Null
string2长度为零 Start
string2为Null Null
string2没有找到 0
string2在string1中找到 找到匹配字符串的位置
start>Len(string2) 0
说明 请注意，InstrRev函数的语法和Instr函数的语法不相同。

[yinweihong]

网上找个 VB6参考手册 仔细查一查~