Hallo liebe CX User,
Anbei ein kleines Skript, das einstweilen über kleine "Umwege" ('Starte Befehl', Powershell>Windows Forms)
eine Dateien Mehrfachauswahl erlaubt.
cX4Web Code
Was ist das?
1 *** Filebrowser_Multiselect¶Kann auch über den Befehl 'Externe Funktion' als CX5 Makro mit Funktionsname 'filebrowser' aufgerufen
2 :: filebrowser
3 *** Dateien mit Windows Forms in der Powershell und 'Starte' Befehl auswählen...
4 Starte powershell.exe '-NoLogo', warten bis beendet, Konsole, sende 'Add-Type -AssemblyName System.Windows.Forms¶$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog¶$FileBrowser...', Empfang in [out], verborgen
5 *** Von Powershell Overhead bereinigte Dateiliste erstellen
6 Wenn (? '[out]<>""'), ""
7 Setze in [cX.Stapel(stapel1).Liste]: '[out]'
8 Setze in [cX.Stapel(stapel1).Entfernen]: 'PS*'
9 Setze in [out]: '[cX.Stapel(stapel1).Liste]'
10 Setze in [cX.Stapel(stapel1).Löschen]: ''
11 Schleife ab hier mit Variable [stapeln] von 1 über Liste: '[out]' (? '')
12 Wenn (? '[cX.Len([stapeln])]>3')
13 Setze in [liste]: '"[stapeln]";' , Als neue Zeile anhängen'
14 Ende Wenn
15 Schleife bis hier
16 Ende Wenn
17 Setze in [out]: '0'
18 Beende Unterprogramm (Zurück) (Ergebnis: '[liste]')
19 *** Die eingesetzten Variablen können in der Variablenliste überprüft werden.
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
(19 Zeilen, cX 5.0.10.3, Lizenz: Pro)
Das Skript natürlich wie immer zur absolut freien Verwendung, zum nachschlagen und einfach zum experimentieren
Bei besonderem Lizenzerfordernis bitte im Volltestmodus ausführen.
lg Christian