Метод ITextRange::FindText (tom.h)

Статья
08/26/2023

Выполняет поиск текста, заданного параметром bstr, до числа символов. Начальная позиция и направление также задаются параметром Count, а критерии соответствия задаются флагами.

Синтаксис

HRESULT FindText(
  BSTR bstr,
  long Count,
  long Flags,
  long *pLength
);

Параметры

bstr

Тип: BSTR

Строка для поиска.

Count

Тип: long

Максимальное количество символов для поиска. Это может быть один из следующих вариантов.

tomForward	Поиски до конца истории. Это значение по умолчанию.
n (больше 0)	Выполняет поиск вперед для n символов, начиная с cpFirst. Если сам диапазон соответствует bstr, выполняется попытка выполнить другой поиск из cpFirst + 1.
n(меньше 0)	Выполняет поиск n символов назад, начиная с cpLim. Если сам диапазон соответствует bstr, предпринимается попытка выполнить другой поиск из cpLim–1.
0 (вырожденный диапазон)	Поиск начинается после диапазона.
0 (неразрожденный диапазон)	Поиск ограничен диапазоном.

Во всех случаях при обнаружении строки ограничения диапазона изменяются на ограничения совпадающих строк, а pLength устанавливается равным длине строки. Если строка не найдена, диапазон остается неизменным, а значение pLength равно нулю.

Flags

Тип: long

Флаги, управляющие сравнениями. Это может быть 0 (значение по умолчанию) или любое сочетание следующих значений.

tomMatchWord	2	Соответствует целым словам.
tomMatchCase	4	Соответствует регистру.
tomMatchPattern	8	Соответствует регулярным выражениям.

pLength

Тип: long*

Длина совпадаемой строки.

Возвращаемое значение

Тип: HRESULT

Метод возвращает значение HRESULT . Если метод завершается успешно, он возвращает S_OK. Если метод завершается сбоем, он возвращает S_FALSE. Дополнительные сведения о кодах ошибок COM см. в разделе Обработка ошибок в COM.

Метод ITextRange::FindText также может сопоставлять специальные символы с помощью курсора (^), за которым следует специальная буква. Список специальных символов см. в разделе Специальный список, доступный в диалоговом окне Поиск и замена Microsoft Word. Например, ^p соответствует следующему знаку абзаца. Обратите внимание, ^c что можно использовать для представления содержимого буфера обмена в строке для замены. Таким образом, использование ^c в строке поиска позволяет выполнять поиск форматированного текста. Дополнительные сведения см. в Word файлах справки.

В сравнении с методом ITextRange::FindText метод ITextRange::FindTextStart выполняет поиск вперед или назад из начальной точки диапазона, а метод ITextRange::FindTextEnd выполняет поиск вперед или назад из конечной точки диапазона. Дополнительные сведения см. в описании этих методов.

Ниже приведено несколько фрагментов кода, в которых показаны методы ITextRange::FindText .

Пример 1. Следующая программа Microsoft Visual Basic для приложений (VBA) выводит все комментарии /* ... */ в истории, определяемой диапазоном r.

Sub PrintComments (r As ITextRange)
    r.SetRange 0, 0                                      'r = insertion pt at start of story
    Do While r.FindText("/*") And r.FindTextEnd("*/")    'Select comment
        r.MoveStart tomCharacter, 2                      'But do not include the opening or 
                                                         'closing comment brackets
        r.MoveEnd tomCharacter, -2                       
        Print r                                          'Show the folks
    Loop
End Sub

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

Чтобы напечатать все строки, содержащие одно или несколько вхождений слова "лазер", замените цикл следующим кодом:

    While r.FindText("laser")            // Select next occurrence of "laser"
        r.Expand tomLine                // Select enclosing line    
        Print r                    // Print the line
    Wend

Пример 2. Следующая программа печатает список телефонов, учитывая историю, содержащую список адресов. Записи списка адресов разделяются двумя или более знаками абзаца, и каждая запись имеет следующую форму.

Person/Business Name
Address (one or more lines)
(area code) telephone number

Обратите внимание на использование символа ^p в строковом аргументе FindText для поиска пары последовательных знаков абзаца.

Sub PrintTelephoneList (r As ITextRange)
    r.SetRange 0, 0                 // r = insertion point at start of story
    r.MoveWhile C1_WHITE            // Bypass any initial white space
    Do
        r.EndOf tomParagraph, 1     // Select next para (line): has name
        Print r                    // Print it
        Do
            r.MoveWhile C1_SPACE        // Bypass possible space chars
            If r.Char = Asc("(") Then Exit Do    // Look for start of telephone #
        Loop While r.Move(tomParagraph)    // Go to next paragraph
        r.EndOf tomParagraph, 1        // Select line with telephone number
        Print r                    // Print it
    Loop While r.FindText("^p^p")        // Find two consecutive para marks
End Sub

Пример 3. Следующая подпрограмма заменяет все вхождения строки str1 в диапазоне на str2:

Sub Replace ( tr As ITextRange, str1 As String, str2 As String )
    Dim r As ITextRange
    r = tr.Duplicate                // Copy tr parameters to r
    r.End = r.Start                    // Convert to insertion point at Start
    While r.FindText(str1, tr.End - r.End)        // Match next occurrence of str
        r = str2                // Replace it with rep
    Wend                        // Iterate till no more matches
End Sub

Пример 4. В следующей строке кода перед первым вхождением правой круглых скобок () вставляется пустое поле, следующее за вхождением HRESULT.

    If r.FindText("HRESULT") And r.FindText("(") Then r = " ("

Чтобы сделать это для всех таких вхождений, измените цикл If на While/Wend в приведенной выше строке кода. Это пример макроса FIND/REPLACE , который не может быть запущен с помощью диалоговых окон "Найти и заменить ".

Требования


Минимальная версия клиента	Windows Vista [только классические приложения]
Минимальная версия сервера	Windows Server 2003 [только классические приложения]
Целевая платформа	Windows
Header	tom.h
DLL	Msftedit.dll