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

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

null@example.com (plank1433) — Tue, 04 Aug 2020 20:08:04 +0000

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

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

null@example.com (teadrinker) — Tue, 04 Aug 2020 19:03:53 +0000

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%

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

null@example.com (plank1433) — Tue, 04 Aug 2020 18:35:33 +0000

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

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

null@example.com (SuBrex) — Tue, 04 Aug 2020 18:28:14 +0000

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

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

null@example.com (plank1433) — Tue, 04 Aug 2020 17:12:00 +0000

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

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

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

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

null@example.com (teadrinker) — Mon, 03 Aug 2020 17:01:42 +0000

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

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

null@example.com (Alectric) — Mon, 03 Aug 2020 16:58:32 +0000

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

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

null@example.com (teadrinker) — Mon, 03 Aug 2020 14:16:03 +0000

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%

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

null@example.com (Alectric) — Mon, 03 Aug 2020 13:07:16 +0000

Loop,% a_scriptdir,2

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

null@example.com (plank1433) — Mon, 03 Aug 2020 11:07:52 +0000

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

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