This is a multi-part message in MIME format. --------------090706070803070901000200 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Sandy Rozhon wrote: >Ok, I admit I probably shouldn't have done it this way, but I >included obituaries for individuals in the NOTES section, where I >probably should have made each one an EVENT. > >I had my reasons (which, if you must know, were because of the >limitations of PDA version of PAF and my preferring to have the text >of the obituary available to me when I went to the library), but now >I can see where I probably should have had it in both places, (I >think). > >So the big question is....<drum roll> > >Short of chaining myself to the computer for the next several years, >how can I move these obituaries (which are all categorized under the >note tag OBIT:) to events? > >Any programmer out there who could write a quickie utility that could >strip from the notes and plop into events? > >I'm toast, aren't I.... > >Sandy > > >==== PAF-5-USERS Mailing List ==== >Having trouble with the software? Check PAF 5.x Information >http://www.ausbdm.org/p5uinfo.php > > > I have a script (program) written that will extract the OBIT: data. This is a preliminary program. It doesn't "plop into events". Partly because I am unclear about what you mean by 'plop into events'. But this program will produce a file of the OBIT: data. If you are interested in pursuing this let me know. Also, to run this script requires some other files. If you have a high speed Internet connection the easiest way to get those files is to download and install the 'J' computer language from http://www.jsoftware.com/download/j503a.exe but that is a 4 MB download. Which would take quite a while at dial-up speed. If you are interested in this help let me know. If you have only dial up. I could work on packaging the script with just the minumum of other files to make it run. Or, if you trust me to not misuse your data you could just send me a copy of your .paf file (or .zip backup, or .ged export) --------------090706070803070901000200 Content-Type: text/plain; name="note_obit.ijs" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="note_obit.ijs" load 'files' main =: 3 : 0 fn =: wd 'mbopen "" "\zhold" "*.ged"' aa =: fread fn f =. LF,'0 ' b =. 1, _1}. f E. aa ab =. ; perInd each b <;.1 aa NB. echo ']]]]',ab,'<<<<' ab fwrite 'obt',~ _3}.fn ) perInd =: 3 : 0 if. 0 = +/ ' INDI' E. y. do. '' return. NB. y. return. end. Rin =: 3}. 50{. y. j =. Rin i. '@' Rin =: LF,~ j{.Rin NB. Y =: y. f =. LF,'1 ' b =. 0, _1}. f E. y. b =. ; perlev1 each b <;.1 y. if. #b do. Rin,b return. end. '' ) perlev1 =: 3 : 0 if. 0 = '1 NOTE' -: 6{.y. do. '' return. end. if. 0 = +/b =. ' OBIT:' E. toupper y. do. '' return. end. j =. b i. 1 t =. (j-6)}.y. NB. T =: t f =. LF,'2 CONT ' b =. f E. t if. +/b =. ; isTag each tp =. b<;.1 t do. NB. echo 'b';b echo 'tp' echo ,.tp j =. b i. 1 k =. >j{tp j =. 1 i.~ k E. t (j+1){.t return. end. t ) isTag =: 3 : 0 a =. 8}.y. NB. echo ( >/ a i. ' :');(a i. ' :');20{.a >/ a i. ' :' ) main 0 --------------090706070803070901000200--