Lev
|
 Posted: Mon Apr 26, 2010 16:17 Post subject: |
 |
|
Вариация | Code: | '=====================================================================
' Подсчёт к-ва раз встречающейся фразы в файле и вывод отчёта
'
' Параметры:
' {файл} {фраза}
'
' Пример вызова из TC:
' %P%N "текст"
'=====================================================================
Dim fso, InFile
Set fso = CreateObject("Scripting.FileSystemObject")
Dim re
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
InFile = WScript.Arguments(0)
re.Pattern = WScript.Arguments(1)
s = re.Execute(fso.OpenTextFile(InFile,1).ReadAll).Count
msgbox "Фраза """ & re.Pattern & """ повторяется в тексте " & s & " раз(а)"
Set fso = Nothing
Set re = Nothing
WScript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
