forum Ancestrologie

Ancestrologie - Le Programme => Ancestrologie - Spécifiques => Ancestrologie - Le module Histoire => Discussion démarrée par: REIVILOR le 15 Septembre 2018 à 11:41:26

Titre: comment exporter sous excel les données du module histoire ?
Posté par: REIVILOR le 15 Septembre 2018 à 11:41:26
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_IMAGE
4370GENEvers 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
Titre: comment exporter sous excel les données du module histoire ?
Posté par: Bruno T. le 05 Août 2020 à 18:47:18
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.
Titre: comment exporter sous excel les données du module histoire ?
Posté par: catastrophe le 06 Août 2020 à 10:58:09
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
Titre: comment exporter sous excel les données du module histoire ?
Posté par: Bruno T. le 07 Août 2020 à 21:35:03
Si vous avez des notion de macro ou VBA vous copiez ce code dans un module de votre classeur Excel contenant l'export:
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

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