Opened by weißnix at 2009-03-17 11:18
Liebe Perler,
ich bin kein Programmierer und hab deshalb einige Probleme, Programmierer-Latein zu verstehen (insbesondere sobald es sich um Objekte handelt), deshalb bitte ich im Folgenden um Nachsicht.
Mein Problem ist das folgende: Ich möchte in Windows (XP und Vista) Word Dateien öffnen, den Text auslesen und in eine Textdatei schreiben.
Ich hab ein script im Internet gefunden, mit dem das ganz gut läuft und das Win32::OLE verwendet. Das nächste Problem ist, dass es sich bei den Dateien um tschechische Zeichen handelt (z.B. ěščřžýáíé), die werden aber alle ersetzt. Nach stundenlangem googeln hab ich rausgefunden, dass das möglicherweise encoding heisst, aber aus der Modulbeschreibung von Encode bin ich keinen Deut schlauer geworden.
Kann mir jemand helfen?
ich bin kein Programmierer und hab deshalb einige Probleme, Programmierer-Latein zu verstehen (insbesondere sobald es sich um Objekte handelt), deshalb bitte ich im Folgenden um Nachsicht.
Mein Problem ist das folgende: Ich möchte in Windows (XP und Vista) Word Dateien öffnen, den Text auslesen und in eine Textdatei schreiben.
Ich hab ein script im Internet gefunden, mit dem das ganz gut läuft und das Win32::OLE verwendet. Das nächste Problem ist, dass es sich bei den Dateien um tschechische Zeichen handelt (z.B. ěščřžýáíé), die werden aber alle ersetzt. Nach stundenlangem googeln hab ich rausgefunden, dass das möglicherweise encoding heisst, aber aus der Modulbeschreibung von Encode bin ich keinen Deut schlauer geworden.
Kann mir jemand helfen?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use warnings ;
use strict ;
use diagnostics ;
use Win32::OLE qw(in);
use Cwd ;
my @files = <*.doc> ;
foreach my $infile (@files) {
$infile =~ /(.*).doc/ ;
my $outfile = $1 . '.txt' ;
$infile = Win32::GetCwd() . "/$infile" if $infile !~ /^(\w:)?[\/\\]/;
$outfile = Win32::GetCwd() . "/$outfile" if $outfile !~ /^(\w:)?[\/\\]/;
my $Word = Win32::OLE->new('Word.Application', 'Quit')
or die "Couldn't run Word";
my $Doc = $Word->Documents->Open($infile) or die Win32::OLE->LastError();
open(OUT,">$outfile");
print OUT $Doc->{Content}->{Text};
close OUT;
}