Ancestrologie - Le Programme > Ancestrologie - Le module Histoire

comment exporter sous excel les données du module histoire ?

(1/1)

REIVILOR:
bonjour,

je souhaiterais exporter les données du module histoire, mais lorsque j'utilise la génération de requetes SQL avec la table REF_HISTOIRE, les données dans la colonne HI_TEXTE ne sont pas exploitable.
exemple ci dessous.
HI_IDHI_DOSSIERHI_DICORIGINEHI_DATE_TEXTEHI_DATE_DEBUTHI_DATE_FINHI_CATHI_TITREHI_TEXTEHI_IMAGE4370GENEvers 88  4Les Romains édifient le limes{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil MS Sans Serif;}{\f1\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1036\f0\fs16 Le limes \f1 d\'e9signe les fortifications romaines \'e9tablies aux fronti\'e8res entre l'empire romain et le "monde barbare" (peuples ne parlant ni grec, ni latin). \f0\par
}Pourriez vous ne dire comment récupérer l'information proprement ?
Merci
Olivier

Bruno T.:
Bonjour, c'est le formatage de type RichText qui permet de configurer l'affichage avec couleurs ou autre.
Il existe peutêtre des convertisseur RichText  pour excel, sinon je peut forcer l'export en type PlainText où il n'yaura plus les caractères de formatage, mais juste le contenu du texte.

catastrophe:
bonjour

avec un autre logiciel HEREDIS on peut exporter gedcom en tableau . et GENEATIQUE .
pour le module histoire , c'est quand même en GEDCOM ?

courage et bonne journée
any

Bruno T.:
Si vous avez des notion de macro ou VBA vous copiez ce code dans un module de votre classeur Excel contenant l'export:

--- Code: ---Function RtfInText(RtfText)
    With CreateObject("RICHTEXT.RichtextCtrl") ' or add reference to Microsoft Rich Textbox Control for early binding and With New RichTextLib.RichTextBox
        .SelStart = 0                          ' needs to be selected
        .textrtf = RtfText
        RtfInText = .Text
    End With
End Function
--- Fin du code ---

Voir l'image et l'exemple joint  (enlevez le .txt à la fin du nom de fichier)

Navigation

[0] Index des messages