VB6快速读取txt

一、快速读取txt，空白内容则会出错。

1、建立模版

 1Function GetFile(FileName As String) As String
 2Dim i As Integer, s As String, BB() As Byte
 3If Dir(FileName) = "" Then Exit Function
 4i = FreeFile
 5ReDim BB(FileLen(FileName) - 1)
 6Open FileName For Binary As #i
 7Get #i, , BB
 8Close #i
 9s = StrConv(BB, vbUnicode)
10GetFile = s
11End Function

2、窗体调用举例：

1dim s as string
2s=GetFile("c:\1.txt")
3Text1 = s

3、如果文件中没中文字符，那么下面代码读整个文件速度是非常快的，我读了一个6M文件，只用了不到1秒，如果有中文字符，就需要把减去中文字符数量。

1s = Input$(LOF(1), #1)中的LOF(1)  
2Dim r As String, s As String
3r = Environ("userprofile")
4r = r + ""c:\1.txt"    
5Open r For Input As #1
6s = Input$(LOF(1), #1)
7Debug.Print s
8Close #1

二、（另外一种方法）空白文件照样读取，这种方法比较好。

1s = App.Path '当前目录
2 Open s & "\rootCA.log" For Input As #1
3Do While Not EOF(1)
4Input #1, b
5Text7.Text = Text7.Text & b
6Loop
7Close #1

三、（第三种方法）一行代码读入，空白内容也会出错。

1Text1 = CreateObject("scripting.filesystemobject").opentextfile("C:\1.txt").readall

四、数据查找InStr含数

1If InStr(Text1, "ok") >= 1 Then
2MsgBox "存在OK关键字", 64, "提示"
3Else
4MsgBox "不存在Ok关键字", 16, "提示"
5End If