Je sais que je suis un peu pénible, mais je suis toujours avec mes fichiers GedCom.
Je pense qu’il est impossible de créer un EXE avec des debug (c’est bien dommage car ça marchait bien), mais je voudrais connaitre le plus simple et surtout avec quel gadget pour faire a peut près la même chose qu’avec debug (EditorGadget mais il y a peut être plus simple ?), c’est juste pour tester si les fichiers crées par d’autres logiciels de généalogie ont les mêmes infos dans ce fichier dit universel (surtout la longitude et la latitude, pour le reste je pense que oui):
Je réussi maintenant envoyer des photos mais des fichiers ???
Donc j’envoi comme ça, un bout de fichier GedCom "TstGedcom.txt" dans le code avec Debug.
Si vous avez des idées.
Merci
J’étais parti a l’origine avec les communes de X Km a la ronde puis récupérer les personnes qui sont nés, décédés dans ses communes mais j’abandonne pour l’instant, et je vais essayer avec les personnes qui ont sont nés, ou décédés a X km a la ronde.
Pour les mariages je n’ai pas encore tout compris leurs façons de faire dans les fichiers GedCom, je verrai plus tard.
PS : certains qui vont écraser une larme, en rangeant le garage je viens de retrouver ça (entre autres).
- 0 @I1@ INDI
1 NAME Honore-Pierre-Alexandre/HERBELIN/
2 GIVN Honore-Pierre-Alexandre
2 SURN HERBELIN
1 SEX M
1 OCCU Cultivateur
1 _FIL LEGITIMATE_CHILD
1 FAMS @F2@
1 BIRT
2 DATE 24 FEB 1835
2 PLAC Saint-Maixent,72320,Sarthe,Pays de la Loire,FRANCE,
3 MAP
4 LATI 48.089070
4 LONG 0.653000
2 _FNA NO
1 DEAT
2 DATE 22 FEB 1895
2 PLAC Saint-Maixent,72320,Sarthe,Pays de la Loire,FRANCE,
3 MAP
4 LATI 48.089070
4 LONG 0.653000
2 _FNA NO
1 FAMC @F3@
0 @I4@ INDI
1 NAME Louise-Victoire/DEBRAY/
2 GIVN Louise-Victoire
2 SURN DEBRAY
1 SEX F
1 OCCU Cultivatrice
1 _FIL LEGITIMATE_CHILD
1 FAMS @F2@
1 BIRT
2 DATE 4 APR 1838
2 PLAC Nogent-le-Bernard,72110,Sarthe,Pays de la Loire,FRANCE,
3 MAP
4 LATI 48.236140
4 LONG 0.489960
2 _FNA NO
1 DEAT
2 DATE 21 JUN 1918
2 PLAC Saint-Maixent,72320,Sarthe,Pays de la Loire,FRANCE,
3 MAP
4 LATI 48.089070
4 LONG 0.653000
2 _FNA NO
1 FAMC @F5@
0 @I6@ INDI
1 NAME Pierre/HERBELIN/
2 GIVN Pierre
2 SURN HERBELIN
1 SEX M
1 _FIL LEGITIMATE_CHILD
1 FAMS @F3@
1 BIRT
2 DATE 25 JUN 1793
Code : Tout sélectionner
EnableExplicit
Declare RecupInfos()
Define a.s,i.i
Global NbFch.i
Global Ligne.s
Global LgGedCom.s
OpenFile(1,"TstGedcom.txt",#PB_UTF8 ); changer l'extention de TXT en ged après tests
For i=1 To 100
LgGedCom=ReadString(1)
If Right(LgGedCom,4)="INDI"
LgGedCom=""
RecupInfos()
EndIf
Next
CloseFile(1)
Procedure RecupInfos()
While Right(LgGedCom,4)<>"INDI"
LgGedCom= ReadString(1)
If Mid(LgGedCom,3,4)="GIVN"; Prénom
Debug Mid(LgGedCom,8)
ElseIf Mid(LgGedCom,3,4)="SURN"; Nom
Debug Mid(LgGedCom,8)
ElseIf Mid(LgGedCom,3,4)="BIRT"; année
LgGedCom=ReadString(1)
Debug "Date naissance : " + Mid(LgGedCom,14)
LgGedCom=ReadString(1)
If Mid(LgGedCom,3,4)="PLAC"
Debug "Lieu naissance : " + Mid(LgGedCom,8)
EndIf
LgGedCom=ReadString(1)
If Mid(LgGedCom,3,3)="MAP"
LgGedCom=ReadString(1)
Debug "Lat : " + Mid(LgGedCom,8)
LgGedCom=ReadString(1)
Debug "Long : " + Mid(LgGedCom,8)
EndIf
EndIf
Wend
EndProcedure