pass file to script?

[kokoilie]

Is there a way to pass a file to the script at startup?

I mean the same way as if you open a .bmp file and it starts paint opening that file.

There is no code of what i did by now because i don't know if there is a way to do it but any advice will be appreciated.

Thanks in advance!

[Jos]

Do you mean whether it is possible to associate a unique file extension to a compiled script?

Then the answer is yes ..... else I don't understand what you are asking.

Jos

Edited November 11, 2012 by Jos

[JohnOne]

What Jos said, the only other possibility I can think you might mean is passing the name/path of a file to

work with when you start, and that is done via command line .

Run("pathtocompiledscript.exe pathtothefile.ext")

In your compiled script you will need to use the built in variable arrray "$CmdLine" <- help file.

[kokoilie]

Not just to associate a specific file extension but to receive a variable containing it's path for opening when the script is started from such file.

Right now i have a button to open a file manually but want to make it like other programs.

John, i have no idea what you mean and how this is going to help me.

Also i can't seem to find that "$CmdLine" you mentioned

[Melba23]

kokoilie,

That does not take us very much further forward.

As you obviously already have a script with a button, why not post it so that we can see what you are trying to do - then your question might become clearer.

M23

[Bert]

I think I know what you are asking for. You can use an INI file to do what you want. Look in the Help File for INIRead and INIWrite.

[kokoilie]

For now it's not really opening any files just having a string containing the pathname of a file because if i have this information about the file i can read/write it at any time.

I'll post the script anyway.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt ("MustDeclareVars", 1)
Func _loadlang ()
Global Const $lnofile = IniRead ("language.ini", "language", "nofile", "No file opened")
Global Const $lidlenf = IniRead ("language.ini", "language", "idlenf", "Idle (no file opened): Please open an archive or create a new one.")
Global Const $ltitle = IniRead ("language.ini", "language", "title", "AutoIt Archiver")
Global Const $labout = IniRead ("language.ini", "language", "about", "Program for archiving files without compression V.")
Global Const $lfo = IniRead ("language.ini", "language", "fo", "File opened:")
Global Const $lfns = IniRead ("language.ini", "language", "fns", "File not saved. Do you want to save before closing it?")
Global Const $ltn = IniRead ("language.ini", "language", "tn", "Create new file")
Global Const $lto = IniRead ("language.ini", "language", "to", "Open archive")
Global Const $ltco = IniRead ("language.ini", "language", "tco", "Close opened archive")
Global Const $lts = IniRead ("language.ini", "language", "ts", "Save archive")
Global Const $ltsa = IniRead ("language.ini", "language", "tsa", "Save archive as")
Global Const $lti = IniRead ("language.ini", "language", "ti", "Import files in archive")
Global Const $lte = IniRead ("language.ini", "language", "te", "Export all files from archive")
Global Const $lta = IniRead ("language.ini", "language", "ta", "About the program")
Global Const $ltl = IniRead ("language.ini", "language", "tl", "List of files in the opened archive")
;
EndFunc
_loadlang ()
Global $gui, $msg = -1, $content = $lnofile, $saved = True, $tip = $lidlenf, $clist, $file = "", $ofile = "", $fileh = -1, $ask = 0, $mouse, $otip = $lidlenf, $data, $array, $fread
Global $bopen, $bnew, $bsave, $bsaveas, $bimport, $bexport, $bclose, $ctip, $babout
$gui = GUICreate($ltitle, 900, 400)
$bnew = GUICtrlCreateButton ("New", 5, 2, 50, 20)
$bopen = GUICtrlCreateButton ("Open", 60, 2, 50, 20)
$bclose = GUICtrlCreateButton ("Close", 115, 2, 50, 20)
$bsave = GUICtrlCreateButton ("Save", 170, 2, 50, 20)
$bsaveas = GUICtrlCreateButton ("SaveAs", 225, 2, 50, 20)
$bimport = GUICtrlCreateButton ("Import", 280, 2, 50, 20)
$bexport = GUICtrlCreateButton ("Export", 335, 2, 50, 20)
$babout = GUICtrlCreateButton ("About", 390, 2, 40, 20)
$ctip = GUICtrlCreateLabel ($tip, 435, 5, 460, 20)
$clist = GUICtrlCreateEdit ($content, 5, 30, 890, 365)

GUICtrlSetState ($bclose, $GUI_DISABLE)
GUICtrlSetState ($bsave, $GUI_DISABLE)
GUICtrlSetState ($bsaveas, $GUI_DISABLE)
GUICtrlSetState ($bimport, $GUI_DISABLE)
GUICtrlSetState ($bexport, $GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
$mouse = GUIGetCursorInfo ($gui)
;ToolTip ($mouse[4])
Select
Case $mouse[4] = 0
$tip = $otip
Case $mouse[4] = 11
$tip = $otip
Case $mouse[4] = 3
$tip = $ltn
Case $mouse[4] = 4
$tip = $lto
Case $mouse[4] = 5
If $file = "" Then
$tip = $otip
Else
$tip = $ltco
EndIf
Case $mouse[4] = 6
If $file = "" Then
$tip = $otip
Else
$tip = $lts
EndIf
Case $mouse[4] = 7
If $file = "" Then
$tip = $otip
Else
$tip = $ltsa
EndIf
Case $mouse[4] = 8
If $file = "" Then
$tip = $otip
Else
$tip = $lti
EndIf
Case $mouse[4] = 9
If $file = "" Then
$tip = $otip
Else
$tip = $lte
EndIf
Case $mouse[4] = 10
$tip = $lta
Case $mouse[4] = 12
If $file = "" Then
$tip = $otip
Else
$tip = $ltl
EndIf
EndSelect
If GUICtrlRead ($clist) <> $content Then
GUICtrlSetData ($clist, $content)
EndIf
If GUICtrlRead ($ctip) <> $tip Then
GUICtrlSetData ($ctip, $tip)
EndIf
If $saved = True And GUICtrlGetState ($bsave) = 80 Then
GUICtrlSetState ($bsave, $GUI_DISABLE)
ElseIf $saved = False And GUICtrlGetState ($bsave) = 144 Then
GUICtrlSetState ($bsave, $GUI_ENABLE)
EndIf
If $file <> "" And GUICtrlGetState ($bclose) = 144 Then
GUICtrlSetState ($bclose, $GUI_ENABLE)
GUICtrlSetState ($bsaveas, $GUI_ENABLE)
GUICtrlSetState ($bimport, $GUI_ENABLE)
GUICtrlSetState ($bexport, $GUI_ENABLE)
$tip = $lfo & " " & $file
$otip = $tip
ElseIf $file = "" And GUICtrlGetState ($bclose) = 80 Then
GUICtrlSetState ($bclose, $GUI_DISABLE)
GUICtrlSetState ($bsaveas, $GUI_DISABLE)
GUICtrlSetState ($bimport, $GUI_DISABLE)
GUICtrlSetState ($bexport, $GUI_DISABLE)
$tip = $lidlenf
$otip = $tip
EndIf
Select
Case $msg = $bnew
$file = @ScriptDir & "NewArchive.aia"
$content = ""
$saved = False
Case $msg = $bopen
$ofile = FileOpenDialog ($ltitle, @ScriptDir, "AIArchives (*.aia)", 3, "", $gui)
If $ofile <> "" Then
$saved = False
$file = $ofile
_open (False)
$ofile = ""
EndIf
Case $msg = $bclose
If $saved = False Then
$ask = MsgBox (3, $ltitle, $lfns, 0, $gui)
If $ask = 6 Then
savefile(False)
$saved = True
$fileh = -1
$file = ""
ElseIf $ask = 7 Then
$saved = True
$fileh = -1
$file = ""
EndIf
Else
$file = ""
$saved = True
$content = $lnofile
$fileh = -1
EndIf
Case $msg = $bsave
savefile (False)
$saved = True
Case $msg = $bsaveas
savefile (True)
Case $msg = $bimport
$content = _open (True)
Case $msg = $bexport
;_open (False)
Case $msg = $babout
MsgBox (0, $ltitle, $labout & " Alpha 0.1", 0, $gui)
Case $msg = $GUI_EVENT_CLOSE
If $saved = False Then
$ask = MsgBox (3, $ltitle, $lfns, 0, $gui)
If $ask = 6 Then
savefile (False)
$saved = True
$fileh = -1
$file = ""
Exit
ElseIf $ask = 7 Then
$saved = True
$fileh = -1
$file = ""
Exit
EndIf
Else
Exit
EndIf
EndSelect
WEnd


Func savefile ($flag = False)
If $flag = False Then
$fileh = FileOpen ($file, 2)
FileWrite ($fileh, $data)
FileFlush ($fileh)
Else
$ofile = FileSaveDialog ($ltitle, @ScriptDir, "AIArchives (*.aia)", 18, "NewArchive.aia", $gui)
If $ofile <> "" Then
$file = $ofile
$fileh = FileOpen ($file, 2)
FileWrite ($fileh, $data)
FileFlush ($fileh)
$ofile = ""
$saved = True
EndIf
EndIf
EndFunc
Func _open ($flag = False)
Local $i = 0
If $flag = False Then ;open

$data = $fread
Else ;import
$ofile = FileOpenDialog ($ltitle, @ScriptDir, "AIArchives (*.aia)", 7, "", $gui)
If @error Then
$ofile = ""
Return ""
EndIf
$array = StringReplace ($ofile, "|", @CRLF)
$ofile = ""
Return $array
EndIf
EndFunc

Scullion, i know how to use ini files even in this script i'm using one for locale (change language) option

[JohnOne]

When you associate an extension with your program, you double click that file.ext and your program will open.

Is that what you want?

if so, then when you do that, the name of the file you clicked will be in an array named $CmdLine[1]

you can use that in your script.

[kokoilie]

THANK YOU JOHN!!!

i just had to notice that the quote below wasn't part of your post and see if that var works

[guinness]

A couple of points, look at _ShellFile in my signature and try to avoid using Global scope within a function, this should be only reserved for Local. If you want to declare a Global variable that can be seen throughout the program, then declare at the top of the script.

[kokoilie]

Guinness, I've understood how to use the $cmdline and made it like you used it in your example so this topic is solved.(actually i read your post after i made it)

And yes i can omit the function but why should i avoid using global in functions? I am declaring constants in it not variables, how else i can get their values except assigning them out of the function?