Batya
|
 Posted: Mon Apr 26, 2010 09:49 Post subject: |
 |
|
| Andrey_A wrote: | | если что подправите |
Подправил:
| Code: | '=====================================================================
' Подсчёт к-ва раз встречающейся фразы в файле и вывод отчёта
'
' Параметры:
' {файл} {фраза}
'
' Пример вызова из TC:
' %P%N "текст"
'=====================================================================
Dim fso, InFile, fstr, L
InFile = WScript.Arguments(0)
fstr = WScript.Arguments(1)
L = Len(fstr)
s = 0
Set fso = CreateObject("Scripting.FileSystemObject")
s = Find(fso.OpenTextFile(InFile,1).ReadAll, fstr)
Set fso = Nothing
msgbox "Фраза """ & fstr & """ повторяется в тексте " & s & " раз(а)"
WScript.Quit
Function Find(pStr, pFStr)
Dim lp
Find = 0
lp = InStr(1, pStr, pFStr, 1)
If lp > 0 Then Find = Find(Mid(pStr, lp + L + 1), pFStr) + 1
End Function |
Andrey_A
В связи со спором Tol!k и sa, хочется уточнить - для варианта поиска "test test" в "test test test test" для тебя какое значение является правильным? Сейчас я сделал скрипт в согласии с Tol!k-ом.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
