给你两个通俗易懂的例子:
例1:求instr(1,"Visual Basic","B")的值是多少?
解:instr函数的用途是查找第二个字符在第一个字符的位置,那么字符"B"在字符串"Visual Basic"中的位置是多少呢?显而易见了吧?
运行结果肯定是:8
例2:求instr(1,"我是中国人!","中国人")的值是多少?
解:解决了第一题,那第二题也不难吧,第一题中的第二个字符是单个字符"B",而第二题中的第二个字符是一个字符串,但这个函数的返回值是一样的!
运行结果是多少,自己应该胸有成竹了吧?
通过以上两个实例,我想应该清楚了吧!!!
InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。
这个很简单,他的格式是:
InStr([start, ]string1, string2[, compare])
你要把这个语法理解了,就没问题了!
其中:
start:设置开始查找的位置,可以省略,省略时默认从第一个字符开始查找,
string1是源字符
string2可以说是关键字
最后一个compare别管他啥2进制,一般找字符串就理解为是否区分大小写,如你的例题,返回6的那句,把他的值设为1,就是不区分大小写,因为是从第四个字符开始往后找,而且不区分大小写,所以返回值才是6
还如你的例子,返回值是9的那句,
MyPos = Instr(1, SearchString, SearchChar, 0)
这句的意思是,从第一个字符开找,并且compare是0,就是区分大小写,所以第9个字符是大写P,所以返回值是9
还有,如果找不到,返回值是 0
这样应该明白了吧,
instr是函数吧 后面括号是实参吧,...
如果不是 可以当我不存在,..
InStr 函数
请参阅
InstrRev 函数
要求
版本 1
返回某字符串在另一字符串中第一次出现的位置。
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" ' 要搜索的字符串。
SearchChar = "P" ' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1) ' 在位置 4 进行的文本比较。返回 6。
MyPos = Instr(1, SearchString, SearchChar, 0) ' 在位置 1 进行的二进制比较。返回 9。
MyPos = Instr(SearchString, SearchChar) ' 默认情况下,进行的是二进制比较(省略了最后的参数)。返回 9。
MyPos = Instr(1, SearchString, "W") ' 在位置 1 进行的二进制比较。返回 0(找不到 "W")。
注意 InStrB 函数使用包含在字符串中的字节数据,所以 InStrB 返回的不是一个字符串在另一个字符串中第一次出现的字符位置,而是字节位置。
instr返回指定字符串在目标字符串的第一个出现的位置
比如:
当spath="abcdefghijklmnsamplesopqrst",
nPos = InStr(sPath, "samples") 执行之后,nPos的值就等于15 。
也就是说"."在label1.Caption的位置
InStr(1, label1.Caption, ".") 意思就是说 从label的标题第一位开始 搜索 . 号 看是否存在 如果存在 返回的数就是.在标题中的位置
如label1.caption="vb.net" 则返回3