VB中如何实现文本查找功能

实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法：

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

这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现： pos=InStr(1,"abcdefg","cd")

则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

下面举例说明：

放置一个文本框TEXT1供用户输入文本或调入文本文件，用来做在其中查找文本的验证，放置另一个文本框TEXT2供用户输入要查找的字符串，放置两个命令按钮，Command1、Command2，其标题分别为“查找”、“查找下一个”。

在窗体的总体声明部分写如下代码 ：

　Option Explicit '定义目标位置变量

　Private TargetPosition As Integer

　 '编写一个查找函数

　Private Sub FindText(ByVal start_at As Integer)

　Dim pos As Integer

　Dim target As String

　'获取用户输入的要查找的字符串

　target = text2Text

　pos = InStr(start_at, text1Text, target)

　If pos > 0 Then

'找到了匹配字符串

TargetPosition = pos

text1SelStart = TargetPosition - 1

'选中找到的字符串

text1SelLength = Len(target)

text1SetFocus

　Else '没有找到匹配的字符串

　MsgBox "没找到！"

　text1SetFocus

　End If

　End Sub

　'双击“查找”命令按钮:

　Private Sub command1_Click() '从第一个字符处开始查找

　FindText 1

　End Sub

　'双击“查找下一个”按钮：

　Private Sub command2_Click() '从当前位置继续查找

　FindText TargetPosition + 1

　End Sub

运行程序，在文本框1中输入一些字符串，在文本框2中输入要查找的字符串，单击 “查找”按钮和“查找下一个”按钮进行验证。

数据量不大的话建议别用数据库，用文本文件作为数据库即可。

数据内容用逗号隔开即可，比如libtxt文件内容如下：

123,50元,LI4321

124,51元,LI1321

125,52元,LI2321

126,53元,LI3321

127,54元,LI5321

代码内容如下，放在Form窗体的Load事件或按钮的Click事件里都可以：

Dim searchStr As String

searchstr = InputBox("输入查询型号")

Open "libtxt" For Input As #1

Do While Not Eof(1)

Input #1,s1,s2,s3

If Instr(1,s1,searchStr)>0 Then

Msgbox "找到匹配型号" & s1 & "，价格是" & s2 & "元，适用于机型" & s3

Exit Do

End If

Loop

Close #1

是不是很简单就可以搞定了 :D

如果觉得回答满意，请给我 1338分即可，这样我就又升一级了，呵呵。

用文件列表框的Filename的属性。不过要看看资料，它返回的是文件名字。在配合PATH的属性，把路径和名字一起加上就行。PATH的属性，你要看看。因为根目录里的文件和文件夹里的文件调出不一样。PATH的最后一个文件夹路径不会自动添加"\"，自己要加上（提示：用right的函数，例如if right(dir1path,"\") then ），自己编吧。

Private Sub Command1_Click()

  MeCls

  Dim N As Integer, i As Integer

  N = InputBox("n=", , 9)

  For i = 1 To 2  N - 1

    If i <= N Then

      Print Space(N - i) + String(2  i - 1, CStr(i))

    Else

      Print Space(N - (2  N - i)) + String(2  (2  N - i) - 1, CStr(2  N - i))

    End If

  Next i

End Sub

把文件里面的东东给调出来？？

<br>是搜索文本文件中的文本？还是搜索文件夹中的文件？？

<br>麻烦楼主说清楚点，也许我会帮上忙的。

我的百度空间>

VB60连接EXCEL设置方法

1 工程 引入 Microsoft Excel 120 Object Library ，这里的120 可能会因为office版本不同而不同。

2 代码程序通用部分定义

Dim xlApp As ExcelApplication

Dim xlBook As ExcelWorkbook

Dim xlSheet As ExcelWorksheet

3打开EXCEL文件

CommonDialog1ShowOpen '选择文件路径

Text1Text = CommonDialog1FileName '将路径给TEXT1TEXT

filePath = Text1Text

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

xlAppVisible = ture '设置EXCEL对象可见

Set xlBook = xlAppWorkbooksOpen(filePath) '打开EXCEL工作簿

Set xlSheet = xlBookWorksheets(1) '设置活动工作表sheet,可以按名字可以可以按序号

Text2(0)Text = xlSheetCells(6, 1) '将A6内容填入TEXT2(0)TEXT

Text2(1)Text = xlSheetCells(7, 1) 'A7

Text2(2)Text = xlSheetCells(8, 1) 'A8

Text2(3)Text = xlSheetCells(9, 1)

Text2(4)Text = xlSheetCells(10, 1)

1、首先在桌面上，鼠标左键双击程序，在打开的VB6主界面上。

2、其次点击左边工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1。

3、最后在其属性窗口上改个名字，点击运行即可。

以上就是关于VB中如何实现文本查找功能全部的内容，包括:VB中如何实现文本查找功能、VB制作 产品价格查询软件、VB做个查看图片的小程序，请高手帮忙等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！