1

Тема: AHK: Сколько названий подпапок заканчиваются конкретными буквами

Доброго времени суток, форумчане.
У меня появился такой вопрос.
Помогите его решить.

Как при помощи ahk - проверить подпапки (1-го уровня вложенности) той папки где лежит скрипт - на предмет того сколько в них папок - заканчиваются буквами ".pd" а сколько буквами ".tx" ?
(И вывести результат msgbox)

2

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

Loop,% a_scriptdir,2

Win 10 x64
AHK v1.1.33.02
                       Справка тебе в помощь.

3 (изменено: teadrinker, 2020-08-03 18:36:59)

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

Alectric, ну если вы из 2008 пишете, тогда да, а так есть Loop, Files.

pd := tx := 0
Loop, Files, %A_ScriptDir%\*, D
{
   lastThree := SubStr(A_LoopFileName, -2)
   if (lastThree = ".pd")
      pd++
   if (lastThree = ".tx")
      tx++
}
MsgBox, pd: %pd%`ntx: %tx%
Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

4

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

Интересно, изменился только синтаксис или скорость обработки повысили?

Win 10 x64
AHK v1.1.33.02
                       Справка тебе в помощь.

5

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

Про скорость не знаю, можно сравнить, если есть желание. Но в старом синтаксисе есть баг, который возникает, если паттерн это просто число. Тогда будет работать, как обычный Loop.

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

6

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

teadrinker, спасибо
Но в этом случае - скрипт выводит - только количество папок, которые лежат рядом со скриптом.

Я может неправильно сформулировал вопрос.
Я спрашивал про подпапки этих папок, а не про сами папки.

Подсчитать нужно то - что находится внутри этих папок на 1-ом уровне вложенности (дальше не надо).

7 (изменено: SuBrex, 2020-08-04 22:28:24)

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

plank1433
Так поменяйте путь.

8

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

SuBrex, а как его поменять ?

9

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

plank1433 пишет:

Подсчитать нужно то - что находится внутри этих папок на 1-ом уровне вложенности

Тогда только так, наверно:

pd := tx := 0
Loop, Files, %A_ScriptDir%\*, D
{
   Loop, Files, %A_LoopFilePath%\*, D
   {
      lastThree := SubStr(A_LoopFileName, -2)
      if (lastThree = ".pd")
         pd++
      if (lastThree = ".tx")
         tx++
   }
}
MsgBox, pd: %pd%`ntx: %tx%
Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

10

Re: AHK: Сколько названий подпапок заканчиваются конкретными буквами

teadrinker, спасибо теперь все работает.