Question

vb查询制定字符串

现在有一个vb小程式。

text1输入要查询的字符串，一个查询按钮

在text1中输入111，点击查询后，自动找到并打开c盘下a.txt文件。将里面111的字符串用蓝底色显示出来。现在找到并打开txt文件已近实现了，就是不会写查询字符串的代码了，请大家帮忙。

注：a.txt文件里面格式如下：
111
222
333
111
222
111

请会的朋友帮个忙！谢谢了！

Answer 1

'主窗口一个text1（查找的字符串），text2（读取的文本），一个按钮查询用

Dim j As Long
Private Sub Command1_Click() '每次单击后显示一组查找到的字符串
j = InStr(j, Text2.Text, Text1.Text) '每次单击后从j位置开始查找有没有相符的字符串
If j = 0 Then j = InStr(Text2.Text, Text1.Text) '如果没有查到则从最开始的位置再次查找
If j = 0 Then j = 1: Exit Sub '从开始的位置也没查到的话退出过程
Text2.SelStart = j - 1 '查到相符的字符串将字符串选中
Text2.SelLength = Len(Text1.Text)
Text2.SetFocus
j = j + Len(Text1.Text) '从查到的位置后继续查找
End Sub

Private Sub Form_Load()
p = "c:\a.txt" '文本文档位置
Open p For Input As #1
Do While Not EOF(1)
Line Input #1, s
Text2.Text = Text2.Text & s & vbCrLf
Loop
Close #1
j = 1
End Sub

Answer 2

If flg = 0 Then
n = InStr(Text1.Text, Text2.Text)
Else
n = InStr(flg, Text1.Text, Text2.Text, vbTextCompare)

End If
On Error Resume Next
Text1.SelStart = n - 1
Text1.SelLength = Len(Text2.Text)
flg = Text1.SelStart + Text1.SelLength
Text1.SetFocus

Answer 3

open "C:\a.txt" for input as #1
do while not Eof(1)
line input #1,tempStr 'tempStr存放从a.txt中读取的数据
if tempStr=text1.text then
print tempStr
end if
loop
close #1
以上代码就是将111显示出来，至于蓝底色，可设置窗体的backcolor属性，
用标签显示比较方便，将标签的背景色设置为vbBlue

Answer 4

notepad是没有办法实现"蓝底色显示"的

wordpad可以，即VB中richtextbox控件。

Answer 5

用richtext 很容易实现你的要求。