Discussion :

[Pedro87]

Bonjour, j'ai réalisé des scripts cgi qui tourne sur le serveur IIS. J'accède aux résultats de ces scripts sur une page Web.
J'aimerai enregistrer ma page web (qui contient résultat de script) dans un fichier excel par l'intermédiaire d'un bouton (en cliquant sur le bouton le fichier xls est automatiquement créé sur mon bureau par exemple).

Merci à vous tous. J'attends une réponse dans les plus brefs délais c'est assez urgent.

[iblis]

Je te montre le principe, à toi de voir et de poster tes essais et questions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -wT 
use CGI ':standard';
use CGI::Carp;
 
my $files_location = '/home/webdata/files';
open my $fh, '<', "$files_location/$filename";
my @fileholder = <$fh>;
close $fh; 
 
print "Content-Type:application/x-download\n";  
print "Content-Disposition:attachment;filename=$filename\n\n";
print @fileholder;

Ensuite dans ta page tu peux bien sûr avoir un form (et le traiter). Ou un simple lien :

Code html :
<a href="/cgi-bin/script.cgi?filename=file.xsl">Excel file</a>


PS Tu peux peut-être aussi avoir un "Content-type: application/x-msexcel" mais je ne sais pas trop si c'est une bonne pratique.

[Pedro87]

Je te remercie Iblis. J'ai oublié de préciser que je travail sur Windows et non pas sur linux.

Voici le script si ça peut aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
  

#!C:\perl\bin\perl		
use strict;				
use warnings;			

use CGI::Carp qw(fatalsToBrowser);	
use CGI;				
use VMware::VIRuntime;	
use VMware::VILib;

my $q = new CGI;		

Opts::parse();			
Opts::validate();		
Util::connect();		

# creation de l'en-tete HTTP et début du HTML
print $q->header( "text/html" ), $q->start_html( "Script VMware" );
			

my $counter = 0;
my $sum = 0;
my $count = 0;

# On récupère toutes les machines virtuelles 
my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine');

# On affiche les machines virtuelles inactives et une alerte si la machine virtuelle est inactive depuis  # plus de 6 mois 
print $q->h1("Machine Virtuelles Inactives");

foreach my $vm (@$vm_views)	{
if ($vm->runtime->powerState->val eq 'poweredOff') 	{

print $q->p("$sum: <B><FONT color='red'>" . $vm->name . "</FONT></B> est : <B>INACTIVE.</B> Ressources réservées :  CPU " . $vm->config->hardware->numCPU . "  --    RAM " . $vm->config->hardware->memoryMB . " MB");
if (defined ($vm->runtime->bootTime))	{
print $q->p("--  Dernière activation récente, le : " . $vm->runtime->bootTime);
}
else { print $q->p("||  Attention ! Dernière activation de la machine date de plus de 6 mois ( > 16/12/2008)");	}
$sum++;
}
}

print $q->p("<B>Nombre Total de VMs INACTIVE = $sum</B>");


print $q->p("<form action='http://128.94.201.224/cgi-bin/excel.pl' method='post'>
<input type=submit value='Enregistrer la page sous Excel'><br /> <br /><br /></form>");

print $q->end_html;		# fin du HTML
Util::disconnect();		# Déconnexion du serveur

En appuyant sur le bouton 'Enregistrer la page sous Excel', je voudrais lancer la création d'un fichier xls contenant le résultat du script qui se trouve sur la page Web.

Merci

[Pedro87]

HELP!!!!! SVP

[Pedro87]

Différentes étapes possibles après avoir cliqué sur le bouton :

- Enregistrer le fichier html
- Ouvrir le fichier html
- Parser le fichier html sur un fichier excel (creation du fichier excel)
- Enfin... Ouvrir le fichier excel

[iblis]

As-tu essayé la solution que je te propose (pour le download) ?

Pour l'enregistrement, c'est à peu près pareil : tu transmets les infos collectés sur la page au script qui les récupère et formate un fichier xls.