das ist mein erstes DO Skript welches Textdateien im Inhalt nach einem Suchwort sucht und die Datei verschiebt.
Das Skript habe ich auf einen Button gelegt und das JavaScript unter Skriptcode eingegeben. Der Skripttyp ist JScript.
Nachdem drücke des Buttons sollte sich ein Fenster öffnen in dem man ein Suchwort eingibt.
Dann sollten im linken Lister alle Dateiinhalte der Dateien nach dem Suchwort gesucht werden.
Dateien bei denen das Suchwort enthalten ist, soll die Datei in den rechten Lister verschoben werden.
Ist das Suchwort nicht enthalten, verbleibt die Datei im linken Lister.
Der Code ist
Code: Alles auswählen
Function OnClick(clickDaten) {
var cmd = clickDaten.func.command;
cmd.deselect = false;
// Eingabefenster anzeigen, um ein Suchwort einzugeben
var suchwort = DOpus.Dlg.Input("Suchwort eingeben", "Gebe das Suchwort ein:", "");
if (suchwort != null && suchwort != "") {
var dateiListe = clickDaten.func.sourcetab.left_files; // Quelldateien im linken Lister verwenden
var zielVerzeichnis = clickDaten.func.desttab.path; // Zieldateien im rechten Lister verschieben
for (var i = 0; i < dateiListe.count; i++) {
var datei = dateiListe(i);
var dateiInhalt = DOpus.ReadTextFile(datei);
if (dateiInhalt.indexOf(suchwort) !== -1) {
DOpus.Output("Datei '" + datei.name + "' enthält den Text: " + suchwort);
// Verschiebe die gefundene Datei ins Zielverzeichnis (rechter Lister)
DOpus.FSUtil.Move(datei, zielVerzeichnis);
}
}
}
}
Code: Alles auswählen
11.01.2024 10:53 Fehler in Zeile 1, Position 10
11.01.2024 10:53 Function OnClick(clickDaten) {
11.01.2024 10:53 ^
11.01.2024 10:53 ';' erwartet (0x800a03ec)
11.01.2024 10:53 Parsefehler - Skript abgebrochen
Vielen Dank