狂送100分（43--string)

[binbin2000]

如何知道一个字符串是否在另外一个字符串中，
比如abc在abcd这个字符串中。请给点代码。

[lihonggen0]

MsgBox InStr(1, "abcd", "abc")
MsgBox InStr(1, "abcd", "bc")

[chenkangli]

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
VBA.Strings 的成员
返回在另一字符串中第一次出现某一字符串的位置

[junki]

MsgBox InStr(1, "abcd", "abc")
MsgBox InStr(1, "abcd", "bc")
如在Msgbox对话框中，显示数字，则说明字符串"abc"包含在"abcd"中

[lihonggen0]

MsgBox InStr("abcd", "abc")
MsgBox InStr("abcd", "bc")


InStr 函数

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

语法

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

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

部分 说明
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。


设置

compare 参数设置为：

常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。


返回值

如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start > string2 0

[zhenglc]

Instr

[VVV_lucky]

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])

[hisofty]

在对象浏览器中搜instr，可以找到类似 函数

[dandy1437]

Instr 函数

[dandy1437]

instr 函数

[miranda516]

MsgBox InStr("abcd", "abc")
MsgBox InStr("abcd", "bc")

InStr 函数

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

[mudai]

顶一下吧

[cloudtarget]

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])

[strongfisher]

MsgBox InStr(1, "abcd", "abc")

[落伍者]

up!

[onlineboy]

up

[tanyx]

好好好，还 UP 哪？这么简单的问题，都能说出花来了。

[lemon2000]

大哥like不行吗？？