Umsetzung einer GedcomDatei von GenProfi

[HJLünenschloß]

Hallo miteinander,

für den Bergischen Datenpool habe ich eine Datei aus GenProfi erhalten. Beim Import habe ich gesehen, dass GenProfi nicht immer nach Gedcom-Standard arbeitet. insbesondere die Anbindung von Bildern ist deutlich abweichend:

0 @I455@ INDI
1 NAME Victoria /Schönenberger/
2 GIVN Victoria
2 SURN Schönenberger
1 FAMC @F5@
1 BIRT
2 DATE 21 NOV 1983
1 PHOT .\Fotoalben\Familiendaten\fam_ostendorff\Georg Ostendorff\Victoria
2 CONC Schönberger_a.jpg
1 OBJE
2 FORM jpg
2 FILE .\Fotoalben\Familiendaten\fam_ostendorff\Georg Ostendorff\Victoria
3 CONC Schönberger_a.jpg
1 REFN 118111135212131
1 RELI EV
1 SEX F

Gedom-Standard wäre der Weg über ein eigenes Objekt:

0 @I1@ INDI
1 REFN 1
1 NAME Hans-Joachim /Lünenschloß/
2 GIVN Hans-Joachim
2 SURN Lünenschloß
1 SEX M
1 FAMS @F1@
1 FAMC @F2@
1 OBJE @M1957@
---------
0 @M1957@ OBJE
1 FILE Hans-Joachim_Lünenschloß_06-2016.jpg
2 FORM
3 TYPE photo

Ein eigenes Objekt wird in Gedtool in einer eigenen Tabelle abgearbeitet.
Hat Jemand schon einmal eine solche Umetzung gemacht?
Es würde mich sehr freuen.

Gruß
Hans-Joachim (Lünenschloß)

[Peter_Schulz]

Hallo Hans-Joachim,

gemäß GEDCOM-Standard können die Objekt-Angaben in einem Ereignis eingebettet oder als eigenständiger Record verlinkt sein. Auch ein Kennzeichen PHOTO war bis GEDCOM 5.3 zulässig.

Wenn Du die Medienangaben in einem eigenen Record führen möchtest, dann kann diese Umstellung natürlich mit GedTool erfolgen.

Folgendes Vorgehen:
- in „allen“ Blättern die Spalten mit dem Kennzeichen PHOT in der ersten Zeile rot markieren
- Funktion "Vorbereiten globales Suchen und Ersetzen" ausführen
- Im Blatt "Change" in Spalte B alle "°" durch "" (=nichts) ersetzen
- Im Blatt "Change" in Spalte B alle Zeilenumbrüche (= ALT 010) durch "" ersetzen
- Neues Blatt "1 OBJE" anlegen
- Im Blatt "1 OBJE" drei Spalten anlegen (B1 = "FILE", B2 = "1", C1 = "FILE", C2 = "1", C3 = "FORM", C4 = "1", D1 = "FILE", D2 = "1", D3 = "FORM", D4 = "1", D5 = "TYPE", D6 = "1")
- alle Werte aus Blatt "Change“, Spalte B, nach Blatt "1 OBJE", Spalte B kopieren (ab Zeile 7)
- Im Blatt "1 OBJE" in Spalte E (Hilfsspalte) ab Zeile 7 eine laufende Nummer anlegen (1 - ...)
- Im Blatt "1 OBJE" in Zelle A7 folgende Formel hinterlegen '="@O" & E7 & "@"'
- Formel nach unten kopieren (Doppelklick auf Zellenecke unten rechts)
- Spalte A kopieren und in Spalte A wieder über Einfügen-WerteEinfügen die Formeln durch Werte ersetzen
- Hilfsspalte E löschen
- Spalte C mit Dateiendung des Medienobjekts füllen, z.B. "jpg"
- Spalte D fix mit "photo" füllen
- Die XREF-IDs aus Spalte A kopieren und im Blatt „Change“ in Spalte B einfügen (Überschreiben der alten Werte)
- Funktion "Durchführen globales Suchen und Ersetzen" ausführen
- In „allen“ 1-er Blättern Spalten mit OBJE in den Kopfzeilen löschen
- In „allen“ 1-er Blättern in den Kopfzeilen PHOT durch OBJE ersetzen.
- FERTIG!

Viele Grüße
Peter