Code: Select all
#NoEnv
#SingleInstance, force
SetBatchLines, -1
CreateTestFiles()
myObj := {}
NetworkFolder := A_ScriptDir ; replace with your network folder name
loop, % NetworkFolder . "\*_*_*.txt"
{
script := name := "" , count := 0
Loop, Parse, A_LoopFileName, _
(A_Index = 1) ? (script := A_LoopField) : (A_Index = 2) ? (name := A_LoopField) : (count := LTrim(SubStr(A_LoopField,1,-4),"0"))
if myObj.HasKey(script)
myObj[script] += count
else
myObj[script] := count
scrList .= InStr(scrList,script) ? "" : (A_Index=1 ? script . "|" : "|" . script)
AppendCSV(script,name,count)
}
Gui, Font, s10 Normal
Gui, Add, Text, x10 w50,Scripts
Gui, Add, DropDownList, yp-5 x70 gScr vScr, %scrList%
gui, font,s15
Gui, Add,text, x10 w600 h600 vTx
gosub, Scr
gui,Show
return
Scr:
Gui, Submit, NoHide
GuiControl,,Tx, % "The script: """ . Scr . """ has been run " . myObj[Scr] . " times!"
return
Esc::
GuiClose:
ExitApp
AppendCSV(script,name,count)
{
FileAppend, % script . "`," . name . "`," . count . "`n", CSV_Output.csv
}
CreateTestFiles()
{
;test files:
FileAppend,,%A_ScriptDir%\Script1_Johana_0027.txt
FileAppend,,%A_ScriptDir%\Script2_Johana_0047.txt
FileAppend,,%A_ScriptDir%\Script2_thatguy_0021.txt
FileAppend,,%A_ScriptDir%\Script3_ahkrocks_0014.txt
FileAppend,,%A_ScriptDir%\Script4_testuser_0187.txt
}