Function OpenFileTextMy()

End Function

Для того чтобы открыть файл для чтения необходимо воспользоваться стандартной процедурой ввода.

Процедуры ввода

Перейдем теперь к рассмотрению процедур ввода Input (если данные были записаны процедурой write) и Line input (если данные были записаны процедурой Print).

Синтаксис процедуры Input:

Input #номерФайла, списокПеременных

Списокпеременных — это одна или несколько переменных, разделенных запятыми, в которые будут считываться данные из файла, причем переменные должны иметь тип, к которому могут быть приведены данные. На переменные накладывается еще одно ограничение, они не могут быть массивами, записями или объектами, но могут быть элементами массивов или полями записей.

При чтении информации, которая была записана в файл процедурой Write, происходит автоматический реверс к исходной информации. То есть отбрасываются кавычки для строк, игнорируются запятые и пробелы, слово #Null# переводится в значение Null и т. д.

Процедура Line Input используется для построчного ввода информации. Ее синтаксис следующий:

Line Input #номерФайла, переменная

Здесь переменная должна быть либо строковой, либо иметь тип Variant. В эту переменную без всяких преобразований будут считываться строки файла.

Выполним открытие файла FileText.txt в режиме Input и считаем данные построчно в переменные, используя цикл с постусловием, в котором условие — это достижение конца файла, проверяемое функцией EOF (End of File).

Dim K1 As String

Dim K2 As String

Dim K3 As String

Dim K4 As String

Dim K5 As String

Open "D:\FileText.txt" For Input As #1 ' Открывает файл для чтения.

Do While Not EOF(1) ' Цикл до конца файла.

Input #1, K1, K2, K3, K4, K5 ' Читает данные в пять переменных.

Loop

Close #1 ' Закрывает файл.

Создадим критерий отбора записей и применим фильтр к форме Расход, для этого запишите следующий код:

Не нашли, что искали? Воспользуйтесь поиском: