Серый форум — AHK: Loop_Folder

Re: AHK: Loop_Folder

null@example.com (teadrinker) — Mon, 04 Nov 2019 21:09:33 +0000

inseption86 пишет:

Исправил, сделал так!

А что изменилось?

RVG%A_Index% := % A_LoopFileFullPath

Зачем := % ? Зачем RVG%A_Index% ? Есть же массивы. Чтобы узнать путь к папке, его и сохраняйте целиком.

Re: AHK: Loop_Folder

null@example.com (inseption86) — Mon, 04 Nov 2019 12:04:49 +0000

teadrinker
Исправил, сделал так!


#SingleInstance force

Folder := "C:\Users\smirnovaa\Desktop\1"
Folder2 := "C:\Users\smirnovaa\Desktop\1\~ГРД"

Loop, %Folder%\*, 2, 1
{
	if A_LoopFileAttrib not contains H
		if !Instr(A_LoopFileName, "~ГРД") 
			RVG%A_Index% := % A_LoopFileFullPath
	  counter++
}


Gui, +ToolWindow  +AlwaysOnTop 
Gui, Font, s15 italic

loop % counter {
	if   % RVG%A_Index% > 0 {
Gui, Add, Button, vButton%A_index% gGetName, % RegExReplace(RVG%A_Index%, ".+\\(.+)\.*.{0}", "$1") 
}
}
Gui, Show, , ***
return


GetName:
Gui, Submit, NoHide

loop % counter {
	GuiControl,, Button%A_index%, % RVG%A_Index%
}
GuiControlGet, var,, % A_GuiControl

if Instr(var, "~ГРД") 
{
Folder := Folder2
}

gui,destroy

var := RegExReplace(var, ".+\\(.+)\.*.{0}", "$1")

return

Re: AHK: Loop_Folder

null@example.com (teadrinker) — Mon, 04 Nov 2019 08:05:44 +0000

:= % Что за странный синтаксис?

AHK: Loop_Folder

null@example.com (inseption86) — Sun, 03 Nov 2019 10:21:45 +0000

Добрый день! Подскажите пож-та, имеется каталог "Folder" в нём находятся папки ( Смирнов А, Петров С, Сидоров У....), также в каталоге имеется папка "~ГРД", в ней также лежат папки ( Иванов Ш, Куличков А ). Название конечных папок я вывел в GUI, возможно ли как-нибудь зачекать в конце, если, конечная папка находилась в каталоге "Folder2". Заранее спасибо!


#SingleInstance force

Folder := "C:\Users\smirnovaa\Desktop\1"
Folder2 := "C:\Users\smirnovaa\Desktop\1\~ГРД"

Loop, %Folder%\*, 2, 1
{
	if A_LoopFileAttrib not contains H
		if !Instr(A_LoopFileName, "~ГРД") 
			RVG%A_Index% := % RegExReplace(A_LoopFileFullPath, ".+\\(.+)\.*.{0}", "$1")
	  counter++
}


Gui, +ToolWindow  +AlwaysOnTop 
Gui, Font, s15 italic

loop % counter {
	if   % RVG%A_Index% > 0 {
Gui, Add, Button, vButton%A_index% gGetName, % RVG%A_Index%
}
}
Gui, Show, , ***
return

GetName:
GuiControlGet, var,, % A_GuiControl
gui,destroy

MsgBox % var
return