FileSelectFile() : Supports multi-line filter

[Peaceful]

same as foobar2000 and Media Player

foobar2000 screenshot:


So many apps are this style.
That's perfect.

[SKAN]

Thanks

Well I wouldn't want you to put an ugly trick in your elegant function, but if you came up with one I'd probably use it, as we treat no extension just like any other extension usually driven by the machine tool's software and/or interface (ethernet or memory card) requirements. Its surely not desperately needed as I've gotten by without it for this long

I've been trying hard.. No joy.. yet.

If I was in such situation, I might work around as follows
1) make a list of files without extension
2) create a temp folder
3) create shortcuts for each file.
4) show dialog for the temp folder
5) delete temp folder after dialog is dismissed.

But instead of all this trouble, It would be better to create a custom TreeView based UI

[SKAN]

Code updated:

0.72 : A_LastError will contain the index of selected Filter. (Valid only if ErrorLevel is 0)

 
Demo script:
 

Code: Select all

#NoEnv
#SingleInstance, Force

Filter := "|Run with AutoHotkeyA32.exe (*.ahk)|Run with AutoHotkeyU32.exe (*.ahk)||Run with AutoHotkeyU64.exe (*.ahk)"
Selection := ["AutoHotkeyA32.exe", "AutoHotkeyU32.exe", "AutoHotkeyU64.exe"]

File := FileSelectFile( 1,,"Select script & interpreter", Filter)
If ! (ErrorLevel)
   MsgBox,,User choice, % "Run`n" . File . "`nwith`n" . Selection[A_LastError]

; Paste FileSelectFile() below

 

[gwarble]

But instead of all this trouble, It would be better to create a custom TreeView based UI

Thanks for looking in to it...

using different directories and shortcuts would be too cumbersome and problematic of a solution but I like the creative thinking... because most of the files we deal with are either named in the format "O1234" or "O2345 (COMMENT)" and your filtering allows for more than just extensions, I'm starting with something like:

All Documents (*.*)|NC Code (*0;*1;*2;*3;*4;*5;*6;*7;*8;*9;*)*)|AutoHotkey (*.ahk)|Heidenhein (*.H)

Which catches all files that end with a number or a right-parenthesis.

[SKAN]

All Documents (*.*)|NC Code (*0;*1;*2;*3;*4;*5;*6;*7;*8;*9;*)*)|AutoHotkey (*.ahk)|Heidenhein (*.H)

Nice! But if I make copies of files in explorer, the file copies end with Copy (2) .. Copy(3) and so on.
I just realized the extensions cannot have open parenthesis in it, as I split the filter line at the last occurring (.

[gwarble]

ah yes that explains why "*)" wasn't working without that last *

[hasantr]

Hi @SKAN Our job is very easy with your functions. Thank you.

How can I use this function to select folders? The built-in FileSelectFolder isn't powerful enough.

[robodesign]

Hi @SKAN Our job is very easy with your functions. Thank you.

How can I use this function to select folders? The built-in FileSelectFolder isn't powerful enough.

This function offers the ability...
https://github.com/marius-sucan/other-small-AHK-scripts/blob/master/select-folder-extended.ahk

Best regards, Marius.

[hasantr]

Hi @SKAN Our job is very easy with your functions. Thank you.

How can I use this function to select folders? The built-in FileSelectFolder isn't powerful enough.

This function offers the ability...
https://github.com/marius-sucan/other-small-AHK-scripts/blob/master/select-folder-extended.ahk

Best regards, Marius.

This is great. Thank you so much.

[hasantr]

I can't filter lnk files. Shortcut files always appear. Is there any way to hide shortcut files?

[nu10e8368NrrfXGQKvwn]

Hi, @SKAN, I tried this function but I get a strange result. Here's the code I used:

Code: Select all

#NoEnv							; Recommended for performance and compatibility with future AutoHotkey releases
SendMode Input					; Recommended for new scripts due to its superior speed and reliability
#SingleInstance, Force			; Allow only one running instance of script
#Warn All, MsgBox				; Enable warnings to assist with detecting common errors

path := FileSelectFile("S16|||" . WinExist("A"), "C:\Downloads\AutoHotkey Test Script.ahk","Duplica File","|Tutti i file (*.*)")
if (path != "")
{
	msgbox % path
}

return

FileSelectFile( Options:="", RootDir:="", Title:="", Filter:="" ) {   ;   v0.72 by SKAN on D39R/D39U
...
}

I type "1" in the select window and I get this:

---------------------------
AutoHotkey Test Script.ahk
---------------------------
C:\Downloads\1
Script.ahk
---------------------------
OK
---------------------------

"123.abc" gives this:

---------------------------
AutoHotkey Test Script.ahk
---------------------------
C:\Downloads\123.abc
t.ahk
---------------------------
OK
---------------------------

[nu10e8368NrrfXGQKvwn]

@SKAN

bump?

[SKAN]

@SKAN

bump?

 

I'm able to reproduce the said glitch.
Can you please help me to fix it?
If you may...

Please replace line 60
from

Code: Select all

    OutputVar .= Line . "`n",  f += ( (StrLen(Line)+1) * x )

to

Code: Select all

    OutputVar .= Line . "`n",  f += ( (StrLen(Line)+( o="m" ? 1 : 0 ) ) * x )

[nu10e8368NrrfXGQKvwn]

Please replace line 60

That works! Putting in "1" now gives me the correct message:
---------------------------
AutoHotkey Test Script.ahk
---------------------------
C:\Downloads\1
---------------------------
OK
---------------------------

Thanks, SKAN!