Найти количество слов\выражений в тексте с помощью RegExp
- Автор темы Fever
- Дата начала
Redline
AutoIT Гуру
- Сообщения
- 506
- Репутация
- 375
Первый массив выдаст совпадения по сочетанию 'string1 text'
Второй по слову 'string1'
Ну а количество совпадений - это размер массива
Второй по слову 'string1'
Код:
#include <Array.au3>
$sText = 'string1 text text' & @CRLF & 'string2 text2' & @CRLF & 'text string1 text' & @CRLF & 'string1'
$aResult2Word = StringRegExp($sText, '(?i)string1\stext', 3)
_ArrayDisplay($aResult2Word)
ConsoleWrite(UBound($aResult2Word) & @CRLF)
$aResult1Word = StringRegExp($sText, '(?i)string1', 3)
_ArrayDisplay($aResult1Word)
ConsoleWrite(UBound($aResult1Word) & @CRLF)Ну а количество совпадений - это размер массива
По крайней мере проще с помощью регулярных выражений:
Я думаю надо использовать метасимволы \Q и \E
Для возможности поиска фрагмента со спец. символами
Я думаю надо использовать метасимволы \Q и \E
Для возможности поиска фрагмента со спец. символами
Код:
#include <Array.au3>
$sText= "#include-once" & _
"#include <WindowsConstants.au3>" & _
"#include <GUICon(stantsEx.au3>" & _
"#include <StaticCon(stants.au3> " & _
"#include <Array.au3>"
$sFind="Con(st"
$aRez=StringRegExp($sText, "\Q" & $sFind & "\E", 3)
_ArrayDisplay($aRez)
MsgBox(0,'Инфо','Найдено совпадений : ' & UBound($aRez))
я так всегда использовал
Код:
$sText= "#include-once" & _
"#include <WindowsConstants.au3>" & _
"#include <GUICon(stantsEx.au3>" & _
"#include <StaticCon(stants.au3> " & _
"#include <Array.au3>"
$sFind="Con(st"
StringRegExpReplace($sText, "\Q" & $sFind & "\E", '')
If Not @error Then MsgBox(0,'Инфо','Найдено совпадений : ' & @extended)Redline
AutoIT Гуру
- Сообщения
- 506
- Репутация
- 375
Оказывается стандартный StringReplace тоже возвращает количество замен:
Код:
$sText = '#include-once' & _
'#include <WindowsConstants.au3>' & _
'#include <GUICon(stantsEx.au3>' & _
'#include <StaticCon(stants.au3> ' & _
'#include <Array.au3>'
$sFind = 'Con(st'
StringReplace($sText, $sFind, '')
ConsoleWrite(@extended & @CRLF)
- Сообщения
- 7,790
- Репутация
- 2,323
gregaz [?]
И в этом случае у меня StringReplace() быстрее всех:
Сначала пишем произвольный файл:
Потом его проверяем:
Если шаблон такой: "\Q" & $sFind & "\E", то, ИМХО, применим.
И в этом случае у меня StringReplace() быстрее всех:
Сначала пишем произвольный файл:
Код:
Dim $aArray[1000001] = [1000000]
$sText = ''
For $i = 1 To $aArray[0]
$sText &= (Chr(Random(65, 90, 1)) & Chr(Random(97, 122, 1)) & @CRLF)
Next
$hFile = FileOpen(@ScriptDir & '\test.txt', 2)
FileWrite($hFile, $sText)
FileClose($hFile)Потом его проверяем:
Код:
$sFind = 'Zz'
$hFile = FileOpen(@ScriptDir & '\test.txt')
$sText = FileRead($hFile)
FileClose($hFile)
$iStart = TimerInit()
StringReplace($sText, $sFind, '', 0, 1)
$iExt = @extended
$sTime = StringFormat('%.2f ms', TimerDiff($iStart))
MsgBox(0, 'StringReplace', $sTime & ', Совпадений: ' & $iExt)
$iStart = TimerInit()
$aRez = StringRegExp($sText, '\Q' & $sFind & '\E', 3)
$sTime = StringFormat('%.2f ms', TimerDiff($iStart))
MsgBox(0, 'StringRegExp', $sTime & ', Совпадений: ' & UBound($aRez))
$iStart = TimerInit()
StringRegExpReplace($sText, '\Q' & $sFind & '\E', '')
$iExt = @extended
$sTime = StringFormat('%.2f ms', TimerDiff($iStart))
MsgBox(0, 'StringRegExpReplace', $sTime & ', Совпадений: ' & $iExt)Re: Найти количество слов\\выражений в тексте с помощью RegExp
madmasles [?]
Обрати внимание :
Я сказал : если $sFind - есть шаблон
Подразумевал :
; $sFind - есть шаблон
а
$sFind - есть фрагмент текста
Поэтому : если искать совпадения фрагмента текста , конечно следует использовать StringReplace
Добавлено:
madmasles
Если не трудно ?
Поскольку ты проанализировал варианты, может быть обобщишь и сделаешь выводы .
Когда лучше что применять.
Чтобы уже "устаканить" эту тему раз и навсегда.
madmasles [?]
Обрати внимание :
Я сказал : если $sFind - есть шаблон
Подразумевал :
Код:
$sFind='Con.*st'а
Код:
$sFind='Con(st'Поэтому : если искать совпадения фрагмента текста , конечно следует использовать StringReplace
Добавлено:
Сообщение автоматически объединено:
madmasles
Если не трудно ?
Поскольку ты проанализировал варианты, может быть обобщишь и сделаешь выводы .
Когда лучше что применять.
Чтобы уже "устаканить" эту тему раз и навсегда.
