Adding information to created files

[TheDcoder]

Let me explain the problem first:

I have a program which packs some .docx files into a .my_docs file (Created with 7za.exe and encrypted with _Crypt_EncryptFile funtion). Now I want the list of .docx files inside .my_docs file..... Can I add the list of .docx files to .my_docs without effecting the 7zip archive?

(Don't tell to "Extract the files to the temp folder and use _FilelistToArray Funtion" to get the list of files b/c the archive is extremely big [~900 MB])

[orbs]

7za.exe l  - this will list archive contents; however you will need to decrypt first, of course - or just let 7za handle the encryption for you.when you create the archive.

[TheDcoder]

I am a little sceptical now

[TheSaint]

orbs is right.

I will see if I can find an example of how I did it, but don't hold your breath, have a go while you wait, and don't count on me.

[TheSaint]

See what you can glean from this.

expandcollapse popup

$ebk = '"' & $flepth & '"'
            ;Run(@ComSpec & " /k 7z.exe l " & $ebk, $pfold)
            $txtfle = @ScriptDir & "\zip.txt"
            $zipfle = '"' & $txtfle & '"'
            ; Pipe zipped file content list to a text file for checking
            Run(@ComSpec & " /c 7z.exe l " & $ebk & ">" & $zipfle, $pfold)
            Sleep(2000)
            ; Open and read the piped to text file, to auto find ebook extension
            $file = FileOpen($txtfle, 0)
            $text = FileRead($file)
            FileClose($file)
            $webfld = ""
            ; Check if any text in piped to text file
            If $text <> "" Then
                ; Text found, so count lines and find filenames
                $text = StringSplit($text, @CRLF, 1)
                If $text[0] > 12 Then
                    ; Filenames should start at line 13
                    $exts = ""
                    $dashes = ""
                    For $t = 12 To $text[0]
                        $line = $text[$t]
                        If StringInStr($line, "----") > 0 Then
                            ; Gone past filenames, so exit checking
                            If $dashes = "" Then
                                ; First instance
                                $dashes = 1
                            Else
                                ; Second instance, so exit because file entries have been passed.
                                ExitLoop
                            EndIf
                        Else
                            ; Add any filenames as possibilities
                            $line = StringSplit($line, " ")
                            $file = $line[$line[0]]
                            ;MsgBox(262192, "Text Line", $file, 0)
                            If StringInStr($file, ".") > 0 Then
                                $line = StringSplit($file, ".")
                                $line = $line[$line[0]]
                                If $exts = "" Then
                                    ; Check first extension
                                    If $line <> "jpg" And $line <> "png" And $line <> "gif" Then
                                        ; If not an image file, then add
                                        $id = 1
                                        $exts = $line
                                        $lines = $id & " - " & $file
                                    EndIf
                                Else
                                    ; Check other extensions
                                    If $line <> "jpg" And $line <> "png" And $line <> "gif" Then
                                        ; If not an image file, then add
                                        $id = $id + 1
                                        $exts = $exts & "|" & $line
                                        $lines = $lines & "|" & $id & " - " & $file
                                    EndIf
                                EndIf
                                CheckForWebFolder()
                            Else
                                CheckForWebFolder()
                            EndIf
                        EndIf
                    Next
                    If StringInStr($exts, "|") > 0 Then
                        ; Provide filenames from zip and prompt user to select correct one
                        $lines = StringReplace($lines, "|", @LF)
                        SplashOff()
                        $id = InputBox("Ebook File Query", _
                            "The program found more than one possible" & @LF & _
                            "ebook file type in the zipped file, but could" & @LF & _
                            "not detect the correct one." & @LF & @LF & _
                            "Please enter the number of the correct file" & @LF & _
                            "listed below - any right ebook one will do." & @LF & @LF & _
                            $lines, 1, "", 235, 450, -1, -1, 0, $AddEbook)
                        If @error Then
                            $exts = ""
                        Else
                            $exts = StringSplit($exts, "|")
                            If $id <= $exts[0] Then
                                $form = $exts[$id]
                                $form = StringUpper($form)
                                GUICtrlSetData($Combo_format, "", "")
                                GUICtrlSetData($Combo_format, $formats, $form)
                                ;$fext = $exts[$id]
                                ;$fext = StringUpper($fext)
                                ;GUICtrlSetData($Combo_format, "", "")
                                ;GUICtrlSetData($Combo_format, $formats, $fext)
                            Else
                                $exts = ""
                            EndIf
                        EndIf
                        SplashTextOn("", "Please Wait!", 200, 120, -1, -1, 33)
                    Else
                        ; Only one extension found
                        If StringInStr($formats, "|" & $exts & "|") > 0 Then
                            ; A known ebook type so return it
                            $form = StringUpper($exts)
                            GUICtrlSetData($Combo_format, "", "")
                            GUICtrlSetData($Combo_format, $formats, $form)
                            ;$fext = StringUpper($exts)
                            ;GUICtrlSetData($Combo_format, "", "")
                            ;GUICtrlSetData($Combo_format, $formats, $fext)
                        Else
                            ; Doesn't appear to be a known ebook type
                            $exts = ""
                        EndIf
                    EndIf
                EndIf
            EndIf

I suggest you take it apart line by line and adapt for your code and requirements.

Certainly don't try to run my code as is. Just a chunk of code taken from a much bigger function, etc.

There is no doubt a sizable portion of unnecessary (for you) code there.

I don't doubt for a minute, that there is a better way to do it, but I took the simple, if more laborious route.

NOTE - Obviously I'm using the EXE not the DLL, so you will probably need to adapt for that too.

Edited January 19, 2015 by TheSaint

[TheDcoder]

I think its hard, but i am gonna continue my research