sub writeFile
	{	
	my($datAuswahl, $out_entry, $listbox) = @_;
	my $outfile = $out_entry->get();
	
	## Wenn der Dateiname nicht leer ist ###
	if ($outfile ne "")
	 {
	  ### letzten 4 Zeichen des Dateinamens holen
	  my $endung= rindex($outfile,".txt",4);
	  
	  ### Wenn kein .txt gefunden wurde
	  if ($endung eq -1)
	  	{
	  	### Endung anfügen ### 
	  	$outfile= $outfile . ".txt";
	  	}
	  }	
	open(OUT, '>', $outfile) or (warn $! && return);
	print OUT "$_\n" for $listbox->get(0, 'end');
	close(OUT);	
	}