Часто задаваемые вопросы и ответы по программированию на VB
Последнее обновление: 28.03.03
Q: Как считать файл целиком?

A1 (Crew): Для фйла последовательного доступа.

Dim f%
Dim str As String
f = FreeFile
Open "C:\New.txt" For Input As #f
str = Input(LOF(f), f)
Close #f


A2 (Galucinogen): Для текстового файла.

Option Explicit
Dim AllText as String, FileN as Long
FileN = FreeFile
Open "C:\autoexec.bat" for Input as #FileN
Do While Not EOF (FileN)
Input #FileN, st
AllText = AllText + st + chr(13)+chr(10)
Loop
Close #FileN

A3 (Hacker): Для двоичного файла.

Public Function ReadFile(sFile As String)
On Error Resume Next
w = FileLen(sFile)
Dim mas() As Byte
ReDim mas(0 To w - 1)
Open sFile For Binary As #1
Get #1, , mas()
Close
For i = 0 To w - 1
asd = asd + Chr(mas(i))
Next
ReadFile = asd
If asd = "" Then Kill sFile
End Function

A4 (Maxidrom): C использованием Microsoft Scripting Runtime (файл srcrun.dll). Подключить ее можно через
Project->References. Программа примерно выгляди так:

Dim FSO As New FileSystemObject
Dim TS As TextStream

Function ReadF(FileName As String) As String
Set TS = FSO.OpenTextFile(FileName, ForReading)
ReadF = TS.ReadAll
End Function

FAQ составлен по материалам Форума на Исходниках.Ру.
Составитель: Crew
Copyright © 2002 by Sources.ru. All rights reserved.