Наверно можно смело утверждать, что умение читать и записывать информацию в текстовый файл это основа импорта и экспорта 🙂 Практически любая серьезная программа хранящая информацию позволяет сохранить её в текстовом формате, какое бы он расширение не имел. Открываются файлы командой Open.
Команда Open может открывать для чтения Input и для записи Output. Цифра после as это идентификатор файла. На основании его производится чтение и запись файла.
Следующий пример демонстрирует запись и чтение файла
Как видите, для записи можно использовать Print, а для чтения Input воспользовавшись идентификатором открытого файла. Естественно здесь свои тонкости работы. Вот, если Вы запишите такую строку:
То оператор Input #1 прочитает только Hello и все. Запятая воспринимается как разделитеть. И это правильно. Есть форматы текстовых файлов когда числа разделены запятой. В коде ниже:
Последовательно выведутся надписи Hello и File, но с этим можно бороться оператором Line Input.
Этот код прочитает строку целиком. Следом возникает важный вопрос, а как узнать конец файла ? Для этого есть функция EOF(идентификатор), которая позволяет вам определить конец файла.
82 danny [2012-07-16 14:20:00]
У меня есть файл, который добавляется или изменяется вручную на основе входов. Поскольку большая часть содержимого повторяется в этом файле, меняются только шестнадцатеричные значения, я хочу сделать его сгенерированным инструментом.
Я хочу написать коды c, которые будут напечатаны в этом .txt файле.
Что такое команда для создания файла .txt с использованием VBA и как мне писать на него
5 ответов
140 Ben [2012-07-16 14:27:00]
Используйте FSO для создания файла и записи на него.
Смотрите документацию здесь:
24 pelos [2016-02-23 20:01:00]
простой способ с избыточным резервированием.
Совсем недавно в непомню какой коференции я видел запись какого-то человека, который просил, чтобы хоть кто-нибудь объяснил ему элементарную работу с файлами. Казалось бы такое простое. Но это простое для тех, кто уже хоть немного продвинулся в программировании, а кто это только начал? Это же, действительно, непроходимый лес! И я сильно сомневаюсь, чтобы кто-нибудь из других наших Web-мастеров когда-нибудь уделит этому хоть какое-то внимание. Поэтому этим займусь я и попробую в этой статье показать только основы.
1. Открытие файла для чтения информации из него.
Итак, чтобы безпроблемно работать с текстовыми файлами сначала их нужно открыть. Делается это с помощью оператора Open, например:
Open "c:\text.txt" For Input As #1
Обратите внимание на режим открытия файла — Input (для чтения). Здесь файл text.txt открывается для считывания под номером 1. Внимание. Номер файла — обязательный параметр, и вводить его нужно всегда! Если ваша программа будет иметь дело не с одним десятком открытых файлов, то уследить за их нумерацией будет сложновато. Используйте для этого функцию FreeFile. Она возвращает ещё не занятый номер (от 1 до 511) для файла:
Dim FileNum As Integer
Open "c:\text.txt" For Input As FileNum
Так, файл открыли! Теперь из него нужно что-нибудь считать. Оператор Line Input считывает из открытого файла по одной строке при каждом вызове. Поэтому для считывания из файла нужно построить цикл, который бы вызывал этот оператор до тех пор, пока не дошёл бы до конца файла:
цикл выполняется, пока конец файла не достигнут
Do Until EOF(FileNum)
при каждом вызове оператора Line Input он записывает в
переменную новою строку
Line Input #FileNum, переменная
Закрыть открытый файл можно оператором Close #FileNum. А теперь вот как это должно выглядеть в практике:
Dim FileNum As Integer
Dim txt As String
Dim alltxt As String
открываем файл в режиме чтения
Open "c:\text.txt" For Input As FileNum
запускаем вышеупомянутый цикл
Do Until EOF(FileNum)
считываем строку из файла с номером FileNum и кладём её в
Line Input #FileNum, txt
теперь к переменной alltxt добавляем содержимое переменной txt —
строки и vb-константу vbCrLf (Chr(13)+Chr(10)), т.к. каждая строка
должна быть с новой строки 🙂
alltxt = alltxt + txt + vbCrLf
закрываем файл с номером FileNum
выводим содержимое переменной alltext
2. Открытие файла для записи информации в него.
Записать информацию в файл ещё проще. Эта операция отличается от предыдущей только тем, что открыть файл надо в режиме записи:
Open "c:\text.txt" For Output As FileNum
и вместо цикла нужно вставить оператор Print #, который записывает в файл содержимое переменной:
Print #FileNum, "Азбука Visual Basic"
Print #FileNum, alltext
Dim FileNum As Integer
Dim txt As String
открываем файл в режиме записи
Open "c:\text.txt" For Output As FileNum
Print #FileNum, txt
закрываем файл с номером FileNum
Проверьте содержимое файла.
И ещё хочу предложить второй способ записи информации в файл — с помощью API-функции WritePrivateProfileStringByKeyName. Считывать же информацию нужно с помощью API-функции GetPrivateProfileString. Теперь расскажу — как всё это работает?
1.Создайте стандартный проект.
3.Удалите форму и кликните два раза по модулю.
4.В раздел General Declarations следующее объявление двух, вышеназванных функций:
Declare Function GetPrivateProfileString& Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, _
ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, _
lpszSection -имя секции
lpszKey — имя ключа
lpszDefault — значение, возвращаемое по умолчанию, при строке ""
lpszReturnBuffer — место для строки
cchReturnBuffer — размер (длина) места для строки
lpszFile — имя файла
Declare Function WritePrivateProfileStringByKeyName% Lib _
"kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpString As String, ByVal lplFileName As String)
lpApplicationName — имя секции
lpKeyName — имя ключа
lplFileName — имя файла
5.Создайте подпрограмму Main — просто введите Sub Main.
6.В подпрограмму Main введите:
создаём файл test.ini, в нём заголовок "Main", ключ "URL" _
и строку "http://members.tripod.de/cmvb"
Call WritePrivateProfileStringByKeyName("Main", "URL", _
создаём файл test.ini, в нём заголовок "Main", ключ "eMail" _
и строку "v1500mk@t-online.de"
Call WritePrivateProfileStringByKeyName("Main", "eMail", _
При запуске проекта на диске С: тут же будет создан файл Test.ini со следующим содержимым:
8:-O. Не правда ли, просто? А считать это чуть-чуть сложнее. Итак, файл создан, теперь поробуем считать информацию оттуда. Удалите всё, что находится между строками "Sub Main()" и "End Sub". Впишите следующее:
создаём переменную, в которую будет передоваться строка
Dim MyString As String
"набиваем" её пробелами
открывается файл файл test.ini, и в переменную MyString _
записывается строка из заголовка "Main", ключа "URL"
Call GetPrivateProfileString("Main", "URL", "", MyString, _
выводится на экран содержимое переменной MyString
открывается файл файл test.ini, и в переменную MyString _
записывается строка из заголовка "Main", ключа "eMail"
Call GetPrivateProfileString("Main", "eMail", "", MyString, _
выводится на экран содержимое переменной MyString