Re: [openoffice] =?iso-8859-1?q?Atocorrecci=F3=20a?= l'OpenOffice/Koffice

[Antoni Bella Perez]

A Dilluns 30 Juny 2003 19:09, Antoni Bella Perez va escriure:
> Error: A la url que m'has donat el fitxer est� en HTML -- si de cas
> passame'l com a adjunt. Gr�cies.
> <http://www.abisource.com/lxr/source/abispell/barbarisms/ca-ES-barbarism.xm
>l>

  Hola altra vegada

  No cal, m'he entretingut amb l'script adjunt.

  Toni
PD
total = 4466 barbarismes.
-- 

  Sort

######## Antoni Bella Perez ####################                             |
# http://www.terra.es/personal7/bella5/home.htm
## <[EMAIL PROTECTED]> ## i
col�laborador dels projectes:
        Debian en catal�: http://www.debian.org/index.ca.html
        KDE en catal�: http://i18n.kde.org/stats/gui/HEAD/ca/
        T.P: http://www2.iro.umontreal.ca/~pinard/po/registry.cgi?team=ca

-



#!/usr/bin/perl

open FILE_IN, "ca-ES-barbarism.xml" || die "Error: no es pot obrir el fitxer per a lectura!";
open FILE_OUT, ">ca_ES.tmp";

while($linia = <FILE_IN>) {
    my ($barbarism) = ($linia =~ m,barbarism word=(.*?)&gt,ms);
    my ($suggestion) = ($linia =~ m,suggestion word=(.*?)/&gt,ms);
    if ( $barbarism ) {
        print FILE_OUT "  <item find=$barbarism replace=";
    }
    if ( $suggestion ) {
	print FILE_OUT "$suggestion />\n";
    }
}

close FILE_IN;
close FILE_OUT;

pgp00000.pgp
Description: signature