Discussion :

[john_mtp13]

Bonjour,
j'ai plusieurs fichiers textes.txt dans lesquels sont stockées des données du type

f.6:X=320991.403,Y=300752.226,PH=1
f.6&B0:TYPE=d,PH=1
f.6&D0:BASE_POYA+FONCIER+POYA
f.7:X=321060.044,Y=300805.200,PH=1
f.7&B0:TYPE=d,PH=1
f.7&D0:BASE_POYA+FONCIER+POYA
f.8:X=321129.509,Y=300790.510,PH=1
f.8&B0:TYPE=d,PH=1
f.8&D0:BASE_POYA+BOURAIL+FONCIER
f.221982:X=337621.570,Y=288723.980,PH=5,C=7.209,MD=FBORNE
f.221982&B0:TYPE=B,PH=5
f.221982&D0:BASE_BOURAIL+BOURAIL+FONCIER
f.221982&Q0:RATTACHEMENT=STF,X=337621.57,Y=288723.98,PH=5,BORNE=FER EN Y,OBS=CALCULEE,DATE=09/02/2010
f.221983:X=330278.098,Y=290706.477,PH=5,C=7.209,MD=FBORNE
f.221983&B0:TYPE=B,PH=5
f.221983&D0:BASE_BOURAIL+BOURAIL+FONCIER
f.221983&Q0:RATTACHEMENT=P. ANE,X=330278.098,Y=290706.477,PH=5,BORNE=FENO,OBS=calculées,DATE=22/10/2013


pour chaque entité identifié par un identifiant unique, j'ai plusieurs lignes d'informations
et je voudrai créer sous libreoffice un petit programme qui lit un fichier texte sélectionné
créer une table automatique avec des champs définies à l'avance
pour arriver à une base de données où les informations d'une entité ne serait pas sur plusieurs lignes mais sur une ligne
par exemple, il faudrait créer une table bornes avec comme champ
identifiant, X, Y, PH, B0.TYPE, B0.PH, Q0.RATTACHEMENT, Q0.BORNE, Q0.OBS, Q0.DATE
et insérer dans cette table créer les informations de chaque entité (voir exemple ci-dessous)

mon gros problème étant que les informations sont sur plusieurs lignes avec le même identifiant et des sous-index B0, Q0, Q1, .....
certaines entités ont des sous-index B0, Q0, Q1 et d'autres non, ce n'est pas la même structuration des données pour chaque entité
par contre il ya chaque fois un identifiant unique
de plus, mon fichier texte contient d'autres données inutiles,
il faudrait traiter les entités dont les identifiants ont le préfixe f. uniquement

J'ai fait un petit programme lisp sous Autocad pour trier ces données mais le lisp n'est pas adapté pour le traitement de ce genre de données
mon fichier texte fait 1 000 000 de lignes environ, mon lisp doit mouliner pendant une journée voire plus pour sortir un fichier texte à peu près propre
si quelqu'un pourrait m'aider sur ce sujet, merci par avance
je n'ai pas contre pas de connaissance en libreoffice niveau programmation
Merci

[zoom61]

Bonjour,

Voici le code qui permet de lire le contenu d'un fichier texte et ce bout de code te permettra d'écrire dans un nouveau fichier ODT :

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
Sub CreerUnFichierODT
   Const NEWWRITER = "private:factory/swriter"
   Dim doc
   doc = StarDeskTop.LoadComponentFromURL(NEWWRITER,"_blank",0,Array())
 
   With doc.text
      .string = "Texte à écrire" & chr(10)
   End With   
 
   Dim props(1) As New com.sun.star.beans.PropertyValue
        props(0).name = "FilterName"
        props(0).value = "Text (encoded)"
        props(1).name = "FilterOptions"
        props(1).value = "UTF8"
   URLDocumentFinal = "/home/vincent/Documents/NomFichier.odt"
   URLDocumentFinal = ConvertToURL(URLDocumentFinal)
   doc.StoreAsURL(URLDocumentFinal,props())
End Sub