vb 在线等答案 如何打开整个文本 放到变量或者数组里！

一行对应数组一个元素。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
ReDim a(0)
Open "d:\1.txt" For Input As 1 '这里是文件路径
Do Until EOF(1)
Line Input #1, a(UBound(a))
ReDim a(UBound(a) + 1)
Loop
Close
End Sub
搜索的话给你提供个思路，比方说搜索字符串里面有没有“1”，那么if instr(1,原字符串,"1")>0 then

Open "f:\123.txt" For Binary As #1
ReDim buffer(1 To LOF(1))
Get #1, 0, buffer
文件特别大就有分页搜索了
Open "f:\123.txt" For Binary As #1
ReDim buffer(1 To buffersize)
Get #1, page*buffersize, buffer
不知合不合你的口味

Dim LJ As String
Dim strBuffer As String
Dim strText As String

'在当前应用程序所在的目录的子目录中,设置要链接的文件的路径.
LJ = App.Path & "\*.txt"

Open LJ For Input As #1
Do While Not EOF(1) '检查文件尾.
Line Input #1, strBuffer '分段读入文本文件的内容.
strText = strText & s