Metadaten u. Vorschau bei Dateitypformaten

[Columbo]

Hallo ihr hilfreichen Geister hier,

ich habe folgenden Wunsch:

Wenn ich einen Ordner mit best. Dateitypformat (zB. "Bilder", "Fotos") öffne, dann möchte ich, dass die Vorschau als auch die Metadaten-Anzeige automatisch ein- u. wieder ausgeblendet wird.

Ist das machbar?
Und wenn ja, wie?

Grüße Frank

[tbone]

Könnte man mit Script lösen.. aber so über die Prefs kriegt man das nicht hin.

Hier habe ich mal ein ScriptAddin gebaut, damit ließe sich das vermutlich auch lösen, vll installierst Du das mal und probierst.
Wenn Du es damit nicht hinbekommst, gucken wir mal wo das Problem ist! o)

OverrideFormats ScriptAddin:
https://resource.dopus.com/t/event-over ... ge/19079/1

[Columbo]

Hallo tbone und alle anderen

Könnte man mit Script lösen.. aber so über die Prefs kriegt man das nicht hin.

Stimmt wahrscheinlich...

OverrideFormats ScriptAddin:
https://resource.dopus.com/t/event-over ... ge/19079/1

... ist mir ehrlich gesagt zu kompliziert (bin schon > 60 und eigentlich kein 'Skriptschreiber')

Ich habe da mal was gebastelt:
Funktioniert unter folgenden Vorraussetzungen eigentlich recht gut:

1. Dateitypformate sind definiert und aktiviert (hier: Musik, Bilder, Filme...) (Inhaltstyp ?)
2. Lister im DualView mit jeweils mehreren Tabs
3. Beim Umschalten in Tabs mit diesen Formaten, werden Vorschau und Metadaten eingeblendet, sonst ausgeblendet.

Aber: funktioniert leider noch nicht ohne Tabs

Code: Alles auswählen

option explicit

' Test
' (c) 2024 Columbo

' This is a script for Directory Opus.
' See https://www.gpsoft.com.au/endpoints/redirect.php?page=scripts for development information.

' Called by Directory Opus to initialize the script
Function OnInit(initData)
  initData.name = "Test"
  initData.version = "1.0"
  initData.copyright = "(c) 2024 Columbo"
' initData.url = "https://resource.dopus.com/c/buttons-scripts/16"
  initData.desc = ""
  initData.default_enable = true
  initData.min_version = "13.0"
End Function


' Called when a tab is activated
Function OnActivateTab(activateTabData)
  Dim aktTab, xx, xFormat, strFormat
  Dim myCMD

  DOpus.ClearOutput

  set aktTab  = activateTabData.newTab
  set xFormat = aktTab.format

  xx = xFormat.format_explain.length            ' Anzahl Formate ermitteln
  strFormat = xFormat.format_explain(xx-1)      ' letzten Eintrag = Inhaltstyp sichern

  DOpus.OutPutString strFormat

  set myCMD = DOpus.CreateCommand
  myCMD.RunCommand("Set VIEWPANE=off")
  myCMD.RunCommand("Set METAPANE=off")

  if instr(1,strFormat,"Musik") then            ' prüft, ob Inhaltstyp = Musik
    myCMD.RunCommand("Set VIEWPANE=on")
    myCMD.RunCommand("Set METAPANE=on,vert")
  end if

  if instr(1,strFormat,"Filme") then            ' prüft, ob Inhaltstyp = Filme
    myCMD.RunCommand("Set VIEWPANE=on")
    myCMD.RunCommand("Set METAPANE=off")
  end if

  if instr(1,strFormat,"Bilder") then           ' prüft, ob Inhaltstyp = Bilder
    myCMD.RunCommand("Set VIEWPANE=on")
    myCMD.RunCommand("Set METAPANE=on,vert")
  end if

  set myCMD = Nothing
End Function

Das ist garantiert noch viel besser machbar
Ideen ?

Gruß Frank

[tbone]

Na offensichtlich aber doch ein Script-Schreiber! So für's erste "Ding", ist das doch sehr beachtlich! Wunderbar! o)

Ich verstehe jetzt aber nicht, wenn Du meinst "es funktioniert nicht ohne Tabs". Du meinst wenn Du nur jeweils einen Tab hast und die Tab-Leiste dann ausgeblendet ist? Ich würde meinen auch mit nur einem Tab pro FileDisplay / Lister sollte das gehen.

Aber vielleicht wäre es besser, wenn OnAfterFolderChange() als Event verarbeitest:
Du https://docs.dopus.com/doku.php?id=refe ... lderchange

Und bei Verwendung des Command Objekts, solltest Du mittels SetSource() den Tab setzen, auf dass sich der abgesetzte Befehl beziehen soll.
https://docs.dopus.com/doku.php?id=refe ... ts:command

Also statt OnActivateTab() -> OnAfterFolderChange( data ) nehmen und..
data.result == true vielleicht noch testen (Folder erfolgreich geladen) und..
myCommand.setSource( data.tab ) einstreuen, dann funktioniert es vermutlich auf jeden Fall / besser?!

[Columbo]

Hallo tbone,
noch besser scheint das mit den Events OnSourceDestChange + OnActivateTab zu klappen.

Jetzt ist es schon fast perfekt, funktioniert ...

... jetzt auch beim Wechseln des Source/Dest im FileDisplay/Lister ohne/mit Tabs(Register)
... als auch beim Umschalten/Wechseln zwischen Tabs(Register)

Code: Alles auswählen

option explicit

' AutoView_Folder
' (c) 2024 Columbo

' This is a script for Directory Opus.
' See https://www.gpsoft.com.au/endpoints/redirect.php?page=scripts for development information.

' Called by Directory Opus to initialize the script
Function OnInit(initData)
	initData.name = "AutoView_Folder"
	initData.version = "1.2"
	initData.copyright = "(c) 2024 Columbo"
'	initData.url = "https://resource.dopus.com/c/buttons-scripts/16"
	initData.desc = ""
	initData.default_enable = true
	initData.min_version = "13.0"
End Function

Dim aktTab, xFormat
Dim xx, strFormat

Function OnSourceDestChange(sourceDestChangeData)

  DOpus.ClearOutput

  if sourceDestChangeData.source = true then
    set aktTab = sourceDestChangeData.tab
	change_VIEW
  end if
  set aktTab = Nothing
End Function

Function OnActivateTab(activateTabData)
  set aktTab  = activateTabData.newTab
  change_VIEW
  set aktTab = Nothing
End Function

Sub change_VIEW()
  Dim myCMD
  
  set xFormat = aktTab.format
  xx = xFormat.format_explain.length
  strFormat = xFormat.format_explain(xx-1)
  set myCMD = DOpus.CreateCommand
  on error resume next                          	' Falls 'Dieser PC' angezeigt wird 
  myCMD.SetSource aktTab.path                	' (gibt sonst 'ne Fehlermeldung)
    myCMD.RunCommand("Set VIEWPANE=off")
    myCMD.RunCommand("Set METAPANE=off")

  if instr(1,strFormat,"Musik") then            ' prüft, ob Inhaltstyp = Musik
    myCMD.RunCommand("Set VIEWPANE=on")
    myCMD.RunCommand("Set METAPANE=on,vert")
  end if

  if instr(1,strFormat,"Bilder") then           ' prüft, ob Inhaltstyp = Bilder
    myCMD.RunCommand("Set VIEWPANE=on")
    myCMD.RunCommand("Set METAPANE=on,vert")
  end if

  if instr(1,strFormat,"Filme") then            ' prüft, ob Inhaltstyp = Bilder
    myCMD.RunCommand("Set METAPANE=on,vert")
  end if

  Set myCMD = Nothing
  on error goto 0
End Sub

Und bei Verwendung des Command Objekts, solltest Du mittels SetSource() den Tab setzen, auf dass sich der abgesetzte Befehl beziehen soll.

Check

BTW.: Warum funktionierts eigentlich nicht, wenn ich die if als if / elseif / else / end if formuliere??
Es werden doch alle Zweige durchlaufen, bis zur ersten Übereinstimmung, dann verlassen, oder ?

Grüße Frank

[tbone]

Ahja stimmt, ActivateTab() und SourceDestChange macht Sinn.. o)
Aber OnAfterFolderChange() brauchst Du doch auch?

BTW.: Warum funktionierts eigentlich nicht, wenn ich die if als if / elseif / else / end if formuliere??

Tjo sollte gehen, ich könnte jetzt aber aus der Hüfte nicht sagen worauf man bei if/elseif in VBS besonders achten müsste. Wenn Du noch mehr DO Scripte schreibst (demnächst vielleicht.. o), dann versuch' die auch gleich in JScript zu machen, Du hast viel mehr Möglichkeiten damit und auch viel mehr Beispiele im Netz für alles Mögliche. Der Umstieg auf JScript lohnt immer und es ist auch noch keiner von JScript wieder auf VBS gewechselt. o)

Ansonsten prima, weiter so! o)

[Columbo]

Ahja stimmt, ActivateTab() und SourceDestChange macht Sinn.. o)
Aber OnAfterFolderChange() brauchst Du doch auch?

Check

BTW.: Warum funktionierts eigentlich nicht, wenn ich die if als if / elseif / else / end if formuliere??

In JScript funktionierts

Wenn Du noch mehr DO Scripte schreibst (demnächst vielleicht.. o), dann versuch' die auch gleich in JScript zu machen, Du hast viel mehr Möglichkeiten damit und auch viel mehr Beispiele im Netz für alles Mögliche. Der Umstieg auf JScript lohnt immer und es ist auch noch keiner von JScript wieder auf VBS gewechselt. o)

Sooo, meine erste Umsetzung in JScript (einige Grundzüge in JScript sind vorhanden, durch UltraEdit)

Code: Alles auswählen

// ===================================================================================================
// Scriptname    :  AutoView_Folder.js
// Aufgabe       :  
// Beschreibung  :  
// Author        :  Columbo
// Datum         :  14.05.2024
// Pfad          :  C:\Users\Columbo\AppData\Roaming\GPSoftware\Directory Opus\Scripts\
// ===================================================================================================

'use strict';

var  aktTab, xFormat;
var  xx = 0;
var  strFormat = '';

function OnInit(initData) 
{
  initData.name = "AutoView_Folder";
  initData.version = "1.3";
  initData.copyright = "(c) 2024 Columbo";
//' initData.url = "https://resource.dopus.com/c/buttons-scripts/16"
  initData.desc = "Jetzt in JScript!  ;-)";
  initData.default_enable = true;
  initData.min_version = "13.0";
}
DOpus.ClearOutput;                                                    // Script-Protokoll löschen

// ===================================================================================================
// Funktion      :  OnSourceDestChange(sourceDestChangeData)
// Parameter     :  sourceDestChangeData
// Aufgabe       :  
// Author        :  Frank Schulze
// Datum         :  14.05.2024
// ===================================================================================================
function OnSourceDestChange(sourceDestChangeData) 
{
  if (sourceDestChangeData.source == true) 
  {
    aktTab = sourceDestChangeData.tab;
    change_VIEW();
  }
}

// ===================================================================================================
// Funktion      :  OnAfterFolderChange(afterFolderChangeData)
// Parameter     :  afterFolderChangeData
// Aufgabe       :  
// Author        :  Frank Schulze
// Datum         :  14.05.2024
// ===================================================================================================
function OnAfterFolderChange(afterFolderChangeData)
{
  aktTab = afterFolderChangeData.tab
  change_VIEW();
}

// ===================================================================================================
// Funktion      :  OnActivateTab(activateTabData)
// Parameter     :  activateTabData
// Aufgabe       :  
// Author        :  Frank Schulze
// Datum         :  14.05.2024
// ===================================================================================================
function OnActivateTab(activateTabData) 
{
  aktTab = activateTabData.newTab;
  change_VIEW();
}

// ===================================================================================================
// Funktion      :  change_VIEW()
// Aufgabe       :  blendet die Vorschau und Metadaten in Abhängigkeit zum erkannten Format
// Author        :  Frank Schulze
// Datum         :  14.05.2024
// ===================================================================================================
function change_VIEW() 
{
  var  myCMD, strPath;

  xFormat   = aktTab.format;
  xx        = xFormat.format_explain.length;
  strFormat = xFormat.format_explain(xx-1);
  strPath   = aktTab.path;

  myCMD = DOpus.CreateCommand;

  if (strPath == "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}") // Dieser PC
  {
  }
  else if (strPath == "/desktop")                            // Desktop
  {
  }
  else
  { 
    myCMD.setSource(aktTab.path);
  }

  myCMD.RunCommand("Set VIEWPANE=off");
  myCMD.RunCommand("Set METAPANE=off");

  if (strFormat.indexOf('Musik') != -1)
  {
    DOpus.ClearOutput;
    DOpus.Output(strFormat);  
    DOpus.Output("Musik/Audio");
    myCMD.RunCommand("Set VIEWPANE=on");
    myCMD.RunCommand("Set METAPANE=on,vert");
  }
  else if (strFormat.indexOf('Audio') != -1) 
  {
    DOpus.ClearOutput;
    DOpus.Output(strFormat);  
    DOpus.Output("Musik/Audio");
    myCMD.RunCommand("Set VIEWPANE=on");
    myCMD.RunCommand("Set METAPANE=on,vert");
  }
  else if (strFormat.indexOf('Bilder') != -1) 
  {
    DOpus.ClearOutput;
    DOpus.Output(strFormat);  
    DOpus.Output("Bilder");
    myCMD.RunCommand("Set VIEWPANE=on");
    myCMD.RunCommand("Set METAPANE=on,vert");
  }
  else if (strFormat.indexOf('Filme') != -1) 
  {
    DOpus.ClearOutput;
    DOpus.Output(strFormat);  
    DOpus.Output("Filme");
    myCMD.RunCommand("Set VIEWPANE=on");
    myCMD.RunCommand("Set METAPANE=on,vert");
  }
  myCMD = '';
}

Aber: Ich mag die vielen { } ; nicht. (Ich komme mehr aus der VBA-Ecke)

Verbesserungsvorschläge ???

Gruß Frank

[tbone]

Methoden würde ich immer mit () abschließen. Bei DOpus und VBS ist das nicht immer nötig, aber Du kriegst sonst anderswo um die Ohren, weil das ansich nicht üblich ist "ohne", bzw. es passiert einfach gar nichts, wenn die Methode/Funktion keine () am Ende hat, es ist normalerweise kein Funktionsaufruf so, mich irritiert das auch generell, wenn Methoden keine () am Ende haben (in Ruby z.B., da hänge ich die auch immer extra dran.. o).

-> DOpus.ClearOutput();

Und nur ein Geschmackssache-Vorschlag: Bei if / else if / else if.. mache ich das erste if immer "stumm", weil es die Formatierung versaut, weil es kürzer ist. Wenn die ganzen "else ifs" dann schön untereinander sind, sieht man u.U. auch Fehler schneller, ist aber natürlich kein Muss.. o)

Also statt:

Code: Alles auswählen

if (strFormat.indexOf('Musik') != -1) {
	//..
} else if (strFormat.indexOf('Audio') != -1) {
	//..
} else if (strFormat.indexOf('Bilder') != -1) {
	//.. 
} ..

So:

Code: Alles auswählen

if (0) {;
} else if (strFormat.indexOf('Musik') != -1) {
	//..
} else if (strFormat.indexOf('Audio') != -1) {
	//..
} else if (strFormat.indexOf('Bilder') != -1) {
	//.. 
} ..

Aber: Ich mag die vielen { } ; nicht. (Ich komme mehr aus der VBA-Ecke)

Dann hilft es vielleicht die öffnende Klammer auf die gleiche Zeile zu setzen?! So für jede Klammer eine Zeile ist mir auch "zuviel"..

Command.SetSource(); solltest Du immer aufrufen (und mit dem Tab Object), nicht nur wenn Du meinst einen regulären Pfad zu haben.
Also statt .. else { Command.SetSource( tab.path ); }, einfach immer Command.SetSource( tab );.

Und besser wäre wohl auch, wenn Du change_VIEW() immer gleich den Tab usw. mitgibst, über globale Variablen zwischen den Funktionen zu kommunizieren ist nicht so StateOfTheArt, Du brauchst auch keine globalen Variablen hier, das xFormat, xx, strFormat kann alles in die change_VIEW() Funktion rein und dort definiert werden, nur dort werden die benutzt.

[Columbo]

Hi, tbone

Methoden würde ich immer mit () abschließen. Bei DOpus und VBS ist das nicht immer nötig, aber Du kriegst sonst anderswo um die Ohren, weil das ansich nicht üblich ist "ohne", bzw. es passiert einfach gar nichts, wenn die Methode/Funktion keine () am Ende hat, es ist normalerweise kein Funktionsaufruf so, mich irritiert das auch generell, wenn Methoden keine () am Ende haben (in Ruby z.B., da hänge ich die auch immer extra dran.. o).

-> DOpus.ClearOutput();

Jaaaa, vergess ich manchmal, da keine Fehlermeldungen (da ist JScript leider seehr schwach)

Und nur ein Geschmackssache-Vorschlag: Bei if / else if / else if.. mache ich das erste if immer "stumm", weil es die Formatierung versaut, weil es kürzer ist. Wenn die ganzen "else ifs" dann schön untereinander sind, sieht man u.U. auch Fehler schneller, ist aber natürlich kein Muss.. o)

So:

Code: Alles auswählen

if (0) {;
} else if (strFormat.indexOf('Musik') != -1) {
	//..
} else if (strFormat.indexOf('Audio') != -1) {
	//..
} else if (strFormat.indexOf('Bilder') != -1) {
	//.. 
} ..

Cool, man lernt immer dazu.
Kannte ich so noch nicht und sieht tatsächlich übersichtlicher aus.

Aber: Ich mag die vielen { } ; nicht. (Ich komme mehr aus der VBA-Ecke)

Dann hilft es vielleicht die öffnende Klammer auf die gleiche Zeile zu setzen?! So für jede Klammer eine Zeile ist mir auch "zuviel"..

Die Zeile mehr stört mich nicht weiter. Und da ich UltraEdit als ext. Texteditor benutze, brauche ich mir darüber, durch dessen 'Funktions-Templates', keine Gedanken machen. { } und Einrückungen werden automatisch eingefügt.

Command.SetSource(); solltest Du immer aufrufen (und mit dem Tab Object), nicht nur wenn Du meinst einen regulären Pfad zu haben.
Also statt .. else { Command.SetSource( tab.path ); }, einfach immer Command.SetSource( tab );.

PROBLEM!!! Bei

Code: Alles auswählen

myCMD.SetSource(tab);

bekomme ich IMMER Fehlermeldungen: Ungültiger Prozeduraufruf oder ungültiges Argument (0x800a0005)
Allerdings, bei

Code: Alles auswählen

myCMD.SetSourceTab(tab);

klappt es bei allen Ordner. Ist das jetzt gleichwertig???

bei

Code: Alles auswählen

myCMD.SetSource(tab.path);

bekomme ich diese Fehler lediglich bei den 'Spezial'-Ordnern: Dieser PC (bei mir "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}") Desktop ("/desktop") und einigen anderen 'Spezial'-Ordnern.
Ich habe da ja keinen Pfad, den ich verwenden kann. oder???
Habe echt mehrere Stunden experimentiert.... nothing
Hast Du einen Tipp für mich???

Und besser wäre wohl auch, wenn Du change_VIEW() immer gleich den Tab usw. mitgibst, über globale Variablen zwischen den Funktionen zu kommunizieren ist nicht so StateOfTheArt, Du brauchst auch keine globalen Variablen hier, das xFormat, xx, strFormat kann alles in die change_VIEW() Funktion rein und dort definiert werden, nur dort werden die benutzt.

Check

Gruß Frank

[tbone]

myCMD.SetSourceTab(tab);
klappt es bei allen Ordner. Ist das jetzt gleichwertig???

Weiß ich aus dem Stehgreif auch nicht, aber die Doku sagt..
https://docs.dopus.com/doku.php?id=refe ... ts:command

image.png (14.96 KiB) 125 mal betrachtet

Also, ja.. SetSourceTab() tut's wohl sogar noch besser als SetSource().

Sehr prima! o) Auch dass Du jetzt direkt schon auf JScript gewechselt bist, das hätte ich ehrlich gesagt nicht gleich erwartet, aber schön, wenn man Tips gibt und die auch gleich Anwendung finden, das ist ja nicht unbedingt die Regel! o) Solltest Du doch ein bissl mehr machen, wird sich das noch auszahlen.

Wenn man etwas fitter ist mit JScript (bzw. Javascript im weiteren Sinne), dann lassen sich damit doch deutlich modernere Scripte und Strukturen aufbauen als mit VBS. Wiederverwenden kann man JS auch öfter mal, im Browser oder in einem NodeJS Script oder wo hast Du das schon benutzt, in UltraEdit? Das ist ja nicht verkehrt, wußte gar nicht, dass UltraEdit eine Scripting-Engine hat! Gut zu wissen! o)

[Columbo]

Also, ja.. SetSourceTab() tut's wohl sogar noch besser als SetSource().

Ich lass das jetzt erstmal so, verursacht ja auch keinen Fehler.

UltraEdit? Das ist ja nicht verkehrt, wußte gar nicht, dass UltraEdit eine Scripting-Engine hat! Gut zu wissen! o)

Kann ich echt nur empfehlen, die 30-Tage-Probeversion sollte man sich gerade als Programmierer unbedingt mal näher ansehen.
Gerade die Anpassungsfähigkeit ist wie bei DOpus gewaltig
BTW: Die Funktionsköpfe in meine Codes werden zB. durch ein JavaScript erzeugt.

... und edel sieht es auch noch aus

[tbone]

Also, ja.. SetSourceTab() tut's wohl sogar noch besser als SetSource().
Ich lass das jetzt erstmal so, verursacht ja auch keinen Fehler.

Mach' es lieber doch mit SetSourceTab(), es kostet ja nichts!? o)

Wenn der "Source" nicht stimmt, kann irgendein Command auf dem falschen / einem unerwarteten Tab ablaufen. Beim Meta-Panel Ein/Ausblenden vermutlich nicht relevant, aber vielleicht beim nächsten Script oder jemand kopiert den Code von hier und macht dann mit "Delete" seine Versuche. Vorsicht ist die Mutter.. o)

[Columbo]

Also, ja.. SetSourceTab() tut's wohl sogar noch besser als SetSource().
Ich lass das jetzt erstmal so, verursacht ja auch keinen Fehler.

Mach' es lieber doch mit SetSourceTab(), es kostet ja nichts!? o)

ups, da haben wir uns wohl missverstanden:
Meine Aussage bezog sich darauf, es bei SetSourceTab() zu belassen, also alles gut

[tbone]

Ok, alles klar. o)

Wenn das Script bei Dir ein paar Wochen lang fehlerfrei gelaufen ist und keine Probleme macht, kannst Du die Version hier ja nochmal posten. Die Panels automatisch über den Folder-Inhalt sichtbar/unsichtbar zu schalten, ist ja tatsächlich eine kleine Lücke im DO Funktionsumfang bislang, das ist daher für andere User bestimmt auch interessant. Bis denne! o)