如果查找特定的字符串？

Question

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 
说明InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。

Answer 1

TextBox控件没有象RichTextBox控件那样集成有查找即Find功能，为此要在TextBox中查找和继续查找字符串得花点儿心思。我们可以用VB的InStr函数来实现。
InStr函数提供了在一个字符串中查找另一个字符串的功能。我们可以把TextBox中的文本看作是一个字符串，这样，查找就得以实现了。同时，InStr还允许设置查找的起始位置，继续查找功能因而也不难解决。以下是详细的代码：'首先，声明窗体级变量：
Dim Search As String '声明要查找的变量'查找代码：
Dim Where1 '获取需要查找的字符串变量 
Text1.SetFocus '文本框获得焦点，以显示所找到的内容Search = InputBox("请输入要查找的字词：")
Where1 = InStr(Text1.Text, Search) '在文本中查找字符串
If Where1 Then
'若找到则设置选定的起始位置并使找到的字符串高亮
Text1.SelStart = Where1 - 1
Text1.SelLength = Len(Search)
' Me.Caption = Where1 '测试用
'否则给出提示
Else: MsgBox "未找到所要查找的字符串。", vbInformation, "提示"
End If'继续查找 [注意：与“查找”有所不同] 
dim Where2 
Dim StartMe As Integer '查找的起始位置变量
Text1.SetFocus '文本框获得焦点
StartMe = Text1.SelLength + Text1.SelStart + 1 '给变量赋值
where2 = InStr(StartMe, Text1.Text, Search) '令其从上次找到的地方找起
'以下和“查找”的一样了
If where2 Then
Text1.SelStart = where2 - 1
Text1.SelLength = Len(Search) 
Else: MsgBox "未找到所要查找的字符串。", vbInformation, "提示" 
End If ----
 摘自http://www.5xsoft.com/data/200109/0708104501.htm

Answer 2

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 
说明InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。

Answer 3

就是它了
InStr(string1, string2)

Answer 4

那，如果我只是想知道有没有这个字符串，把返回的结果设为一个布尔值ture or false，该怎么做？

Answer 5

InStr 返回 0 或 Null 就代表没有找到，>0 代表找到。