Несколько других советов в других выпусках ExcelTips обсуждают открытие, чтение, запись, добавление и закрытие текстовых файлов из макроса.

Другая команда, связанная с последовательными текстовыми файлами, — это команда поиска. При использовании с открытым файлом Seek помещает внутренний указатель файла на конкретный номер символа в файле. Следующий фрагмент кода является примером того, как он используется:

Open "DOSTEXT.DAT" for Input as #1 iFileLen = LOF(1)

Seek 1, iFileLen / 2

Эти программные строки используют функцию LOF для определения длины файла. Последняя строка затем помещает внутренний указатель файла на полпути через файл. Все последующее чтение или запись файла будет происходить с этой позиции.

Вы также можете использовать Seek как функцию для определения вашей текущей позиции в текстовом файле. Вот что делает этот код:

iCurPos = Seek(1)

Эта команда оставляет внутренний указатель файла там, где он был, но устанавливает iCurPos на значение, представляющее, сколько символов в файле указатель. Значение iCurPos — это позиция, в которой будет происходить все последующее чтение и запись файла.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2475) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Using_Seek_In_a_Macro [Использование поиска в макросе].