Datei-Anzeige

mumpel · Screenshot 2023-08-23 223718.png

Hallo!

Ich suche eine "Dateianzeige". Angezeigt werden sollen PDF, Word und Excel. Kann man irgendwie die Vorschau-Funktion des Windows-Explorers nutzen? Das Einlesen der Dateien/Dateinamen in ein Treeview habe ich schon, fehlt nurnoch das Laden der Datei in eine "Dateianzeige". (Ziel ist ein "Kompendium Regelwerke", vergleichbar mit dem "Kompendium Arbeitsschutz" der verschiedenen Berufsgenossenschaften. Siehe Bild).

Ordner einlesen:

C

#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiTreeView.au3>
#Include <File.au3>

$gui = GUICreate("Konzern-Regelwerke", 1700, 1000, -1, -1)
$tree = GUICtrlCreateTreeView(0, 0, 361, 980)
GUICtrlSetFont(-1,10)
;~ GUICtrlSetColor($tree, 0x000000)
;~ GUICtrlSetBkColor($tree,0xFFFFFF)

$hImage = _GUIImageList_Create(16, 16, 5, 2)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 4)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 54)
_GUICtrlTreeView_SetNormalImageList($tree, $hImage)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

$root = _GUICtrlTreeView_AddChild($tree,"",@ScriptDir,0)

GUISetState(@SW_SHOW)
_GUICtrlTreeView_Expand($tree)
While 1
    $msg = GUIGetMsg()
    If $msg= -3 Then ExitLoop
WEnd

Func _SearchFolder($folder,$parent,$level=0)
    If $level >= 1 Then Return
    $files = _FileListToArrayRec($folder,"*.xl*; *.pdf; *doc*", $FLTAR_RECUR)
    $folders = _FileListToArray($folder,"*",2)
    _FolderFunc($folders,$folder,$parent,$level)
    _FileFunc($files,$parent)
EndFunc

Func _FileFunc($files,$parent)
    For $i = 1 To UBound($files)-1
        _GUICtrlTreeView_AddChild($tree,$parent,$files[$i],1,1)
    Next
EndFunc

Func _FolderFunc($folders,$folder,$parent,$level)
    For $i = 1 To UBound($folders)-1
        $parentitem = _GUICtrlTreeView_AddChild($tree,$parent,$folders[$i],0)
        _SearchFolder($folder & "\" & $folders[$i],$parentitem,$level+1)
    Next   
EndFunc



Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR
    $hWndTreeView = GUICtrlGetHandle($tree)
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hWndTreeView
            Switch $iCode
                Case -451
                    $item = _GUICtrlTreeView_GetSelection($hWndTreeView)
                    $root = $item
                    If _GUICtrlTreeView_GetChildCount($hWndTreeView,$item) <= 0 Then
                        $txt = _GUICtrlTreeView_GetText($hWndTreeView,$item)
                        Do
                            $parent = _GUICtrlTreeView_GetParentHandle($hWndTreeView,$item)
                            If $parent <> 0 Then
                                $txt = _GUICtrlTreeView_GetText($hWndTreeView,$parent) & "\" & $txt
                                $item = $parent
                            EndIf
                        Until $parent = 0
                        _SearchFolder($txt,$root)
                    EndIf
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc

Alles anzeigen

Schön wäre jetzt noch, dass immer nur ein Unterordner aufgeklappt wäre, damit es übersichtlich bleibt, und eventuell das Ausblenden der Dateiendung.

Da ich kein Englisch kann, tue ich mich schwer mit der Google-Suche. Das meiste was ich bezüglich "PDF-Anzeige" finde, bezieht sich auf den Internet-Explorer. Welche Suchbegriffe kann ich da nutzen?

Danke!

Gruß, René

**water**

Auf die Schnelle:
Suche nach "All type file Reader for Windows 7 free download" bringt z.B. https://windowsfileviewer.com/
Suche nach "Kostenlose Dateibetrachter" bringt z.B. https://pdf.wondershare.de/how-to/free-file-viewer.html

**Moombas**

mumpel: Solltest du mit dem von mumpel vorgeschlagenen nicht zufrieden sein und doch was eigenes brauchen, stellen sich bei mir div. Fragen:

- Warum der Mix aus PDF/WORD/EXCEL?

----Kannst du das nicht vereinheitlichen (auf z.B. nur PDF)?

--------Wenn nicht, sind die Dateinamen dann wenigstens einzigartig (es gibt kein PDF das so heißt wie ein anderes word oder excel Dokument)?

------------Wenn doch, wird das mit dem ausblenden der Dateiendung schonmal schwierig, wenn die Dateien dann noch im gleichen Ordner liegen auch nahezu unmöglich denn irgendwo braucht man einen Bezug zur exakt-richtigen Datei (wie man also vom Treeview-Eintrag wieder zurück zur entsprechenden Datei + Endung + Pfad kommt um sie anzeigen zu können).

Mir persönlich ist kein autoit interner "viewer" für doc, pdf oder excel bekannt. Ich kenne nur Umwege über einen eingebetteten IE:

Word (und müsste dann auch mit PDF und ggf. Excel funktionieren): https://www.autoitscript.com/forum/topic/28…&comment=203774

Und das ist der Grund warum du wohl auch immer nur diese Ergebnisse zum IE findest.

mumpel

Zitat von Moombas

wenn die Dateien dann noch im gleichen Ordner liegen

Die können auch in unterschiedlichen Unterordnern liegen, wenn man es z.B. nach Geschäftsbereich sortieren möchte.

Zitat von Moombas

Warum der Mix aus PDF/WORD/EXCEL?

Weil das so aus der Konzernregelwerks-Datenbank kommt. Das Konvertieren nimmt zuviel Zeit in Anspruch (bei hunderten von Vorschriften). Neuerdings haben sich die Regelwerks-Schreiber angewöhnt, Vorschriften nicht mehr als Gesamt-Dokument auszugeben, sondern jeden Anhang separat in die KRWD zu packen.

Zitat von Moombas

sind die Dateinamen dann wenigstens einzigartig

Natürlich. Sind ja Vorschriften/Regelwerke.

Zitat von Moombas

Ich kenne nur Umwege über einen eingebetteten IE

Für PDF-Dateien bietet sich das WebBrowser-Control (das ist mir erst später eingefallen, da war die Frage hier schon drin), das habe ich auch schon gefunden, nur funktioniert das nicht bei Word und Excel (Die Dateien wollen immer heruntergeladen oder gespeichert werden. An die IE-Einstellungen kommt man ja unter Windows 11 nicht mehr ran). Dann bleibt dann nur das Öffnen mit der zugehörigen Anwendung.

Ich habe jetzt nur noch Probleme mit dem korrekten Ansprechen der Einträge im Treeview.

mumpel

Zitat von water

Auf die Schnelle:
Suche nach "All type file Reader for Windows 7 free download" bringt z.B. https://windowsfileviewer.com/
Suche nach "Kostenlose Dateibetrachter" bringt z.B. https://pdf.wondershare.de/how-to/free-file-viewer.html

Das ist nicht das selbe wie das "Kompendium Arbeitsschutz".

**water**

Zitat von mumpel

Das ist nicht das selbe wie das "Kompendium Arbeitsschutz".

Verstehe ich nicht Kannst Du das konkretisieren?

**Moombas**

Ich kenne mich leider mit der Strucktur der Dateien nicht aus, um dort direkt die Infos raus zu holen und dann in autoit entsprechend darzustellen.

mumpel · Screenshot 2023-08-24 125446.png

Anbei mal ein Bild mit der Struktur (in Zukunft können das auch mehrere Unterordner sein, auch weitere Unterordner in den Unterordnern. Ich habe auch den aktuellen Stand der au3 angehängt.

**water**

Ich stelle mal die Frage andersherum: Mit welcher Software erstellen die verschiedenen Berufsgenossenschaften ihr "Kompendium Arbeitsschutz"?
Vielleicht kann man das Tool beschaffen und somit das Problem elegant lösen?

Weitere Fragen:

Kann man davon ausgehen, dass auf den PC's Word, Excel und ein PDF Reader installiert ist?
Von welchen Formaten gehen wir aus? DOC und XLS (aslo binäres Format) oder DOCX und XLSX (also komprimiertes XML)?

mumpel

Zitat von water

Mit welcher Software erstellen die verschiedenen Berufsgenossenschaften ihr "Kompendium Arbeitsschutz"?

Das wird vom Jedermann-Verlag im Auftrag der Berufsgenossenschaften programmiert (Nicht jede BG gibt das Geld dafür aus). Das ist natürlich nichts für Hobby-Anwender/Programmierer, viel zu teuer. Da sind die Dokumente auch nicht im Klarformat abgelegt, sondern in komprimierten Dateien (Die werden temporär ins Temp-Verzeichnis extrahiert). Das Kompendium nutzt übrigens auch nur die IE-Engine, mal schauen wie lange das noch funktioniert.

Zitat von water

Vielleicht kann man das Tool beschaffen und somit das Problem elegant lösen?

Schon (vor langer Zeit) angefragt. Keine Chance. Ich hatte schon die Idee, das Kompendium so zu erweitern, dass man eigene Dokumente hinzufügen oder enthaltene Dokumente ändern kann (Dann müsste man auch nicht 3 Monate oder länger warten bis Gesetzesänderungen eingepflegt werden).

Zitat von water

Kann man davon ausgehen, dass auf den PC's Word, Excel und ein PDF Reader installiert ist?

Natürlich.

Zitat von water

Von welchen Formaten gehen wir aus? DOC und XLS (aslo binäres Format) oder DOCX und XLSX (also komprimiertes XML)?

I. d. R. die "neuen" XML-Formate. Die stellt das WebBrowser-Control (IE-Engine) aber nicht dar, und die Reaktion des IE kann nur über die Registrierungsdatenbank geändert werden (wird aber nicht gemacht), die Office-Dateien werden dann mit der standardmäßig verknüpfte Anwendung geöffnet. Oder der Anwender muss dann doch die Dateien in PDF konvertieren.

**water**

Dann sollten sich in den AutoIt-Foren Beiträge finden lassen, wie sich Word, Excel und PDF-Reader in eine Control eines GUI einbinden lassen.

Ich gehe mal suchen ...

mumpel

Zitat von water

Ich gehe mal suchen

Ich suche schon seit gestern. Ergebnisse nur für WebBrowser-Control. PDF funktioniert ja damit.

mumpel

Ich hatte auch schon etwas gefunden (ObjCreate("AcroPDF.PDF.1")). Das funktioniert aber entweder extrem träge, oder gar nicht. Da ist das WebBrowser-Control schon besser (das funktioniert, und auch schnell)

gmmg

auf GitHub gibt es einen FileExplorer, den kann man anpassen, dass nur 2 Spalten (Folder/Files und die Vorschau) existieren.

Eventuell kann man da aus dem Quelltext etwas ableiten.

GitHub - omeryanar/FileExplorer: Windows File Explorer alternative with tab browsing

Windows File Explorer alternative with tab browsing - GitHub - omeryanar/FileExplorer: Windows File Explorer alternative with tab browsing

github.com

Gruß gmmg

mumpel

Das ist einfach nicht das selbe.

**water**

Du weißt schon, dass Du hier in einer sehr komplexen Problemstellung unterwegs bist? "Das selbe" Ergebnis zu bekommen ist sehr, sehr aufwändig.

Da Du in einer Firmenumgebung unterwegs bist, sollte auch die Firma die Mittel bereitstellen, wenn sie eine bestimmte Funktion benötigt - sprich: Her mit dem Geld und Software beschaffen!

Ansonsten muss die zweitbeste Lösung genügen:

TreeView hast Du ja schon.
Bei Doppelklick auf ein Item einfach die dazugehörige Anwendung starten, Fenster zur Anzeige auf ansprechende Größe und Position setzen (auch gerne Dein GUI überlagernd)
TreeView disablen und erst nach Beendigung des Anzeigefensters wieder aktivieren.
Nun kann das nächste Dokument ausgewählt und angezeigt werden

So würde ich das machen

mumpel

Zitat von water

"Das selbe" Ergebnis zu bekommen ist sehr, sehr aufwändig.

Ist es nicht. Ich bleibe beim WebBrowser-Control. Es geht jetzt nur noch darum, die Treeview-Inhalte richtig auszuwerten (vor allem auch die Elternknoten "zu finden", um daraus den korrekten Pfad zusammen zu stellen). Wenn ich im Treeview z.B. "Blinklichtanlage am Pedelec3.pdf" anklicke, soll das Dokument geladen werden. Da tue ich mich etwas schwer, passende Codes zu finden.

Zitat von water

Da Du in einer Firmenumgebung unterwegs bist

Nein, ich mache das privat, nicht für die Firma. Dann habe ich wenigstens was zu tun, und kann dazulernen. Ob der AG mal ein solches Regelwerks-Kompendium als Offline-Anwendung anbietet ist offen (Den Vorschlag habe ich schon eingereicht). Und wenn er das anbietet, dann sicher nur für Firmen-PCs mit Windows. Offiziell gibt es die Regelwerke nicht auf Privat-PCs (Zugang zur KRWD bisher nur über Firmengeräte).

gmmg

mumpel: hab eben was zum Thema Treeview in meinen Scripten gefunden.

Vielleicht ist ein passender Codesnipsel für dich dabei.

AutoIt

#include <GuiTreeView.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>

Global $splash, $bgcolor = 0x404040, $txtcolor = 0xff8800, $extcolor = 0xffcc00, $items[4000], $names[4000], $StartDir, $TreevieItemNow
$Main = GUICreate("Treeview_Test", 800, 600, -1, -1)
$Tree = GUICtrlCreateTreeView(2, 2, 180, 600)
$StartDir = "D:\Test\"
;~ $StartDir = @StartMenuDir
;$TrreViewOfprograms = GUICtrlCreateTreeViewItem($StartDir, $Tree)
$TrreViewOfprograms = GUICtrlCreateTreeViewItem("Projekte", $Tree)
$TimerStamp = TimerInit()
MakeList($StartDir, $TrreViewOfprograms, 0)
MakeList($StartDir, $TrreViewOfprograms, 1)
ReDim $items[$items[0] + 1]
ReDim $names[$names[0] + 1]
;ConsoleWrite("$TimerStamp=" & Round(TimerDiff($TimerStamp)) & @LF)
;ConsoleWrite("$items[0]+1=" & $items[0] + 1 & @LF)

;GUICtrlSetState($TrreViewOfprograms, BitOR($GUI_EXPAND, $GUI_DEFBUTTON)) ; Expand the "General"-item and paint in bold
;GUICtrlSetState($items, BitOR($GUI_EXPAND, $GUI_DEFBUTTON)) ; Expand the "Display"-item and paint in bold
_GUICtrlTreeView_Expand($Tree)

Local $Mailedit = GUICtrlCreateEdit("First line" & @CRLF, 190, 300, 600, 290, 0x0080 + 0x0040 + 0x1000)

GUISetState(@SW_SHOW)

While 1

    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case Else
            If $msg >= $items[1] And $msg <= $items[UBound($items) - 1] Then ishidden(_GUICtrlTreeView_GetTree($Tree, "\"))
            Sleep(20)
            GUICtrlSetState($names, BitOR($GUI_EXPAND, $GUI_DEFBUTTON)) ; Expand the "Display"-item and paint in bold
    EndSwitch
WEnd

Func MakeList($dir, $TreeViewOfprograms, $mode = 0)
    FileChangeDir($dir)
    $search = FileFindFirstFile("*.*")
    While 1
        $file = FileFindNextFile($search);
        If @error Then ExitLoop
        $GetExt = GetExt($dir & "\" & $file)
        If $items[0] > 3998 Then ExitLoop
        If $GetExt <> "folder" And $mode = 1 And $GetExt <> "ini" Then;And $GetExt <> "lnk" And $GetExt <> "ini"
            $items[0] += 1
            $names[0] += 1
            $items[ $items[0] ] = GUICtrlCreateTreeViewItem($file, $TreeViewOfprograms)
            $names[ $names[0] ] = $file;$file$dir & "\" &
            GUICtrlSetColor($items[ $items[0]], $txtcolor)
        ElseIf $GetExt = "folder" And $mode = 0 Then;And $GetExt <> "INI"
            $TreevieItemNow = GUICtrlCreateTreeViewItem($file, $TreeViewOfprograms)
            $items[0] += 1
            $names[0] += 1
            $items[ $items[0] ] = $TreevieItemNow
            $names[ $names[0] ] = $file;$file;$dir & "\" &
            GUICtrlSetColor($items[ $items[0]], $extcolor)
            MakeList($dir & "\" & $file, $TreevieItemNow, 0)
            MakeList($dir & "\" & $file, $TreevieItemNow, 1)
        EndIf
    WEnd
    FileClose($search)

EndFunc   ;==>MakeList

Func GetExt($file)
    If StringInStr(FileGetAttrib($file), "D") Then Return "folder"
    Return StringUpper(StringTrimLeft($file, StringInStr($file, ".", 0, -1))) ;return only extension
EndFunc   ;==>GetExt

Func ishidden($file)
    Local $attrib
    $attrib = FileGetAttrib($file)
    MsgBox(0, "", $file & @CRLF & "Properties: " & $attrib)
    If StringInStr($attrib, "H") Then Return 1
    Return 0
EndFunc ;==>ishidden

Alles anzeigen

Gruß gmmg

mumpel

Danke! Schon sehr gut Nur erscheint die MsgBox nicht, und ich kann die Dateiformate nicht einschränken (auf *.pdf, *.doc*, *.xls*), das bekomme ich irgendwie nicht hin. Und die Ordnerstruktur passt nicht (siehe Bilder).

mumpel

Ein bisschen weiter bin ich nun. Nur die richtige Ordnerstrukur und die Beschränkung auf PDF-, Word- und Excel-Dateien bekomme ich nicht hin. Word und Excel lasse ich jetzt direkt in den Programmen öffnen, PDF-Dateien im WebBrowser-Control. Vielleicht hat noch jemand eine Idee?