[SOLVED] FileInstall function - Need remake !

[FireFox]

Hi,

I've made a FileInstallFolder function, wich use variables for install any file found in this folder ...

From help file :

The source path of the file to compile. This must be a literal string; it cannot be a variable.

Here is my UDF :

expandcollapse popup

; #FUNCTION# ;===============================================================================
;
; Name...........: _FileInstallFolder
; Description ...: Install file(s) from a folder
; Syntax.........: _FileInstallFolder($sSource, $sDest, $nFlag = 1, $sCompiled = False)
; Parameters ....: $sSource    = Source folder to get file(s) from
;                   $sDest    = Destination to install file(s) to
;                   $nFlag    = According to the flag of FileInstall
;                   $sCompiled - One of the following:
;                   False = Always install file(s)
;                   True = Only install file(s) when the script is compiled
; Return values .: Success - Returns 1
;                  Failure - Returns 0
; Author ........: FireFox
; Modified.......:
; Remarks .......: this function is faster with _WinAPI_FileFind :
;                   http://www.autoitscript.com/forum/index.php?showtopic=90545
; Related .......:
; Link ..........;
; Example .......;
;
; ;==========================================================================================
Func _FileInstallFolder($sSource, $sDest, $nFlag = 1, $sCompiled = False)
    Local $sFile, $sNext, $sDir
    If Not $sCompiled Then
        $sFile = FileFindFirstFile($sSource)
        While 1
            $sNext = FileFindNextFile($sFile)
            If @error Then ExitLoop ;No more files
            $sDir = StringRegExpReplace($sSource, '^.*\\', '')
            If @error Then Return SetError(1, 0, 0)
            If Not FileExists($sDir) Then DirCreate($sDir)
            If @error Then Return SetError(2, 0, 0)
            FileInstall($sNext, $sDest & '\' & $sDir & '\' & $sNext, $nFlag)
            If @error Then Return SetError(3, 0, 0)
        WEnd
    ElseIf $sCompiled And @Compiled Then
        $sFile = FileFindFirstFile($sSource)
        While 1
            $sNext = FileFindNextFile($sFile)
            If @error Then ExitLoop ;No more files
            $sDir = StringRegExpReplace($sSource, '^.*\\', '')
            If @error Then Return SetError(1, 0, 0)
            If Not FileExists($sDir) Then DirCreate($sDir)
            If @error Then Return SetError(2, 0, 0)
            FileInstall($sNext, $sDest & '\' & $sDir & '\' & $sNext, $nFlag)
            If @error Then Return SetError(3, 0, 0)
        WEnd
    EndIf
    Return 1
EndFunc   ;==>_FileInstallFolder

I need remake to make i work with my "valid" variables, in the way I prefer to use this function instead of write a thousand lines of FileInstall !

Cheers, FireFox.

Edited March 8, 2009 by FireFox

[Bowmore]

Thats just not going to work. FileInstall will never accept a variable as the source.

There are two options open to you that I can see.

1 Put all your files in a zip file and use that with FileInstall(). When its installed have your script unzip it.

2 Write a seperate script, possibly using a modified version of you FileInstallFolder function to write a block of valid FileInstall() statments to the console or a text file from which you can cut and paste into your main script.

[martin]

Hi,

I've made a FileInstallFolder function, wich use variables for install any file found in this folder ...

From help file :

Here is my UDF :

expandcollapse popup

; #FUNCTION# ;===============================================================================
;
; Name...........: _FileInstallFolder
; Description ...: Install file(s) from a folder
; Syntax.........: _FileInstallFolder($sSource, $sDest, $nFlag = 1, $sCompiled = False)
; Parameters ....: $sSource    = Source folder to get file(s) from
;                   $sDest    = Destination to install file(s) to
;                   $nFlag    = According to the flag of FileInstall
;                   $sCompiled - One of the following:
;                   False = Always install file(s)
;                   True = Only install file(s) when the script is compiled
; Return values .: Success - Returns 1
;                  Failure - Returns 0
; Author ........: FireFox
; Modified.......:
; Remarks .......: this function is faster with _WinAPI_FileFind :
;                   http://www.autoitscript.com/forum/index.php?showtopic=90545
; Related .......:
; Link ..........;
; Example .......;
;
; ;==========================================================================================
Func _FileInstallFolder($sSource, $sDest, $nFlag = 1, $sCompiled = False)
    Local $sFile, $sNext, $sDir
    If Not $sCompiled Then
        $sFile = FileFindFirstFile($sSource)
        While 1
            $sNext = FileFindNextFile($sFile)
            If @error Then ExitLoop ;No more files
            $sDir = StringRegExpReplace($sSource, '^.*\\', '')
            If @error Then Return SetError(1, 0, 0)
            If Not FileExists($sDir) Then DirCreate($sDir)
            If @error Then Return SetError(2, 0, 0)
            FileInstall($sNext, $sDest & '\' & $sDir & '\' & $sNext, $nFlag)
            If @error Then Return SetError(3, 0, 0)
        WEnd
    ElseIf $sCompiled And @Compiled Then
        $sFile = FileFindFirstFile($sSource)
        While 1
            $sNext = FileFindNextFile($sFile)
            If @error Then ExitLoop ;No more files
            $sDir = StringRegExpReplace($sSource, '^.*\\', '')
            If @error Then Return SetError(1, 0, 0)
            If Not FileExists($sDir) Then DirCreate($sDir)
            If @error Then Return SetError(2, 0, 0)
            FileInstall($sNext, $sDest & '\' & $sDir & '\' & $sNext, $nFlag)
            If @error Then Return SetError(3, 0, 0)
        WEnd
    EndIf
    Return 1
EndFunc   ;==>_FileInstallFolder

I need remake to make i work with my "valid" variables, in the way I prefer to use this function instead of write a thousand lines of FileInstall !

Cheers, FireFox.

The reason you can't have variables in FileInstall is that the files have to be included before the script runs so there is no way it can know what to install. So you could do something like this

remove the present function from your script and add this line to the top

#include "fiScript.au3"

Save the modified function below to a file called fiScript.au3

Func _FileInstallFolder($sSource, $sDest, $nFlag = 1, $sCompiled = False)
    Local $sFile, $sNext, $sDir
    Local $FI_Include = FileOpen("ficompile.au3",2)
    FileWriteLine($FI_Include,"Func _FileInstallFolder($sSource, $sDest, $nFlag = 1, $sCompiled = False)")
    If Not $sCompiled Then
        $sFile = FileFindFirstFile($sSource)
        While 1
            $sNext = FileFindNextFile($sFile)
            If @error Then ExitLoop;No more files
            $sDir = StringRegExpReplace($sSource, '^.*\\', '')
            If @error Then Return SetError(1, 0, 0)
            If Not FileExists($sDir) Then DirCreate($sDir)
            If @error Then Return SetError(2, 0, 0)
            FileInstall($sNext, $sDest & '\' & $sDir & '\' & $sNext, $nFlag)
            If @error Then Return SetError(3, 0, 0)
        WEnd
    ElseIf $sCompiled And @Compiled Then
        $sFile = FileFindFirstFile($sSource)
        While 1
            $sNext = FileFindNextFile($sFile)
            If @error Then ExitLoop;No more files
            $sDir = StringRegExpReplace($sSource, '^.*\\', '')
            If @error Then Return SetError(1, 0, 0)
            If Not FileExists($sDir) Then DirCreate($sDir)
            If @error Then Return SetError(2, 0, 0)
            FileWriteLine($FI_Include,"FileInstall(" & $sNext & ',' & $sDest & '\' & $sDir & '\' & $sNext & ',' &  $nFlag & ')')
           ;FileInstall($sNext, $sDest & '\' & $sDir & '\' & $sNext, $nFlag)
            If @error Then Return SetError(3, 0, 0)
        WEnd
    EndIf
    FileWriteLine($FI_Include,"EndFunc")
    FileClose($FI_Include)
    Return 1
EndFunc  ;==>_FileInstallFolder

Now when you run it from SciTE say it will behave as before except that it creates a file called ficompile .au3

To compile the script replace the line

#include "fiScript.au3"

with

#include "ficompile.au3"

Not tested, just an idea.

[Richard Robertson]

Why do so many people not understand why it can't take variables?

[MrCreatoR]

The second option

$sRet_FI_Lines = _FileInstallGetFolder("C:\Temp", "C:\Dest", 0, "*.txt")

ConsoleWrite("+Return:" & @CRLF & $sRet_FI_Lines & @CRLF & @CRLF & "!Error = " & @error & @CRLF)

Func _FileInstallGetFolder($sSource, $sDest, $nFlag = 0, $sMask = "*", $sCompiled = False)
    Local $hSearch, $sNext_File, $sRet_FI_Lines = ""
    
    If (Not $sCompiled) Or ($sCompiled And @Compiled) Then
        $hSearch = FileFindFirstFile($sSource & "\" & $sMask)
        If $hSearch = -1 Then Return SetError(1, 0, "")
        
        While 1
            $sNext_File = FileFindNextFile($hSearch)
            If @error Then ExitLoop ;No more files
            
            $sRet_FI_Lines &= _
                'FileInstall("' & $sSource & '\' & $sNext_File & '", "' & $sDest & '\' & $sNext_File & '", ' & $nFlag & ')' & @CRLF
        WEnd
        
        FileClose($hSearch)
    EndIf
    
    If $sRet_FI_Lines = "" Then Return SetError(2, 0, "")
    Return StringStripWS($sRet_FI_Lines, 3)
EndFunc

[FireFox]

@Everybody

Thanks for all your help

@MrCreator

Thanks, I thought to make it in that way

@Richard Robertson

Hahaha....I understand, just needed remake or another way

Cheers, FireFox.

[Richard Robertson]

You'll have to have all of the files ready before the script is compiled. There's no getting around that.

[FireFox]

its not about that... all files are ready :

I prefer to use this function instead of write a thousand lines of FileInstall !

Cheers, Firefox.

[martin]

Why do so many people not understand why it can't take variables?

?

There were 2 replies up to that post and neither one suggested FileInstall could use variables so I don't understand the point of your post. Added to that the OP was asking how to get round it so he uderrstood that FileInstall can't use variables.

[trancexx]

martin Hood

[FireFox]

@martin

thanks to agree with me about this

@Everyone

Finally I found a nice way to do it with MrCreator suggestion !

Here is the UDF :

expandcollapse popup

; #FUNCTION# ;===================================================================================================
====================================
;
; Name...........: _ListFileInstallFolder
; Description ...: List Install file(s) from a folder into au3
; Syntax.........: _ListFileInstallFolder($sSource, $sDest, $nFlag = 0, $sMask = '*', $sName = 'include', $sOverWrite = False, $sCompiled = False)
; Parameters ....: $sSource = Source folder to get file(s) from
;                  $sDest   = Destination to install file(s) to
;                  $nFlag   = According to the flag of FileInstall [Optional]
;               $sMask  = Extensions of file(s) to List         [Optional]
;               $sName  = Out au3 script name     [Optional]
;                  $sCompiled - One of the following:            [Optional]
;                  False = Always install file(s)
;                  True = Only install file(s) when the script is compiled
; Return values .: Success - Returns 1
;                  Failure - Returns 0
; Author ........: MrCreator, FireFox
; Modified.......: FireFox
; Remarks .......: this function is faster with _WinAPI_FileFind :
;                  [url="http://www.autoitscript.com/forum/index.php?showtopic=90545"]http://www.autoitscript.com/forum/index.php?showtopic=90545[/url]
; Related .......:
; Link ..........;
; Example .......;
;
; ;===================================================================================================
===============================================
Func _ListFileInstallFolder($sSource, $sDest, $nFlag = 0, $sMask = '*', $sName = 'include', $sOverWrite = False, $sCompiled = False)
    Local $hSearch, $sNext_File, $sRet_FI_Lines = ''
    
    If (Not $sCompiled) Or ($sCompiled And @Compiled) Then
        $hSearch = FileFindFirstFile($sSource & '\' & $sMask)
        If $hSearch = -1 Then Return SetError(1, 0, 'FileFindFirstFile')
        
        While 1
            $sNext_File = FileFindNextFile($hSearch)
            If @error Then ExitLoop ;No more files
            $sRet_FI_Lines &= @CRLF & _
                    'FileInstall("' & $sSource & '\' & $sNext_File & '", "' & $sDest & '\' & $sNext_File & '", ' & $nFlag & ')'
        WEnd
        FileClose($hSearch)
    EndIf
    If $sRet_FI_Lines = '' Then Return SetError(2, 0, '')
    If $sOverWrite Then FileDelete(@ScriptDir & '\' & $sName & '.au3')
    Return FileWrite(@ScriptDir & '\' & $sName & '.au3', StringStripWS($sRet_FI_Lines, 3))
EndFunc   ;==>_ListFileInstallFolder

Cheers, FireFox.

Edited March 8, 2009 by FireFox

[ProgAndy]

I have an idea Why not create an Au3Wrapperdirective to create that automatically. Then use an exe in runbefore which reads it and creates the include-file just before compiling and includes the #includeline if it doesn't already exists.

[FireFox]

@ProgAndy

Seems to be a good idea

Why not create an Au3Wrapperdirective to create that automatically

In english please (Can you explain me how to do it ?)

Cheers, FireFox.

[ProgAndy]

Here, an example-script. You have to add the code for generating FileInstalls / DirCreates.

expandcollapse popup

; Use this to run the exe:
; #AutoIt3Wrapper_Run_Before=FolderIncluder.exe "%scriptfile%" "%in%" "%scriptdir%"
; Syntax for includes:
; #FolderInclude=^^Folder from^^ PIPE ^^Folder To (AutoIt syntax)^^ PIPE ^^FileInstallFalgs^^ PIPE ^^Only Install on compile^^
; Example
; #FolderInclude=C:\Folder\From| @ScriptDir & "\test"|0|1
; There is also #FolderInclude_Recurse for recursive including (not impemented yet
; Author: Prog@ndy
If $CMDLINE[0] <> 3 Then Exit

$ScriptFullPath= $CMDLINE[2]
$ScriptNameNoExt = $CMDLINE[1]
$ScriptDir = $CMDLINE[3]

$File = FileRead($ScriptFullPath)
Global Const $FolderIncludeFile = $ScriptDir & "\" & $ScriptNameNoExt & ".folders.inc.au3"
FileDelete($FolderIncludeFile)

Global $InstallFileString = ";###############################################################" & @CRLF
      $InstallFileString &= ";## File is generated automatically                           ##"& @CRLF
      $InstallFileString &= ";###############################################################"& @CRLF
      $InstallFileString &= "#include-once" & @CRLF &@CRLF

FileInstall
$directives =  StringRegExp($File, "(?:\A|\n)\s*#FolderInclude\h*=([^;]+)", 1)
If Not @error Then 
    For $i = 0 To UBound($directives)
        $FolderInfo = StringSplit($directives[$i],"|")
        If $FolderInfo[0] <> 4  Then ConsoleWrite("! Wrong formatted: #FolderInclude=" & $directives[$i] & @CRLF)
        $FolderFrom = StringStripWS($FolderInfo[1],3)
        $FolderTo = StringStripWS($FolderInfo[2],3)
        $FolderFlags = StringStripWS($FolderInfo[3],3)
        $FolderOnlyCompiled = __IsTrue(StringStripWS($FolderInfo[4],3))
        
        If $FolderOnlyCompiled Then $InstallFileString &= @CRLF & "If @Compiled Then" & @CRLF
        
        ; Find files in FolderFrom
        ; create FileInstalls:
        
        MsgBox(0, '', "Here goes a filefind-loop for files (FileInstall) and Folders (DirCreate)")
        
        ;$InstallFileString &= 'FileInstall("' & $sSource & '\' & $sNext_File & '", "' & $sDest & '\' & $sNext_File & '", ' & $nFlag & ')'
        
        
        If $FolderOnlyCompiled Then $InstallFileString &= "EndIf ; @Comiled" & @CRLF & @CRLF
    Next
    
    
EndIf


$directives_Rec =  StringRegExp($File, "\n\s*#FolderInclude_Recurse\h*=([^;]+)", 1)
If Not @error Then 
    MsgBox(0, '', "The same as above, but recursive")
EndIf



; Prog@ndy
Func __IsTrue($String)
    $String = StringStripWS($String, 8)
    Return ($String = "true") Or (Number($String)>0) Or ($String = "yes")
EndFunc

Edited March 10, 2009 by ProgAndy

[Spiff59]

Why live with the requirement to have a static file list defined prior to compiling the script?

Why not have a "build" script that:

1. Dynamically generates a second temporary .au3 source containing your main script and FileInstall names embedded.

2. Submits the temp script for compilation

3. Deletes the temporary source file

That ought to dynamically pick up whatever files exist in your specified directory at runtime and build you an up-to-date executable with those files "installed", all without any user intervention???

Edit: clarified original post. (this may be similar in concept to what ProgAndy is proposing?)

Edited March 11, 2009 by Spiff59