求VB源码(能用即再送30分)!

来源：百度知道 编辑：UC知道 时间：2024/05/22 00:24:37
在一个文本框中输入要对比的字符串,然后单击一个按钮,弹出一个路径选择对话框,选择一个文本文件,并开始搜索其中有无文本框中的字符串,无则弹出一个对话框,显示"未找到该字符串",有则弹出一个对话框,显示"找到该字符串"(最好在找到这个字符串的同时,打开这个文本文件,并定位到这个字符串,有这个功能则多送10分!),然后继续搜索其中有无该字符串.
用记事本打开,最好在找到这个字符串的同时,打开这个文本文件,并定位到这个字符串,有这个功能则多送20分!

'dlgCommonDialog为对话框控件名 部件中引用micr. common dialog control 6.0 可以使用该控件

'cmdChose为按钮

'text1为文本框，此查询区分大小写

Private Sub cmdChose_Click()
With dlgCommonDialog

.DialogTitle = "打开到XML文件:"
.CancelError = False
.Filter = "文本文件(*.txt)|*.txt|所有格式(*.*)|*.*"
.InitDir = App.Path
.FileName = ""
.ShowOpen
' .DefaultExt
If Len(.FileName) = 0 Then
Exit Sub
End If
TxtFilePath.Text = .FileName

Dim aline As String
Open .FileName For Binary As #1
aline = String((LOF(1)), Chr(0))
Get #1, , aline
Close #1

'注意查找时区分大小写
If InStr(aline, Text1.Text) > 0 Then
'说明包含
MsgBox "找到该字符串"
Dim cmdstr As String
'如果用richtext打开该文件，可以定位位置
cmdstr = "n