Bestaat de mogelijkheid om notities via stamboom >> onderhoud >> notities, massaal te verwijderen of is er een andere mogelijkheid om deze notities te verwijderen.

Wat denk je van een Gedcom export, waarbij je voor alle gegevens kiest behalve de notities?
Die gedcom importeer je dan in een nieuw schoon bestand.

Han,

Prima idee omdat het een nieuw ingevoerde stamboom betrof uit een ander genealogisch prog. waardoor er bij notities allerlei onzinnige vermeldingen stonden.
Maar als je dit in een bestaand stamboombestand met notities doet ben je wel ALLE notities kwijt.
Misschien iets voor de wensenlijst "Verwijderen van notities via onderhoud", nu dien je de notities, als je ze weg wil, bij iedere persoon handmatig te verwijderen, verwijderen via onderhoud en de notitie lijst lukt niet.
Jef.

Je kunt de notities wel veranderen naar bijvoorbeeld een punt (weinig ruimte) of naar [* *]; misschien is shift-spatie of een ander 'unprintable character' ook een optie...

De wens tot verwijderen via onderhoud is eerder geuit en deze kan ik onderschrijven.

Carel.

Carel,

Een punt dat lukt wel als wijziging maar dan zit je nog altijd met een punt in je notities, punt dat dan mee op het net gaat of in een rapportage, want als je dat punt niet wilt weergeven schakel je ook de andere notities uit.
Jef.

Jef,
de enige manier om die punt weg te krijgen is een export gedcom te maken met alle notities en alle Aldfaer bijzonderheden en in een editor de vermelding "1 CONC ." te verwijderen.
De Gedcom heeft dan nog wel een verwijzing naar een NOTE maar omdat het CONCrete gedeelte er niet is gebeurt er niets bij de import naar een schoon bestand en ben je de punt kwijt.

Als je aan het einde de punt verandert naar [* *] voor alle notities die verwijderd mogen worden, dan worden de notities niet meer getoond (mits je geen vinkje hebt staan voor de optie Beveiligde tekst.

Carel.

Even voor alle duidelijkheid: is het je bedoeling ALLE notities uit de gedcom te verwijderen?
Copieer dan de volgende code naar een bestand dat je "wegnote.vbs" noemt.Sla dat bestand op, dubbelklik er op en de rest wijst zichzelf.

Wim Rozendaal

'Verwijder notities uit aldfaer gedcom
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim infile, filein, outfile, fileout
Set infile = CreateObject("Scripting.FileSystemObject")
vraag = "Wat is de naam van het invoerbestand?"
titel = "Verwijder notities uit Aldfaer Gedcom"
naamin = inputbox(vraag,titel)
set filein = infile.opentextfile(naamin,forreading)
set outfile = createobject("scripting.filesystemobject")
vraag = "Wat is de naam van het uitvoerbestand?"
naamuit = inputbox(vraag,titel)
set fileout = outfile.opentextfile(naamuit,forwriting, true)
regel = filein.readline
do 
   if mid(regel,3,4)="NOTE" then
      do
         regel = filein.readline
         tag =mid(regel,3,4)
      loop until (tag <> "CONC" and tag <> "CONT" and tag <> "NOTE") or filein.atendofstream
   else
      if mid(regel,3,1)="@" and right(regel,4)="NOTE" then
         do
            regel = filein.readline
         loop until left(regel,1)="0" or filein.atendofstream
      else
         fileout.writeline(regel)            
         regel = filein.readline
      end if
   end if    
loop until filein.atendofstream
aa = msgbox("Klaar",,titel)