This is a multi-part message in MIME format. --------------090805010001060604050503 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit My attempt to send the J scripts as attachments showed up in my inbox in a form that quite dis-satisfied me. The three files can be downloaded from http://www.infowest.com/personal/w/wbs/note_obit_finds.ijs http://www.infowest.com/personal/w/wbs/note_obit.ijs http://www.infowest.com/personal/w/wbs/note_obit2.ijs When I tried to make a index.html through which to download these something didn't work right and I don't have time right now to chase it down. The browser I use is Mozilla Firefox. It displayed the text of these scripts. Then I could do a save-as to save them to disk. I haven't tested to see what MSIE does. Let me know how things go (good or bad) Lorin --------------090805010001060604050503 Content-Type: text/plain; name="note_obit_finds.ijs" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="note_obit_finds.ijs" NB. load 'files' load 'regex' OBIT_Rins =: '' PRBLM_Rins =: '' ChgLog =: '' main =: 3 : 0 fn =: wd 'mbopen "" "\zhold" "*.ged"' aa =: (1!:1) <fn f =. LF,'0 ' b =. 1, _1}. f E. aa perInd each b <;.1 aa if. 0 = #ChgLog do. wdinfo 'Didn''t find any Source records',LF,'with "OBIT" in the title.' else. if. 1 = +/ ','=ChgLog do. wdinfo 'Change @S7@ in note_obit.ijs to @',}.ChgLog,'@ on line 64' end. end. ) perInd =: 3 : 0 if. +/ ' INDI' E. y. do. '' return. end. if. +/ '1 SOUR PAF' E. y. do. '' return. end. if. +/ '1 HUSB ' E. y. do. '' return. end. if. +/ '1 WIFE ' E. y. do. '' return. end. if. 0 = +/ ' SOUR' E. y. do. '' return. end. Rin =: 3}. 50{. y. j =. Rin i. '@' Rin =: j{.Rin b =. '1 TITL ' E. y. a =. b <;.1 y. if. 0 = +/'OBIT' E. >{.a do. '' return. end. if. #ChgLog do. wdinfo 'I can''t determine which Source',LF,'record to link to for OBIT records.' end. ChgLog =: ChgLog,',',Rin ) main 0 --------------090805010001060604050503 Content-Type: text/plain; name="note_obit.ijs" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="note_obit.ijs" NB. load 'files' load 'regex' OBIT_Rins =: '' PRBLM_Rins =: '' ChgLog =: '' main =: 3 : 0 fn =: wd 'mbopen "" "\zhold" "*.ged"' aa =: (1!:1) <fn f =. LF,'0 ' b =. 1, _1}. f E. aa ab =. ; perInd each b <;.1 aa ab (1!:2) < '-obt.ged',~ _4}.fn ChgLog (1!:2) <'\change.log' ) perInd =: 3 : 0 if. 0 = +/ ' INDI' E. y. do. y. return. end. YI =: y. Rin =: 3}. 50{. y. j =. Rin i. '@' Rin =: j{.Rin NB. Y =: y. f =. LF,'1 ' b =. 0, _1}. f E. y. a =. (b i. 1) {. y. a , ; perlev1 each b <;.1 y. ) perlev1 =: 3 : 0 OBIT =: 0 if. 0 = '1 NOTE' -: 6{.y. do. y. return. end. if. 0 = +/b =. ' OBIT:' E. y. do. y. return. end. OBIT =: 1 NB. YL1 =: y. j =. b i. 1 t0 =. (j-6){.y. t =. (j-6)}.y. NB. T =: t b =. '^2 CONT [A-Z]+:' rxE t if. 0 = $b do. t9 =. end. tp =. b<;.1 t if. +/b do. if. 0{b do. echo 'starts with 1 total: ',": n =. +/b if. n>1 do. r =. transform1 >0{tp t0,(; }. tp),r return. else. t0, transform1 t return. end. else. echo 'doesn''t start with 1, total: ',":+/b y. return. end. else. echo 'found nothing' y. return. end. ) transform1a =: <;.(_1) 0 : 0 |1 SOUR @S7@ 2 PAGE |2 NOTE | 2 DATA 3 TEXT |3 DATE | ) transform1 =: 3 : 0 if. 0 = #y. do. '' return. end. NB. YT =: y. b =. '2 CONT Date:' E. y. b =. b + '2 CONT Source:' E. y. b =. 1,}.b + '2 CONT Notes:' E. y. NB. echo '$b';($b);' $y.';$y. D =: b <;.1 y. NB. +/ D '2 CONT Notes:'&E. each D a =. ; +/ each '2 CONT Notes:'&E. each D try. a =. ('2 CONT';'4 CONT') rxrplc X =: 14 }. ; a # D catch. '' return. end. p =. ; +/ each '2 CONT Source:'&E. each D p =. 15}. ; p # D if. 91 < # p do. wdinfo 'Tell Lorin that we have a page # field',LF,'that is too long. See RIN: ',Rin end. if. +/ '2 CON' E. p do. wdinfo 'It looks like we might have a Source: entry',LF,'that takes more than one line. See RIN ',Rin end. d =. ; +/ each '2 CONT Date:'&E. each D d =. 13}. ; d # D R =. (>0{transform1a),p,(>1{transform1a),' ',(>2{transform1a),a,(>3{transform1a),d,(>4{transform1a) ChgLog =: ChgLog,'vvv ============',Rin,'==============',LF,y.,'-------------------------------',LF,R,'^^^ ===========================',LF R ) main 0 --------------090805010001060604050503 Content-Type: text/plain; name="note_obit2.ijs" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="note_obit2.ijs" NB. load 'files' load 'regex' OBIT_Rins =: '' PRBLM_Rins =: '' ChgLog =: '' main =: 3 : 0 fn =: wd 'mbopen "" "\zhold" "*.ged"' aa =: (1!:1) <fn f =. LF,'0 ' b =. 1, _1}. f E. aa ab =. ; perInd each b <;.1 aa ab (1!:2) < '-obt2.ged',~ _4}.fn ) perInd =: 3 : 0 if. 0 = +/ ' INDI' E. y. do. '' return. end. Name =: '' Rin =: 3}. 50{. y. j =. Rin i. '@' Rin =: j{.Rin NB. Y =: y. f =. LF,'1 ' b =. 0, _1}. f E. y. a =. (b i. 1) {. y. a , ; perlev1 each b <;.1 y. ) perlev1 =: 3 : 0 if. '1 NAME ' -: 7{. y. do. Name =: y. '' return. end. OBIT =: 0 if. 0 = '1 NOTE' -: 6{.y. do. '' return. end. if. +/('(Obit.)' E. y.)+('(Obit)' E. y.)+('(Obit,)' E. y.) do. Name,LF, y. return. end. '' ) main 0 --------------090805010001060604050503--