VB如何读文本文件？

读文件

Dim s As String
Dim filename As String
filename = shuxiang & xingzuo & ".txt"
Open filename For Input As #1
Do While Not EOF(1)
Line Input #1, s
Print s
Loop
Close #1


追加写文件


Dim i As Integer, n As Integer, a(6) As Integer
n = 6
Open "D:\1122.txt" For Append As #1
Randomize
For i = 1 To n
    a(i) = Int(Rnd * 1000 + 1)
    Print #1, a(i)
  Next i
Close #1

覆盖写文件
Dim i As Integer, n As Integer, a(6) As Integer
n = 6
Open "D:\1122.txt" For output As #1
Randomize
For i = 1 To n
    a(i) = Int(Rnd * 1000 + 1)
    Print #1, a(i)
  Next i
Close #1


'函数：一次性读文件至变量，非常快  Function GetFile(FileName As String) As String  Dim i As Integer, s As String, BB() As Byte  If Dir(FileName) = "" Then Exit Function  i = FreeFile  ReDim BB(FileLen(FileName) - 1)  Open FileName For Binary As #i  Get #i, , BB  Close #i  s = StrConv(BB, vbUnicode)  GetFile = s  End Function    '调用举例：  dim s as string  s=GetFile("c:\1.txt")

用ReadAll