#------------------------------extraction de patron nom-adj--------------------------------------------------------

sub loadextractpattern {

\&loadtreetaggerint ();

my $texteex=$editortreetagger->get("1.0",'end');
$editorpatron -> delete("1.0","end");
my @lignes=split(/\n/,$texteex);
close(FILE);
while (@lignes) {

    my $ligne=shift(@lignes);
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    if ( $ligne =~ /<element><data type=\"type\">NOM<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
	 my $forme=$1;
	 $sequence.=$forme;
	 $longueur=1;
	 my $nextligne=$lignes[0];
	 if ( $nextligne =~ /<element><data type=\"type\">ADJ<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
	     my $forme=$1;
	     $sequence.=" ".$forme."\n";
	     $longueur=2;
	 }
    }
    if ($longueur == 2) {
	
	$editorpatron-> insert("end",$sequence);
     $onglet->raise('page5');
    }
}
}