Несколько других советов в других выпусках ExcelTips обсуждают открытие, чтение, запись, добавление и закрытие текстовых файлов из макроса. Другая команда, связанная с последовательными текстовыми файлами, – это команда поиска. При использовании с открытым файлом Seek помещает внутренний указатель файла на определенный номер символа в файле. Следующий фрагмент кода является примером того, как он используется:
Откройте «DOSTEXT.DAT» для ввода как # 1iFileLen = LOF (1) Seek 1, iFileLen/2
Эти программные строки используют функцию LOF для определения длины файла. Последняя строка затем помещает внутренний указатель файла на полпути через файл. Все последующее чтение или запись файла будет происходить из этой позиции.
Вы также можете использовать Seek как функцию для определения вашей текущей позиции в текстовом файле. Вот что делает этот код:
iCurPos = Seek (1)
Эта команда оставляет внутренний указатель файла там, где он был, но устанавливает iCurPos на значение, представляющее, как много символов в файле указатель. Значение iCurPos – это позиция, в которой будет происходить все последующее чтение и запись файла.
Источник: