Extraction d'informations sur des documents LibreOffice vers MicrosoftExcel ou LibreOffice Calc

Version imprimable

27/10/2015, 11h19
Daouda_Diallo

1 pièce(s) jointe(s)

Extraction d'informations sur des documents LibreOffice vers MicrosoftExcel ou LibreOffice Calc

Bonjour à tous,

Je suis dans un projet d'extraction de documents (plus de 2000) LibreOffice (version 4.4.2) vers un tableur Excel ou un LibreOffice Calc. Le but étant d'insérer ces information ultérieurement dans une base de données PostgreSql.
Les difficultés auxquelles je suis confrontées sont de deux ordres:
1) Dans les fichiers il y des cages à cocher et je voudrais n'extraire que les informations cochées,

2) Je voudrais aussi extraire du texte contenu entre deux titres par exemple.

Je ne sais pas s'il y a un programme qui permet d'aller chercher ces informations dans chaque fichier (boucle).

J'ai joins un exemple de fichier sur lequel les traitements seront effectués.

Je vous remercie de bien vouloir m'aider.

hello,
pour te mettre sur la voie, voici par exemple comment tester les 4 premières cases à cocher de ton document :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub EtatCaC_DemandeDe()
  Dim oDrawPage As Object
  Dim oForm As Object
  Dim oCaC1,oCaC2,oCaC3,oCaC4 As Object
 
  oDrawPage = ThisComponent.DrawPage
  oForm = oDrawPage.Forms.getByIndex(0)
  oCaC1 = oForm.getByName("Case à cocher 1")
  oCaC2 = oForm.getByName("Case à cocher 2")
  oCaC3 = oForm.getByName("Case à cocher 3")
  oCaC4 = oForm.getByName("Case à cocher 4")
  if oCaC1.State then MsgBox ("Certificat d'urbanisme")
  if oCaC2.State then MsgBox ("Permis de construire")
  if oCaC3.State then MsgBox ("Déclaration préalable") 
  if oCaC4.State then MsgBox ("Autres opérations")
End Sub

Ami calmant, J.P

Hello,
pour récupérer un bloc de texte tu peux faire comme ceci par exemple (dans ton fichier cela correspond à ce qu'il y a entre AVIS et l'autre titre) :

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
Sub RecupBloc
 MsgBox Recuperer_Bloc("AVIS :","Le projet tel")
End Sub
 
Function Recuperer_Bloc(DebBLoc as String,FinBloc As string)
 'Declare variables
    dim document as object
    dim dispatcher as object
    dim oDoc As Object
    oDoc = thiscomponent
    document = oDoc.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    'Créer un ViewCursor
    oVC = oDoc.getCurrentController().getViewCursor()
    oCursor = oVC.getText.createTextCursorByRange(oVC)
    'Créer une recherche
    desc = oDoc.createSearchDescriptor()
    desc.setSearchString(DebBloc)
    'Trouver le début du bloc
    oDebBloc = oDoc.findFirst(desc)
    'Si le résultat de la recherche n'est pas nul
    if not isnull(oDebBloc) then
    'Aller au début du bloc 
     oVC.gotorange(oDebBloc.End, false)
    'Créer un TextCursor
    oCursor = oVC.getText.createTextCursorByRange(oVC)
    'Passer deux lignes (paragraphes)
    oCursor.gotoNextParagraph (false)
    oCursor.gotoNextParagraph (false)
    'Trouver la fin du bloc
    desc.setSearchString(FinBLoc)
    oFinBloc = oDoc.findFirst(desc)
    oVC.gotorange(oFinBloc.start,false)
    'Etendre la sélection pour inclure tout le bloc
    oCursor.GotoRange(oVC,true)
    'Remonter d'une ligne (paragraphe)
    oCursor.gotoPreviousParagraph (true)
     Recuperer_Bloc = OCursor.String
    end if
End Function

Ami calmant, J.P