Open Everything GUI results with TC LOADLIST

Discuss and announce Total Commander plugins, addons and other useful tools here, both their usage and their development.

Moderators: white, Hacker, petermad, Stefan2

Post Reply
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

While I was rewriting the script, I found out that if you change the order of the columns in EV you will have to write the changes in ini file and then completely exit EV and launch it again so that the script will recognize the change.
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
tuska
Power Member
Power Member
Posts: 3760
Joined: 2007-05-21, 12:17 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *tuska »

Ovg wrote: 2021-10-14, 19:23 UTC While I was rewriting the script, I found out that if you change the order of the columns in EV you will have to write the changes in ini file and then completely exit EV and launch it again so that the script will recognize the change.
Thank you for the tip.

I tried it out immediately, i.e.
- 1st column "Path" (previously: Name)
- 2nd column "Name" (before: Path)
- EverythingColumnPositions=1,2

Result:
- Error message
- EV-Results.txt is created, but has a few blank lines in it
- On tab "Search result:" no folders and files are displayed -> Search result in TC: Empty.

Well, maybe the problem is in front of my PC. :roll:
I'm slowly running out of breath testing the script...
User avatar
Horst.Epp
Power Member
Power Member
Posts: 6482
Joined: 2003-02-06, 17:36 UTC
Location: Germany

Re: Open Everything GUI results with TC LOADLIST

Post by *Horst.Epp »

tuska wrote: 2021-10-14, 19:48 UTC
Ovg wrote: 2021-10-14, 19:23 UTC While I was rewriting the script, I found out that if you change the order of the columns in EV you will have to write the changes in ini file and then completely exit EV and launch it again so that the script will recognize the change.
You don't need to change the script.
Just edit the ini file and the script reads it.
Or after changing the script delete the ini file and a new one will be written on next start.
Windows 11 Home x64 Version 23H2 (OS Build 22631.3447)
TC 11.03 x64 / x86
Everything 1.5.0.1372a (x64), Everything Toolbar 1.3.3, Listary Pro 6.3.0.73
QAP 11.6.3.2 x64
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

2Horst.Epp
I found out that if you change the order of the columns in EV you will have to write the changes in ini file and then completely exit EV and launch it again so that the script will recognize the change.
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

New script

Code: Select all

; Build AutoHotkey_L
; Build x64
; Build Kill=true
; Build Zip=false
; Build Run=true

#NoEnv
;#Persistent
#SingleInstance Force
SetBatchLines, -1



;#x::
; Create / read .ini file settings
SetTitleMatchMode, RegEx
iniFile := RegExReplace(A_ScriptFullPath, "(ahk|exe)$", "ini")

if not (FileExist(iniFile)) {
    iniContent :="
    ( LTrim
        [General]
        ; Where to save the output (full path)
        DestinationFile=g:\system\Temp\Ev2TC.FileList

        ; The columns 'Name' and 'Path' must be visible in the Everything
        ; window. The first value is the position of the 'Path', the second
        ; value is the position of the 'Name' column
        ; Default: 2,1
        EverythingColumnPositions=2,1
        AddEndSlash=1
    )"
    FileAppend, % iniContent, % iniFile, UTF-16
}

IniRead, DestinationFile,           % iniFile, General, DestinationFile,           % A_Temp "\~Everything.txt"
IniRead, EverythingColumnPositions, % iniFile, General, EverythingColumnPositions, 2`,1
IniRead, AddEndSlash, % iniFile, General, AddEndSlash, 1

DestinationFile           := ResolveEnvVars(DestinationFile)
EverythingColumnPositions := StrReplace(EverythingColumnPositions, " ")

; Force default value if none is given (or path doesn't exist)
SplitPath, DestinationFile, , dstPath
if (DestinationFile = "" || !InStr(FileExist(dstPath), "D")) {
    DestinationFile := "G:\System\Temp\Ev2TC.FileList"
}
if (EverythingColumnPositions = "" || !InStr(EverythingColumnPositions, ",")) {
    EverythingColumnPositions := "2,1"
}
;OutputDebug, % "DestinationFile: " DestinationFile

columnArray := StrSplit(EverythingColumnPositions, ",")


;hWnd := WinExist("im).*?Everything ahk_class EVERYTHING")
hWnd := WinExist("ahk_exe Everything(?:\d\d)*\.exe")

if hWnd {
    ControlGet, winContent, List, , SysListView321, % "ahk_id" hWnd

    if (winContent) {
        fullContent := ""

        ; Loop over row(s)
        Loop, Parse, winContent, `n
        {
            rowID := A_Index
            path  := ""
            name  := ""
            full  := ""

            ; Loop over column(s)
            Loop, Parse, A_LoopField, % A_Tab
            {
                colID   := A_Index
                content := A_LoopField
                If (colID > columnArray[1] And colID > columnArray[2])
                {
                  Break
                }
                Else
                {
                  If (colID = columnArray[1])
                  {
                    path := content
                    if !RegExMatch(path,"\\$")
                      path := path . "\"
                  }
                  Else if (colID = columnArray[2])
                  {
                    name := content
                  }
;                 OutputDebug, % "row: " rowID " | col: " colID " | content: " content
                }
            }
;           if (path && name)
;           {
               full        := path . name
              ;OutputDebug, % "file: " full
;           }
;           Else if (path) {
;             full        := path
;             ;OutputDebug, % "path: " full
;           }
            If InStr(FileExist(full), "D")
            {
               if (AddEndSlash == 1)
               {
                 if !RegExMatch(full,"\\$")
                 {
                   full := full . "\"
                 }
               }
               Else
               {
                 if RegExMatch(full,"\\$")
                 {
                   full := SubStr(full,1,StrLen(full)-1)
                 }
               }
            }
            fullContent .= full "`n"
        }
        fullContent := RegExReplace(fullContent,"\R$","")
        if (FileExist(DestinationFile))
          FileDelete, % DestinationFile

        FileAppend, % fullContent, % DestinationFile, UTF-16
        run "C:\Program Files\Total Commander\TotalCmd64.exe" /O /R=g:\System\Temp
    }
    Else
;   Empty search result
    {
      Msgbox, 16,, Search result is Empty, Nothing to do ...
    }
; No Everything window visible
} Else {
    Msgbox, 16, Fatal error, Everything window does not exist!
}
;run "C:\Tools\Everything\Everything64.exe" -close
SetTitleMatchMode, 1
return

; ==================================
; = GOTO: FUNCTIONS - ResolveEnvVars
; ==================================
; http://www.autohotkey.com/board/topic/40115-func-envvars-replace-environment-variables-in-text/#entry310601
ResolveEnvVars(str) {
    if sz := DllCall("ExpandEnvironmentStrings", "uint", &str, "uint", 0, "uint", 0)
    {
        VarSetCapacity(dst, A_IsUnicode ? sz * 2 : sz)
        if DllCall("ExpandEnvironmentStrings", "uint", &str, "str", dst, "uint", sz)
            return dst
    }
    return str
}

Please change filenames and paths to your taste.

Add to ini file parameter AddEndSlash
0 - don't add "\" to the end of dir path regardless EV setting
1 - add "\" to the end of dir path regardless EV setting

Tested on EV 1.5 1280 with folder_append_path_separator=1 and with folder_append_path_separator=0
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
tuska
Power Member
Power Member
Posts: 3760
Joined: 2007-05-21, 12:17 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *tuska »

Ovg wrote: 2021-10-14, 20:22 UTC New script
Thanks! :)
I will try it out, but it may take me a while to get back to you.
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

2tuska

If you change columns order - change ini file, completely exit from EV and start EV again
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
tuska
Power Member
Power Member
Posts: 3760
Joined: 2007-05-21, 12:17 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *tuska »

Ovg wrote: 2021-10-14, 20:35 UTC 2tuska
If you change columns order - change ini file, completely exit from EV and start EV again
Thank you, I have done this before according to your first instructions. :)
Maybe I'll do a test at the end, but basically I don't want to change the column order, e.g. name, path.
User avatar
tuska
Power Member
Power Member
Posts: 3760
Joined: 2007-05-21, 12:17 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *tuska »

2Ovg
I appreciate your efforts, but I had a lot of problems getting the script to work.
I am only a user and not a programmer(!).
Only a 2nd TC instance was started without search results.
Open_Everything_GUI_results_with_TC_LOADLIST.AHK - My changes
  1. DestinationFile=D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\EV-Results.txt
    DestinationFile=g:\system\Temp\Ev2TC.FileList
  2. EverythingColumnPositions=2,1
  3. AddEndSlash=1
  4. % A_Temp "\~EV-Results.txt"
    % A_Temp "\~Everything.txt"
  5. DestinationFile := "D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\EV-Results.txt"
    DestinationFile := A_Temp "~EV-Results.txt" ... in an earlier script! ... analogous to line 40 in the current script (modified).
    DestinationFile := "G:\System\Temp\Ev2TC.FileList"
  6. run "D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\TOTALCMD64.EXE" /O /T /S D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\
    run "C:\Program Files\Total Commander\TotalCmd64.exe" /O /R=g:\System\Temp
  7. run "C:\Tools\Everything\Everything64.exe" -instance "PRIVATE" -close
    line 141: ;run "C:\Tools\Everything\Everything64.exe" -close
My modified script

Code: Select all

;https://www.ghisler.ch/board/viewtopic.php?t=75439 Open Everything GUI results with TC LOADLIST
;https://www.ghisler.ch/board/viewtopic.php?t=75417 LOADLIST command and UTF8 file lists
;https://www.voidtools.com/forum/viewtopic.php?f=4&t=10594 Send ResultsList to Total Commander
;
; Build AutoHotkey_L
; Build x64
; Build Kill=true
; Build Zip=false
; Build Run=true

#NoEnv
;#Persistent
#SingleInstance Force
SetBatchLines, -1



;#x::
; Create / read .ini file settings
SetTitleMatchMode, RegEx
iniFile := RegExReplace(A_ScriptFullPath, "(ahk|exe)$", "ini")

if not (FileExist(iniFile)) {
    iniContent :="
    ( LTrim
        [General]
        ; Where to save the output (full path)
        DestinationFile=D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\EV-Results.txt

        ; The columns 'Name' and 'Path' must be visible in the Everything
        ; window. The first value is the position of the 'Path', the second
        ; value is the position of the 'Name' column
        ; Default: 2,1
        EverythingColumnPositions=2,1
        AddEndSlash=1
    )"
    FileAppend, % iniContent, % iniFile, UTF-16
}

IniRead, DestinationFile,           % iniFile, General, DestinationFile,           % A_Temp "\~EV-Results.txt"
IniRead, EverythingColumnPositions, % iniFile, General, EverythingColumnPositions, 2`,1
IniRead, AddEndSlash, % iniFile, General, AddEndSlash, 1

DestinationFile           := ResolveEnvVars(DestinationFile)
EverythingColumnPositions := StrReplace(EverythingColumnPositions, " ")

; Force default value if none is given (or path doesn't exist)
SplitPath, DestinationFile, , dstPath
if (DestinationFile = "" || !InStr(FileExist(dstPath), "D")) {
    DestinationFile := "D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\EV-Results.txt"
;   DestinationFile := A_Temp "~EV-Results.txt" ... in an earlier script! ... analogous to line 40 in the current script (modified).
;   DestinationFile := A_Temp "~EV-Results.txt" ... in einem früheren Skript! ... analog zu Zeile 40 im aktuellen Skript (modifiziert).
}
if (EverythingColumnPositions = "" || !InStr(EverythingColumnPositions, ",")) {
    EverythingColumnPositions := "2,1"
}
;OutputDebug, % "DestinationFile: " DestinationFile

columnArray := StrSplit(EverythingColumnPositions, ",")


;hWnd := WinExist("im).*?Everything ahk_class EVERYTHING")
hWnd := WinExist("ahk_exe Everything(?:\d\d)*\.exe")

if hWnd {
    ControlGet, winContent, List, , SysListView321, % "ahk_id" hWnd

    if (winContent) {
        fullContent := ""

        ; Loop over row(s)
        Loop, Parse, winContent, `n
        {
            rowID := A_Index
            path  := ""
            name  := ""
            full  := ""

            ; Loop over column(s)
            Loop, Parse, A_LoopField, % A_Tab
            {
                colID   := A_Index
                content := A_LoopField
                If (colID > columnArray[1] And colID > columnArray[2])
                {
                  Break
                }
                Else
                {
                  If (colID = columnArray[1])
                  {
                    path := content
                    if !RegExMatch(path,"\\$")
                      path := path . "\"
                  }
                  Else if (colID = columnArray[2])
                  {
                    name := content
                  }
;                 OutputDebug, % "row: " rowID " | col: " colID " | content: " content
                }
            }
;           if (path && name)
;           {
               full        := path . name
              ;OutputDebug, % "file: " full
;           }
;           Else if (path) {
;             full        := path
;             ;OutputDebug, % "path: " full
;           }
            If InStr(FileExist(full), "D")
            {
               if (AddEndSlash == 1)
               {
                 if !RegExMatch(full,"\\$")
                 {
                   full := full . "\"
                 }
               }
               Else
               {
                 if RegExMatch(full,"\\$")
                 {
                   full := SubStr(full,1,StrLen(full)-1)
                 }
               }
            }
            fullContent .= full "`n"
        }
        fullContent := RegExReplace(fullContent,"\R$","")
        if (FileExist(DestinationFile))
          FileDelete, % DestinationFile

        FileAppend, % fullContent, % DestinationFile, UTF-16
	run "D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\TOTALCMD64.EXE" /O /T /S D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\
;       run "D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\TOTALCMD64.EXE" /O /R=D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\
;       run "C:\Program Files\Total Commander\TotalCmd64.exe" /O /R=g:\System\Temp

        run "C:\Tools\Everything\Everything64.exe" -instance "PRIVATE" -close
;	run "C:\Tools\Everything\Everything64.exe" -close    	--> see also line 151!
    }
    Else
;   Empty search result
    {
      Msgbox, 16,, Search result is Empty, Nothing to do ...
    }
; No Everything window visible
} Else {
    Msgbox, 16, Fatal error, Everything window does not exist!
}
;run "C:\Tools\Everything\Everything64.exe" -close		--> see also line 140!
SetTitleMatchMode, 1
return

; ==================================
; = GOTO: FUNCTIONS - ResolveEnvVars
; ==================================
; http://www.autohotkey.com/board/topic/40115-func-envvars-replace-environment-variables-in-text/#entry310601
ResolveEnvVars(str) {
    if sz := DllCall("ExpandEnvironmentStrings", "uint", &str, "uint", 0, "uint", 0)
    {
        VarSetCapacity(dst, A_IsUnicode ? sz * 2 : sz)
        if DllCall("ExpandEnvironmentStrings", "uint", &str, "str", dst, "uint", sz)
            return dst
    }
    return str
}
Results:
- Error message because of comments in EV-Results.txt
- no more empty lines in the file "EV-Results.txt | After restarting the PC, empty lines are again present in the same test.
- EV-Results.txt" has 120 lines inclusive 18 empty lines and 5 lines with comments and authors,
  instead of 97 lines because of columns "Comments" and "Author".
- In Total Commander, however, the search result on the "Search result" tab of 10 directories and 87 files was displayed CORRECTLY.

Please check the modified script.
Thank you!
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

2tuska

I need you ini file, EV-Results.txt made by script, screenshot you EV window with search result, error message(s).

I tested with only one running EV instance, so leave the only one running EV instance and close all other.
Last edited by Ovg on 2021-10-15, 08:05 UTC, edited 1 time in total.
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

UPD:
I tested with two running instance of EV, working fine, script gets result from active EV window
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
tuska
Power Member
Power Member
Posts: 3760
Joined: 2007-05-21, 12:17 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *tuska »

Ovg wrote: 2021-10-15, 02:51 UTC 2tuska
I need you ini file, EV-Results.txt made by script, screenshot you EV window with search result, error message(s).
I can give you all this, but it won't do you any good if you don't recreate the following test scenario for yourself:
.ini file - applies to all Everything instances! - .ini file will be created automatically
In principle, this has already been shown here (exklusiv AddEndSlash=1): https://ghisler.ch/board/viewtopic.php?p=406263#p406263

Code: Select all

[General]
; Where to save the output (full path)
DestinationFile=D:\Daten\Programme\TotalCommander\TCD_USB-Stick\TC32-64USB\EV-Results\EV-Results.txt

; The columns 'Name' and 'Path' must be visible in the Everything
; window. The first value is the position of the 'Path', the second
; value is the position of the 'Name' column
; Default: 2,1
EverythingColumnPositions=2,1
AddEndSlash=1
  1. For test purposes, set up the following columns in Everything 1.5.0.1280a (x64) - in this column order - :
    Name|Path|Extension|Size|Date Modified|Date Created|Date Accessed|Comment|Authors| --> 9 columns
    - Right click on any column heading
    - Organize Columns... -> Add...
    - Search: comment -> Name: Comment | Type: Metadata | Canonical Name: Comment -> Press "OK" button
    - Click on Add...
    - Search: authors -> Name: Authors | Type: Metadata; Canonical Name: Authors -> Press "OK", "OK"
  2. In the document properties of a .docx Word document, on the "Details" tab, in the "Comments" field
    (copy/paste) the comment I have entered below.
  3. Do a search in Everything, e.g. file:test.doc
  4. Run the script.
  5. Expected result: Error message, final search result correct.
Document properties -> Details -> Comment ... <copy/paste>

Code: Select all

Kommentare:
Papierfach entleeren (A4-Blätter);
Briefkuvert muß mit Umschlagklappe (oben) und
Umschlagklappe rechts in den normalen Papier
einzug eingelegt werden (nicht in Kuv.Fach !) -
Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,zB Breite 16,2 cm Höhe 11,4 cm OK;
Empfängeradresse:
von links: AUTO (enspricht idF 7,5 cm)
von oben: 5,5 cm  --- OK; keine Leerzeilen lassen zwischen Empfänger und Adresse ! ------ Papierfach entleeren (A4-Blätter);
Briefkuvert muß mit Umschlagklappe (oben) und
Umschlagklappe rechts in den normalen Papier
einzug eingelegt werden (nicht in Kuv.Fach !) -
Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,zB Breite 16,2 cm Höhe 11,4 cm OK; Papierfach entleeren (A4-Blätter);
Empfängeradresse:
von links: AUTO (enspricht idF 7,5 cm)
von oben: 5,5 cm  --- OK; keine Leerzeilen lassen zwischen Empfänger und Adresse !
Error message after execution of the script - 1:1 display

Code: Select all

Datei nicht gefunden (11x)
        bereits vorhanden (für <Strg>),
Briefkuvert muß mit Umschlagklappe (oben) und
einzug eingelegt werden (nicht in Kuv.Fach !) -
Empfängeradresse:
Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,zB Breite
16,2 cm Höhe 11,4 cm OK;
...
EV-Results.txt - Error lines due to comment on Word document

Code: Select all

; 120 lines, instead of 97 lines - 23 lines contained parts of the comment from the document properties.
; If there are errors, the file sometimes contains empty lines, sometimes not.
; There were NO empty lines in this test result!
;
; 120 Zeile, anstatt von 97 Zeilen - 23 Zeilen enthielten Teile von dem Kommentar aus den Dokumenteigenschaften.
; Sofern es Fehler gibt, enthält die Datei manchmal Leerzeilen, machmal nicht.
; Bei diesem Testergebnis gab es KEINE Leerzeilen!
...
Line  32: Briefkuvert muß mit Umschlagklappe (oben) und
Line  33: Umschlagklappe rechts in den normalen Papier
Line  34: einzug eingelegt werden (nicht in Kuv.Fach !) -
Line  35: Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,zB Breite 16,2 cm Höhe 11,4 cm OK;
Line  36: Empfängeradresse:
Line  37: von links: AUTO (enspricht idF 7,5 cm)
Line  38: KB\von oben: 5,5 cm  --- OK; keine Leerzeilen lassen zwischen Empfänger und Adresse !
...
Line  40: 38Briefkuvert muß mit Umschlagklappe (oben) und
Line  41: Umschlagklappe rechts in den normalen Papier
Line  42: einzug eingelegt werden (nicht in Kuv.Fach !) -
Line  43: Karl\Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,C6 oder Breite 16,2 cm Höhe 11,4 cm
...
Line  45: Briefkuvert muß mit Umschlagklappe (oben) und
Line  46: Umschlagklappe rechts in den normalen Papier
Line  47: einzug eingelegt werden (nicht in Kuv.Fach !) -
Line  48: Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,zB Breite 16,2 cm Höhe 11,4 cm OK;
Line  49: Empfängeradresse:
Line  50: von links: AUTO (enspricht idF 7,5 cm)
Line  51: KB\von oben: 5,5 cm  --- OK; keine Leerzeilen lassen zwischen Empfänger und Adresse !
...
Line  53: \Vorlage erstellt am:
...
Line 108:              bereits vorhanden (für <Strg>,
Line 109: Karl\              <Alt>, <Entf>, <Pos1>, usf.
...
Line 111:               bereits vorhanden (für <Strg>,
Line 112: Karl\              <Alt>, <Entf>, <Pos1>, usf.
I would like to mention again that the final search result in Total Commander was correct,
because TC did not process the error lines in the file "EV-Results.txt".

In my opinion, the script works very well (and as desired) :) .

Besides the comments on documents, there were for me so far
files with attribute "Hidden" and "Admin permission for read access"
where the search result was worth checking for me.
[Show hidden files (cm_SwitchHidSys) can avoid an error message...].

Presumably there will still be the one or the other transferred search results in the future that seem worth checking.
From my point of view, however, we can leave it at that for the time being. I am basically very satisfied. :)

Thank you for your efforts.
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

Ok, thanks for feedback, I'll test with you data later....
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
Ovg
Power Member
Power Member
Posts: 756
Joined: 2014-01-06, 16:26 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *Ovg »

2tuska

I found the problem - comments contains CR/LF (carriage return/line feed). For normal script working no columns should contains CR/LF

Please change you comment with this one and try again.
Spoiler

Code: Select all

Kommentare: Papierfach entleeren (A4-Blätter); Briefkuvert muß mit Umschlagklappe (oben) und Umschlagklappe rechts in den normalen Papier einzug eingelegt werden (nicht in Kuv.Fach !) - Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,zB Breite 16,2 cm Höhe 11,4 cm OK; Empfängeradresse: von links: AUTO (enspricht idF 7,5 cm) von oben: 5,5 cm  --- OK; keine Leerzeilen lassen zwischen Empfänger und Adresse ! ------ Papierfach entleeren (A4-Blätter); Briefkuvert muß mit Umschlagklappe (oben) und Umschlagklappe rechts in den normalen Papier einzug eingelegt werden (nicht in Kuv.Fach !) - Extras-Briefe-Umschläge-Optionen-Benutzerdefiniert,zB Breite 16,2 cm Höhe 11,4 cm OK; Papierfach entleeren (A4-Blätter); Empfängeradresse: von links: AUTO (enspricht idF 7,5 cm) von oben: 5,5 cm  --- OK; keine Leerzeilen lassen zwischen Empfänger und Adresse !
Right description of the problem and steps to reproduce - 50% of the solution :thumbsup: :mrgreen:
It's impossible to lead us astray for we don't care even to choose the way.
#259941, TC 11.01 x64, Windows 7 SP1 x64
User avatar
tuska
Power Member
Power Member
Posts: 3760
Joined: 2007-05-21, 12:17 UTC

Re: Open Everything GUI results with TC LOADLIST

Post by *tuska »

Ovg wrote: 2021-10-15, 13:06 UTC 2tuska
I found the problem - comments contains CR/LF (carriage return/line feed). For normal script working no columns should contains CR/LF
I'm glad you found the problem, because then at least our effort was worth it. :)
I have considered your suggestion and implemented it. This time the error message no longer appeared.

Here's another addendum because of test results - hopefully I won't find any unexpected search results in the near future...
Modification of .ini file-s- for the script
https://ghisler.ch/board/viewtopic.php?p=406270#p406270
Ovg » 14.10.2021 22:22 wrote: New script
Please change filenames and paths to your taste.

Add to ini file parameter AddEndSlash
0 - don't' add "\" to the end of dir path regardless EV setting
; nicht "\" an das Ende des Verzeichnisses anhängen, unabhängig von der EV-Einstellung
1 - add "\" to the end of dir path regardless EV setting
; unabhängig von der EV-Einstellung "\" an das Ende des Verzeichnispfads anhängen

Tested on EV 1.5 1280a with
- folder_append_path_separator=1 and with
- folder_append_path_separator=0
By default, this parameter is used after the first call of the script (.exe): AddEndSlash=1
; Standardmäßig wird nach dem ersten Aufruf des Skripts (.exe) dieser Parameter verwendet: AddEndSlash=1

========================================================================================================

https://ghisler.ch/board/viewtopic.php?p=406266#p406266
Ovg » 14.10.2021 21:23 wrote: ... I found out that if you change the order of the columns in EV
- you will have to write the changes in ini file and
- then completely exit EV and
- launch it again
so that the script will recognize the change.
This procedure also applies to changing the parameter, e.g: AddEndSlash=1
; Diese Vorgangsweise gilt auch für die Änderung des Parameters, zB: AddEndSlash=1

Code: Select all

Example with use of 2 EV instances     (1)     (2)     (3)     (4) 	Notes
-------------------------------------------------------------------------------------------------------------------------------
AddEndSlash=1				x	x			"AHK"-ini
AddEndSlash=0						x	x	"AHK"-ini
-------------------------------------------------------------------------------------------------------------------------------
folder_append_path_separator=1 			x		x	EV search box: /folder_append_path_separator=1  <ENTER>
folder_append_path_separator=0		X		x		EV search box: /folder_append_path_separator=0  ENTER
-------------------------------------------------------------------------------------------------------------------------------
1.5.0.1280a (x64) *			X	x	x	x	Everything "Main instance"     (language: English)
1.5.0.1280a (x64) - (PRIVATE) **	x	x	x	x	Everything Instance "PRIVATE"  (language: German)
-------------------------------------------------------------------------------------------------------------------------------
Results					OK	OK	OK	OK
===============================================================================================================================

Code: Select all

No.  Backslashes for folders in "EV-Results.txt"			Note
-------------------------------------------------------------------------------------------------------------------------------
(1)  OK - Backslash at the end of the folder name
(2)  OK - Backslash at the end of the folder name
(3)  OK - No backslash at the end of the folder name
(4)  OK - No backslash at the end of the folder name			The script does not take the EV parameter into account.
===============================================================================================================================

Code: Select all

 * Open_Everything_GUI_results_with_TC_LOADLIST.AHK  ==>  Open_Everything_GUI_results_with_TC_LOADLIST.exe
   run "C:\Tools\Everything\Everything64.exe" -instance "PRIVATE" -close
   ; This parameter is necessary for me so that the Everything window remains open in the main instance.
   ; With parameter: run "C:\Tools\Everything64.exe" -close .... the Everything window is closed for me.

   ; Dieser Parameter ist bei mir erforderlich, damit in der Hauptinstanz das Everything-Fenster offen bleibt.
   ; Bei Parameter: run "C:\Tools\Everything\Everything64.exe" -close wird das Everything-Fenster geschlossen.

** Open_Everything_GUI_results_with_TC_LOADLIST_instances.AHK  ==>  Open_Everything_GUI_results_with_TC_LOADLIST_instances.exe
   run "C:\Tools\Everything\Everything64.exe" -close
Btw, 1280: removed requirement for multiple Everything Service instances.

Thank you again very much for your efforts and support!
Post Reply