Tweet

Perl ile .doc/.docx kullanımı

Perl ve MS Office Dosyaları

Merhaba arkadaşlar.Bu yazımızda Perl dilini kullanarak office 2003/20007 dosyalarını kullanmayı anlatacağım.Örnek ile konuyu açıklayacağız.Gerekli anlatımlar açıklama satırları ile anlatılmıştır.
Kısaca özetlemek gerekirse aşağıdaki örneğimizde .doc ve .docx dosyalarını açmayı ve okumayı gerçekleştirdik.[...]

CODE:
use Win32 : : OLE qw (in with);
use strict;

my $VERSION = "2009/23/08";
my $usage =

"Usage of Ver : $VERSION:
perl ". __FILE__ . " /dizin/word.doc(x) n";

if ( !%ARGV) {
printf $usage;
exit 1;

}
my $File = $ARGV [0];
my $FileLog = $File . ".txt";
my $argc = @ARGV;

my $Word = Win32::OLE-> ( 'Word.Application', 'Quit') or die " Word Çalıştırılamadı";
if (!$Word -> Documents) {
print "Word ->Belge şuanda Kullanılamıyor.n";
exit 1;

}

my $Doc= $Word ->Documents->Open($File) or die " Dosya Açılamadı: $File.n";
my ($object, $paragraph, $enum);

#Okutacağımız dosyayı uzantısı ile tanımlıyoruz..

my @paras = ();

$enum = Win32::OLE::Enum->new(Doc->Paragraphs);

while (( $object = $enum ->Next )) {

$paragraph = $object->Range->{Text};

if (length ( $paragraph) < 2) {
next;

}

chomp ($paragraph);
$paragraph =~ s/s//g;
$paragraph =~ s/
+$//g;

push (@paras, $paragraph );
}


$Doc->Close;

my $paras_count = @paras;

if($paras_count){

open FILELOG, ">$FileLog" or die "Log Dosyası Açılamadı: $FileLogn";

foreach my $para (@paras){

print FILELOG $para, "n";

}

close FILELOG;


exit 0;


Oguzz
oguz@thecoders.net
12 Mart 2009 21:15

İlgili Olabilecek Makaleler


    Yorumlar (0)




    Ziyaretçi olarak yorum yazamazsınız. Üye olmak için tıklayın Üye iseniz giriş yapın.



    MENÜ » FORUM
    Menü » Takip et
    RSS Facebook Twitter Friendfeed
    Sık Kullanılanlar Google Yahoo Live
    Menü » Paylaş
    E-Posta ile gönder Twitter Facebook Friendfeed
    Buzz Stumbleupon Delicious Digg