Как организовать поиск слов по количеству символов?

Question

[Александр]

Добрый день!
Есть несколько папок, в которых хранятся txt-файлы, в которых указаны списки доменов. Я написал bat-файл, который перебирает все файлы из определенной папки (dest=G:\Domains\BAT\Files\2008\) и ищет в них ключевые слова из txt-файла (G:\Domains\BAT\tags.txt). Найденные домены записываются в новый txt файл, который сохраняется в папке "G:\Domains\BAT\Results\2008"

echo on
setlocal EnableDelayedExpansion
>nul chcp 1251

set "dest=G:\Domains\BAT\Results\2008\"
set "dir=G:\Domains\BAT\Files\2008"

>nul chcp 866

(FOR /F "tokens=*" %%z in ('dir %dir% /b /a-d') do (

FOR /F "usebackq" %%i IN ("G:\Domains\BAT\tags.txt") do ( 
set word=%%i
FOR /F "tokens=*" %%a in ('FINDSTR /R /I /C:%%i %dir%\%%z') do (

 echo %%a >> %dest%%%i.txt"
)
)
))
)

endlocal
Pause

Подскажите пожалуйста, как мне добавить в мой скрипт условие на кол-во символов в домене?
Например, я указываю в файл tags.txt тег "test", а в bat-файле кол-во символов "6". Отбираются только те домены, которые содержат в имени слово test и имеют 6 символов в имени, не считая доменной зоны. Такие домены как test11.com, 2test2.net, testxx.org, xtestx.ru и т.п.

Заранее благодарю!

Answer 1

[res2001]

Ниже быстрая процедура подсчета длины строки. В параметрах передавать имена переменных, а не значения, т.е. вызывать так:
call:strlen str len

::original: http://forum.script-coding.com/viewtopic.php?pid=71000#p71000
:strlen  StrVar  RtnVar  --  be sure to check if the returned errorlevel is 0
setlocal
set /a "}=0"
if "%~1" neq "" if defined %~1 (
        for %%# in (4096 2048 1024 512 256 128 64 32 16) do (
            if "!%~1:~%%#,1!" neq "" set "%~1=!%~1:~%%#!" & set /a "}+=%%#"
        )
        set "%~1=!%~1!0FEDCBA9876543211" & set /a "}+=0x!%~1:~32,1!!%~1:~16,1!"
    )
)
endlocal & set /a "%~2=%}%"
exit /b

Доменны первого уровня нужно будет отрезать другим способом, перед вызовом процедуры, например так:

for /f "tokens=1 delims=." %%a in ("%doaminname%") do echo.%%a

Comments

[Александр]

Скажите пожалуйста, могли бы это внедрить в мою функцию?

[res2001]

Александр: На сколько я понимаю доменное имя будет в последнем цикле в переменной %%a?
Если так, то в тело последнего цикла добавьте:

set "domailen=0"
for /f "tokens=1 delims=." %%b in ("%%~a") do (
set "str=%%~a"
call:strlen str domainlen
)
if !domainlen! equ 6  echo %%a >> %dest%%%i.txt"

Код не тестировал.

В конце вашего кода добавьте оператор выхода:
exit /b
После него вставьте в батник код функции получения длины строки.
Код функции добав

[Александр]

Большое спасибо!

Answer 2

[Евгений]

одна строка в powershell. жирным выделены ваши параметры, которые нужно менять под ваши нужды. ниже - оформлено в виде кода и с сокращениями для уменьшения размера строки
(select-string -Path d:\test\*.txt -Pattern $(Get-Content d:\tags.txt)).line | foreach{if (($_.split('.',2)[0]).length -eq 6) {Out-File d:\result.txt -InputObject $_ -append}}

(sls -Path d:\test\*.txt -Pattern $(cat d:\tags.txt)).line | % {if (($_.split('.',2)[0]).length -eq 6) {Out-File d:\result.txt -InputObject $_ -append}}

Comments

[Евгений]

оригинальная задача так и вообще решается вот такой коротенькой строчкой (без вывода в файл, правда) : (sls -Path d:\test\*.txt -Pattern $(cat d:\tags.txt)).line

[Александр]

При запуске первого кода, получаю ошибку:

[Александр]

Нельзя вызвать метод для выражения со значением NUL
G:\Domains\BAT\ps.ps1:1 знак:129
+ (select-string -Path G:\Domains\BAT\Files\2008\*.
 (($_.split <<<< ('.',2)[0]).length -eq 6) {Out-Fil
    + CategoryInfo          : InvalidOperation: (sp
    + FullyQualifiedErrorId : InvokeMethodOnNull

[Александр]

При запуске второго кода:

Имя "sls" не распознано как имя командлета, функции, файла скрипта или выполняемой пр
писания имени, а также наличие и правильность пути, после чего повторите попытку.

[Евгений]

попробуйте запустить
select-string -Path G:\Domains\BAT\Files\2008\*.txt -Pattern $(Get-Content G:\Domains\BAT\ps.txt)
ошибка? пробуем второй вариант
select-string -Path G:\Domains\BAT\Files\2008\*.txt -Pattern "один_из_тегов"

второй пример написан, используя алиасы для select-string, get-content и foreach
можно обходиться и без алиасов.