Lire une file *.xls

Version imprimable

03/06/2009, 15h28
jean christophe

Lire une file *.xls

Bonjour,

Je veux lire une file au format *.xls.
Je dois pouvoir accéder aux champs afin d'en copier leurs valeurs ailleurs.
J'ai trouvé des articles sur FPSpreadsheet, mais je n'arrive pas á trouver le package en lui même.
J'ai cherché dans mon C:\lazarus et en faisant Package -> Configure installed Package sans succés!

Est ce que vous pouvez me dire oú je peux le trouver ?
Y a t'il décrit comment l'installer ?
Oú puis je lire comment installer un package ?

Merci
Sincérement
Jean-Christophe
03/06/2009, 21h39
ovni76

Bonjour Jean Christophe,
Peux-tu préciser si ton fichier est un vrai fichier excel ou simplement un fichier texte téléchargé sur un site banquaire, car dans ce cas je sais le faire et je pourrais te faire parvenir une unité lazarus que j'appelle import.
Pour l'autre le vrai *.xls je ne sais pas.
04/06/2009, 08h01
jean christophe

Désolé, mais c'est un fichier Microsoft que je dois ouvrir ....

Merci
Sincérement
Jean Christophe
04/06/2009, 11h10
SergioMaster

Ne peut-on point utiliser OLE ? (unité ComObj) comme pour Delphi
bien sur il faut aussi dans ces cas là avoir Excel ou OpenOffice d'installer sur le poste
04/06/2009, 13h02
jean christophe

Je n'ai pas vu de composants OLE
As tu un link oú il est expliqué comment le traiter? (création, properties .....)
Pour un newbie!

Merci
Sincérement
Jean Christophe
04/06/2009, 14h37
jean christophe

Je viens de trouver ce poste:
http://www.mail-archive.com/lazarus@.../msg05651.html

Est ce que quelqu'un peux me dire si je peux utiliser les files de sa page personnelle?
Son lien ne me renvoie nul part.

Merci
Jean-Chistophe

Citation:

Envoyé par jean christophe

Je n'ai pas vu de composants OLE
As tu un link oú il est expliqué comment le traiter? (création, properties .....)

Non , bien sur il n'y a pas de composants il "suffit" d'utiliser l'unité ComObj
(j'ai preféré faire un essai avant de répondre)

quand aux liens , et bien, fais un tour du coté de la FAQ Delphi utilisation d'OpenOffice dans mon cas

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Variants, ComObj;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var OpenOffice, Bureau, Document : Variant;
    properties,CoreServ,prop : Variant;
    vSheet,vCell : Variant;
    n : Integer;
    OO_FileName : WideString;
 
    function FileToURL(F : String) : String;
    var i : Word;
        R : String;
    begin
     R:='file:///'+F;
     // transforme le nom du fichier en adresse URL
     while (Pos('\',R)>0) do    {les \ en /}
     begin
       i:=Pos('\',R);
       Delete(R,i,1);
       Insert('/',R,i);
     end;
     while (Pos(' ',R)>0) do    {les espaces en %20}
       begin
         i:=Pos(' ',R);
         Delete(R,i,1);
         Insert('%20',R,i);
       end;
     result:=R;
    end;
 
begin
if (VarIsEmpty(OpenOffice) or VarIsNull(OpenOffice)) then
   OpenOffice:=CreateOleObject('com.sun.star.ServiceManager');
if not(VarIsEmpty(OpenOffice) or VarIsNull(OpenOffice)) then
 begin
   if (VarIsEmpty(Bureau) or VarIsNull(Bureau)) then
          Bureau:= OpenOffice.CreateInstance('com.sun.star.frame.Desktop');
 end;
if (VarIsEmpty(Bureau) or VarIsNull(Bureau)) then
 begin
   MessageDlg('Le service Open Office n''est pas ouvert',mtError,[mbOk],0);
   Exit;
 end;
properties:=VarArrayCreate([0,0],varVariant);
CoreServ:= OpenOffice.CreateInstance('com.sun.star.reflection.CoreReflection');
CoreServ.forName('com.sun.star.beans.PropertyValue').CreateObject(prop);
prop.name:='Hidden';
prop.Value:=True;
properties[0]:=prop;
if FileExists('C:\MESSAROUND\test.ods')
   then
OO_FileName:=FileToURL('C:\MESSAROUND\test.ods')
   else
OO_FileName:='private:factory/scalc';
 
Document := Bureau.LoadComponentFromURL(OO_filename,
                                          '_blank',
                                           0,
                                          properties);
if (VarIsEmpty(Document) or VarIsNull(Document)) then
 begin
   MessageDlg('Le fichier n''est pas ouvert',mtError,[mbOk],0);
   Exit;
 end;
vSheet:=Document.getSheets.getByName('Feuille1');
if (VarIsEmpty(vSheet) or VarIsNull(vSheet)) then
 begin
   MessageDlg('La Feuille n''est pas ouverte',mtError,[mbOk],0);
   Exit;
 end;
OpenOffice:=unAssigned;
end;

non testé pour excel que je n'ai pas sur le poste :lol:
Laz 0.9.27 fpc 2.2.5

05/06/2009, 11h34
chris37

Bonjour,

Il y a un composant en cours de dev mais je ne l'ai pas testé :)
http://tcoq.free.fr/Lazarus.html

@+
11/06/2009, 11h49
jean christophe

Merci pour vos réponses.
Je suis un peu débordé en ce moment, mais je garde le sujet dans ma corbeillle de réception.

a+
Jean Christophe
25/06/2009, 15h46
ovni76

Salut Jean Christophe,
Une idée peut-être à explorer, pour mes besoins je lis des fichiers au format texte tabulé dit *.xls ou *.csv ou autre et afin de trouver la solution de les transformer, j'utilise pour cela un afficheur de contenu de fichier sous windows EdHex et sous linux Okteta. A partir de ce je trouve j'écris des procédures pour lire le fichier puis en extraire les infos que je veux utiliser.
Dans mes procédures je supprime les éléments que je ne veux pas et transforme les autres. En général dans ces fichiers il y a des caractères répétitifs qui peuvent servir de repères pour en extraire les valeurs désirées.
C'est une idée que je ne garantis pas.