Le Fri, 20 Mar 2009 18:19:36 +0100, Durand Daniel a écrit dans le
message <[email protected]> :
> > Je souhaite exporté de mes données l'ascendance d'une personne et tous les
> > descendants des ancêtres de cette personne.
> Jusqu'à présent la seule solution fiable et complète que j'avais trouvée
> était
> sous windows, malheureusement et non libre, mais gratuit, avec PAF ou Legacy
Pour ceux qui sont capables d'utiliser LifeLines, le programme suivant
le fait :
============ acdc.ll ==========
proc main() {
getindi(indiv)
"0 HEAD\n"
"1 SOUR LIFELINES acdc.ll\n"
"1 DEST ANY\n"
"1 GEDC\n"
"2 VERS 5.5\n"
"2 FORM LINEAGE-LINKED\n"
"1 CHAR UTF-8\n"
indiset(setindi)
indiset(setanc)
indiset(setdesc)
indiset(setsp)
indiset(settot)
addtoset(setindi, indiv, 1)
set(setanc, ancestorset(setindi))
set(setdesc, descendantset(setanc))
set(setsp, spouseset(setdesc))
set(settot, union(setanc, setdesc))
set(settot, union(settot, setsp))
gengedcomstrong(settot)
"0 TRLR\n"
}
=================================
--
Patrick Texier
---------------------------------------------------------------------
Utilisateurs de GenJ, localisez-vous sur le site:
http://www.arvernes.com/wiki/index.php/Genj_-_Participants#Les_Utilisateurs
<*> Pour vous desinscrire de cette liste, envoyez un mail a :
[email protected]
<*> Pour obtenir de l'aide sur les commandes de la liste :
[email protected]
