Recherche de modules :(

Sa fait près de deux semaines que je cherche des modules pour lire des fichiers rtf et doc , pour en extraire :

Citation:

---

le texte bien sur
le titre
la date de création
la date de modification

---

J'ai trouver sans problème pour les pdf mais pour ces formats rien :twisted: .

regarde du coté de Win32::OLE

Est il possible d'utiliser Open Office avec perl , pour effectuer ces opérations ??

http://perl.developpez.com/cpan.gifhttp://search.cpan.org/search?query=OpenOffice&mode=all

Il y un truc que j'ai ps compris dans ce module c comment ont lui indique quel fichier ouvrir , car moi mais fichier sont stocké dans une variable car je les récupère sur le net avec lwp.

Et un fois qu'ont a ouvert le fichier ou récupère t'on les données

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use Win32::OLE;     # Ont vérifie que word est intallé my $x = Win32::OLE->GetActiveObject('Word.Application'); die "Microsoft Word in not installed" if $@;     # Lancement de word unless (defined $x) { $x = Win32::OLE->new('Word.Application', sub { $_[0]->Quit; } ) or die 'Cannot start Word'; }   # Lecture du cdocument my $d = $x->Documents->???????;

---

regarde ça

En fait si je fait sa je récupère mon document dans $Word

Code:

---

1 2 3 4 5 6 7 8 9 10

use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Word'; my $Word = Win32::OLE->new('Word.Application', 'Quit'); # $Word->{'Visible'} = 1; # si vous voulez voir ce qui se passe $Word->Documents->Open("C:\\DOCUMENTS\\test.doc") || die("Unable to open document ", Win32::OLE->LastError());     $Word->ActiveDocument->PrintOut; # Pour imprimer

---

merci djibril , pour ton super lien , je vais testé sa de suite-

comment fais tu pour printer(pas imprimer) ton texte recuperé dans ton fichier sur la console? quel est la methode à utiliser?

Ou peut ton trouver tout les "callback" pour ce module parce que c'est sa qu'il me faut en fait , je n'est pas la liste des fonctions

j'ai testé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Word'; my $Word = Win32::OLE->new('Word.Application', 'Quit'); # $Word->{'Visible'} = 1; # si vous voulez voir ce qui se passe $Word->Documents->Open("C:\\Documents and Settings\\Teddy\\Bureau\\doc.doc") || die("Unable to open document ", Win32::OLE->LastError());   # $Word->ActiveDocument->PrintOut;   my $document = $Word->ActiveDocument->Read;     my $text = $document->TypeText;   print "$text\n";

---

Je suppose la méthode read correcte perl ne produisant pas d'erreur :D , par contre TypeText est faut car c'est la méthode pour écrire du texte et non pour lire le texte du document :twisted:

Citation:

---

Envoyé par shinux2004

Est il possible d'utiliser Open Office avec perl , pour effectuer ces opérations ??

---

Il y a une suite de modules qui s'appelle OpenOffice::OODoc qui permet même de créer des docs OOo, et sans utiliser OOo. Cela permet surtout ( ama) d'utiliser XML::Twig pour manipuler les docs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

use Win32::OLE; use Win32::OLE::Enum;   $document = Win32::OLE->GetObject($ARGV[1]); open (FH,">$ARGV[0]");   print "Extracting Text ...\n";   $paragraphs = $document->Paragraphs(); $enumerate = new Win32::OLE::Enum($paragraphs); while(defined($paragraph = $enumerate->Next())) { $style = $paragraph->{Style}->{NameLocal}; print FH "+$style\n"; $text = $paragraph->{Range}->{Text}; $text =~ s/[\n\r]//g; $text =~ s/\x0b/\n/g; print FH "=$text\n"; }

---

Ce script extrait le texte des documents .doc mais ne marche pas chez moi 8O

idem, ça marche pas chez moi aussi!

Je voie que je ne suis pas le seul a chercher comment lire des infos d'un .doc.

moi je cherche comment extraire

Citation:

---

Texte
Titre
Date de création
Date de modicifation

---

Chez mio aussi il marche pas le script :twisted: