Community  »  Suchanfragen für Scripts/Programmierung

Worddatei in Textdatei ausgeben	Seitenanfang
Hallo, ich habe ein Problem will ein worddokument in einer textdatei speichern und ausgeben ob ein bestimmter string enthalten ist. Klappt auch soweit nur wenn ich es nach ...txt schreibe erkennt er zwar das Wort aber schreibt nichts in den Textfile. Ändere ich den Ausgabefile zu word werden die ganzen Steuerzeichen mitgenommen und das Wort wird nicht erkannt. hier der code: #!/usr/bin/perl use win32::OLE; # aus einer Datei etwas auslesen und in die andere schreiben !! $in = "test.doc"; # Lese Datei $out = "liste2.txt"; # Schreibe Datei # beide Dateien öffnen open (IN,"$in") || die "$in konnte nicht geöffnet werden: $!"; open (OUT,">>$out") || die "$out konnte nicht geöffnet werden: $!"; while (<IN>) { chomp; $str = <stdin>; if ($_ == "$str") { print "$str wurde in der Datei: $in gefunden.\n"; print OUT "$_ wurde in der Datei: $in gefunden.\n"; } else { print " $str wurde in der Datei: $in NICHT gefunden.\n"; } } #Dateien schließen close(IN) || die "kann $in nicht schließen!!!"; close(OUT) || die "kann $out nicht schließen!!!"; gibt es eigentlich die Möglichkeit nach ein einfaches skript zu schreiben in dem man nach Dateinamen suchen kann? Z.B. man hat das dakument Maier.doc und sucht dann nach "Ma", anschliessend werden alle filenamen ausgegeben die Ma enthalten? War jetzt ziemlich viel auf einmal, trotzdem schon mal Danke im Voraus :) Datum: 19.12.2004-10:30
re: Worddatei in Textdatei ausgeben	Seitenanfang
Hi, bin zwar nicht besonders gut in Perl, aber beim Zuweisen einer Datei kommen keine " ". ... $in = 'test.doc'; # Lese Datei $out = 'liste2.txt'; # Schreibe Datei ... Wie gesagt ich bin nicht es gut in Perl, könnte aber daran liegen. Gruß Datum: 11.01.2005-01:17
re: Worddatei in Textdatei ausgeben	Seitenanfang
@Joachim: Nein, dass kann man beides machen... Datum: 11.01.2005-07:37
re: Worddatei in Textdatei ausgeben	Seitenanfang
MS hat für Word ein eigenes Format eingefügt... Ich schau zu Hause mal nach einem Skript mit Win32::OLE zum 2. Problem: #! /usr/bin/perl use strict; use warnings; use File::Find; my $suchwort = $ARGV[0];: my $start_dir = '/path/to/dir/where/docs/stored/'; find(\&list_files,$start_dir); sub list_files{ print $File::Find::name,"\n" if(/\Q$suchwort\E/); } Datum: 11.01.2005-07:36
re: Worddatei in Textdatei ausgeben	Seitenanfang
Erstmal vielen Dank für eure Antworten. Der letzte Beitrag hat mir glaube ich schon gut weitergeholfen. Werde es demnächst mal ausprobieren. Vielen Dank Jungs Datum: 12.01.2005-15:13