Discussion :

[NGeVtC87]

Bonjour,

Je développe sous Delphi. Je voudrais programmer une procédure qui me permet de manipuler des tableaux OpenOffice. En l’occurrence je voudrais insérer du texte dans les cellules de ce tableau. Par contre comme le nombre de lignes de mon tableau n'est pas fixe, Je ne peux pas utiliser la méthode

Code :

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

Bookmarks.getByName('reference')

en insérant la référence manuellement dans le fichier open Office.

En faisant une recherche, je suis tombé sur une documentation : http://www.freepascal.org/~michael/a...openoffice.pdf (Paragraphe Handling Tables)

Par exemple le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    TC:=FDocument.GetTextTables;
    T:=TC.getByIndex(0);
    // Get number of rows, columns
 
    RCount:=T.getRows.getCount;
    CCount:=T.getColumns.getCount;
 
   For I:=0 to CCount-1 do
    begin
      S:=Trim(T.getCellByName(ColName(I)+IntToStr(RCount)).getString);
    end;

Ce code permet de retourner le tableau créé dans le document et de récupérer le nos des cellules.

Mais par exemple dans la dernière ligne de code ColName n'est pas reconnu par delphi
Aussi dans la documentation les types TField et TDataSet sont utilisés mais ces types sont inconnus pour mon IDE (Delphi 2005). Je sais pas si c'est des unités qui manquent dans uses.

Pouvez s'il vous plait m'aider à résoudre ces erreurs où m'indiquer d'autres méthodes pour manipuler les tableaux de documents OpenOffice

Merci

[SergioMaster]

Bonjour,

un simple tour dans la FAQ
et vous auriez lu que l'on accède au cellules par leur position getcellbypostion (tableau base 0) plutôt que par leur nom

Ce code permet de retourner le tableau créé dans le document et de récupérer le nos des cellules.

je doute : une seule variable S pour la dernière colonne

Mais par exemple dans la dernière ligne de code ColName n'est pas reconnu par delphi

encore faudrait-il que cette variable fut définie

en reprenant votre code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 var i : integer;
begin
    RCount:=T.getRows.getCount;
    CCount:=T.getColumns.getCount;
 
   For i:=0 to CCount-1 do
    begin
      S:=Trim(T.getCellByPosition(I,RCount-1).getString);
    end;

vous obtiendrez la même valeur de S avec
ATTENTION CODE NON VERIFIE
1-je ne sais pas à quoi correspond T
2-je ne me rappelle plus si la position se définit en col,row ou row,col (c'en est même gênant non indiqué ni dans la FAQ ni dans le WIKI ! mais je penche pour col,row)

Code :

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

1
2
3
4
 
S:=T.GetCellByPosition(ccount-1,rcount-1).getstring;
//ou même peut être 
//S:=T.GetCellByPosition(t.Endcolumn,t.EndRow).getstring

Aussi dans la documentation les types TField et TDataSet sont utilisés mais ces types sont inconnus pour mon IDE (Delphi 2005)

la documentation que vous citez, que j'ai survolé, semble travailler avec une table contenu dans une Base Open Office
tout dépend ensuite de votre version D2005 à partir de la version pro (je n'ai pas/plus D2005 d'installé pour vérifier) , TField et TDataset sont définis dans l'unité DB

[NGeVtC87]

Merci pour votre aide,
J'ai pu réussir mes manipulations à l'aide de la méthode getbyName mais c'est vrai que utiliser la position est certainement plus adéquat.