I have only just joint the AHK forum and been using AHK for a month now but the wealth of support, examples and information on this forum has helped me use AHK from being a novice.
Now onto the feedback.
I need to choose a file to save some information to while in my script and thanks to majkinetor cmndlg module it did the trick except I have found the following problems and have (in my basic way) corrected them in my version of the the cmndlg_save2 script.
Firstly if the user typed in a filename and extention the function would return a file with two extentions
Secondly the function some how changes the A_WorkingDir - this took me ages to discover why my main script did not work when I included the cmndlg_save so I now temp store the workingDir and set it back at the end
If these findings are of any help perhaps they could be more elegantly coded in majkinetor master function.
Code:
CmnDlg_Save( hGui=0, Title="", Filter="", defaultFilter="", Root="", defaultExt="", flags="overwriteprompt HIDEREADONLY" ) {
tempworkdir =%A_workingdir%
static OFN_CREATEPROMPT:=0x2000, OFN_DONTADDTORECENT:=0x2000000, OFN_EXTENSIONDIFFERENT:=0x400, OFN_FILEMUSTEXIST:=0x1000, OFN_FORCESHOWHIDDEN:=0x10000000, OFN_HIDEREADONLY:=0x4, OFN_NOCHANGEDIR:=0x8, OFN_NODEREFERENCELINKS:=0x100000, OFN_NOVALIDATE:=0x100, OFN_OVERWRITEPROMPT:=0x2, OFN_PATHMUSTEXIST:=0x800, OFN_SHOWHELP:=0x10, OFN_NOREADONLYRETURN:=0x8000, OFN_NOTESTFILECREATE:=0x10000
starterror:
IfEqual, Filter, ,SetEnv, Filter, All Files (*.*)
SplitPath, Root, RootFile, RootDir
hFlags := 0x80000 ;OFN_ENABLEXPLORER always set
loop, parse, flags,%A_TAB%%A_SPACE%,%A_TAB%%A_SPACE%
if A_LoopField !=
hFlags |= OFN_%A_LoopField%
VarSetCapacity( FN, 0xffff )
VarSetCapacity( lpstrFilter, 2*StrLen(filter))
VarSetCapacity( OFN ,90, 0)
if RootFile !=
DllCall("lstrcpyn", "uint", &FN, "uint", &RootFile, "int", StrLen(RootFile)+1)
; Contruct FilterText seperate by \0
delta := 0 ;Used by Loop as Offset
loop, Parse, Filter, |
{
desc := A_LoopField, ext := SubStr(A_LoopField, InStr( A_LoopField,"(" )+1, -1)
lenD := StrLen(A_LoopField)+1, lenE := StrLen(ext)+1 ;including /0
DllCall("lstrcpyn", "uint", &lpstrFilter + delta, "uint", &desc, "int", lenD)
DllCall("lstrcpyn", "uint", &lpstrFilter + delta + lenD, "uint", &ext, "int", lenE)
delta += lenD + lenE
}
NumPut(0, lpstrFilter, delta, "UChar" ) ; Double Zero Termination
; Contruct OPENFILENAME Structure
NumPut( 76, OFN, 0, "UInt" ) ; Length of Structure
NumPut( hGui, OFN, 4, "UInt" ) ; HWND
NumPut( &lpstrFilter, OFN, 12, "UInt" ) ; Pointer to FilterStruc
NumPut( 0, OFN, 16, "UInt" ) ; Pointer to CustomFilter
NumPut( 0, OFN, 20, "UInt" ) ; MaxChars for CustomFilter
NumPut( defaultFilter, OFN, 24, "UInt" ) ; DefaultFilter Pair
NumPut( &FN, OFN, 28, "UInt" ) ; lpstrFile / InitialisationFileName
NumPut( 0xffff, OFN, 32, "UInt" ) ; MaxFile / lpstrFile length
NumPut( 0, OFN, 36, "UInt" ) ; lpstrFileTitle
NumPut( 0, OFN, 40, "UInt" ) ; maxFileTitle
NumPut( &RootDir, OFN, 44, "UInt" ) ; StartDir
NumPut( &Title, OFN, 48, "UInt" ) ; DlgTitle
NumPut( hFlags, OFN, 52, "UInt" ) ; Flags
NumPut( &defaultExt, OFN, 60, "UInt" ) ; DefaultExt
res := DllCall("comdlg32\GetSaveFileNameA", "Uint", &OFN )
IfEqual, res, 0, goto endreturn2
adr := &FN, f := d := DllCall("MulDiv", "Int", adr, "Int",1, "Int",1, "str"), res := ""
if StrLen(d) != 3 ;windows adds \ when in root of the drive and doesn't do that otherwise
d.="\"
StringSplit, d_, d, "."
if d_0>2
{
d_1 := SubStr(d, 1, -1)
msgBox, 4144, %Title%, You have entered too many file extentions for the File`n%d_1%`n`nClick on a file or type just the file name
goto starterror
}
goto endreturn1
endreturn2:
d=
endreturn1:
setworkingdir %tempworkdir%
return SubStr(d, 1, -1)
}
Login
Register
FAQ
Search
