Несколько других советов в других выпусках WordTips касаются открытия, чтения, записи, добавления и закрытия текстовых файлов. Другой макрос-командой, связанной с последовательными текстовыми файлами, является команда поиска. Если используется в открытом файле, он помещает внутренний указатель файла на определенный номер символа в файле. Следующий фрагмент кода является примером того, как он используется:

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

Seek 1, iFileLen / 2

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

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

iCurPos = Seek(1)

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

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

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

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

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

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

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