IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

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


Sujet :

OpenOffice & LibreOffice

  1. #1
    Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Octobre 2015
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Octobre 2015
    Messages : 3
    Points : 4
    Points
    4
    Par défaut 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.
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 939
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 939
    Points : 9 251
    Points
    9 251
    Par défaut
    hello,
    pour te mettre sur la voie, voici par exemple comment tester les 4 premières cases à cocher de ton document :

    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
    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
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  3. #3
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 939
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 939
    Points : 9 251
    Points
    9 251
    Par défaut
    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 : 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
    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
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

Discussions similaires

  1. Récupérer informations sur des vidéos
    Par xcvb33 dans le forum Calcul scientifique
    Réponses: 2
    Dernier message: 14/05/2008, 08h13
  2. Signature Numérique sur des Documents
    Par Myogtha dans le forum Sécurité
    Réponses: 1
    Dernier message: 03/10/2007, 18h05
  3. Lien sur des documents
    Par bidson dans le forum XMLRAD
    Réponses: 1
    Dernier message: 08/02/2006, 14h36
  4. Information sur des fichiers
    Par melmouj dans le forum C
    Réponses: 52
    Dernier message: 18/10/2005, 16h24
  5. Extraction de données sur des fichiers excel
    Par iupgeii dans le forum MFC
    Réponses: 3
    Dernier message: 23/01/2004, 14h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo