VB里能不能写入一些文本用于查找

能不能把一篇文章嵌入到程序代码里？或者创建一个不能直接打开的文件也行

用于查找信息

看看我写的对不对。这样直接读取外部文件比较好，

如果你要写在代码里面直接定义一个字符串型变量就可以了。

'查找文本中是否有匹配信息

Private Sub Command1_Click()
Dim a As Boolean '定义变量a为逻辑性变量
Open "d:\1.txt" For Binary As 1 '读取文本内容
a = InStr(Input(LOF(1), #1), "QQ.exe") '查看d:\1.txt文件中是否包含QQ.exe
Close '关闭文本
If a = True Then MsgBox ("有") '如果文件中包含QQ.exe则提示有
If a = False Then MsgBox ("没有") '如果文件中不包含QQ.exe则提示没有
End Sub

'显示文本内容到text控件

Dim str As String
Dim tem As String
Open "路径.txt" For Input As #1
Do
Line Input #1, tem
str = str & vbCrLf & tem
Loop Until EOF(1)
Close
Text1.Text = str