FasdUAS 1.101.10 k i I .aevtodocnullalis o 0x X I *0processonevcardfileProcessOnevCardFile  c o 0y m  alis 0y o 0x l i I .aevtoappnull**** k r  c  l I .sysostdfalisnull  prmp m *$Select the vCard (version 3.0) file: m  alis o 0thefiletheFile! !I " *0processonevcardfileProcessOnevCardFile"# #o  0thefiletheFile$% $l%&' &i () (I* *0processonevcardfileProcessOnevCardFile*+ +o 0thefiletheFile )kR,,-. -O/0 /k1123 2r 45 4c 67 6l8 8n9: 9m  cfol :o 0thefiletheFile 7m  ctxt 5o 0destfoldestFol3;< ;r => =n ?@ ?1   dnam @o 0thefiletheFile >o 0fnamefName<A ArBC BnDE D1  nmxt Eo 0thefiletheFile Co 0fextfExt 0mFFnull߀ Finder.appp^ cԿא|() (]鈿}MACSalisn iMac-10.4.8=OH+ Finder.appCqg CoreServices!/gą 2iMac-10.4.8:System:Library:CoreServices:Finder.app Finder.app iMac-10.4.8&System/Library/CoreServices/Finder.app/.GH Gr"IJ Ib KL KbMN MbOP Oo 0destfoldestFol Po 0fnamefName NmQ Q -2.1. Lo 0fextfExt Jo 0newfilenewFileHRS Rl##STU Tr#0VW Vb#.XY Xl#(Z ZI#([ .sysontocTEXTshor [m#$  Yl(-\ \I(-] .sysontocTEXTshor ]m()  Wo 0crlfCRLFU^_ ^r1D`a `I1Bb "0eliminateblankseliminateBlanksbc cI2>d 0 parsetextfile parseTextFiledef eI39g 0 readtextfile readTextFilegh ho45 0thefiletheFilefi io9: 0crlfCRLF ao 0carddatacardData_j jIERk 0 write_to_fileklm lIFLn "0processcarddataProcessCardDatano ooGH 0carddatacardDatampq poLM 0newfilenewFileqr rmMN  boovfals'st sltuv ui wx wIy "0processcarddataProcessCardDatayz zo 0carddatacardData xk{{{|} |r ~ ~b l I .sysontocTEXTshor m  l I .sysontocTEXTshor m  o 0crlfCRLF} r m  o 0therettheRet Xx k"s r"' l"% c"% o"# 0x m#$  TEXT o 0y r(3 l(1 I(1 .sysooffslongnull  psof m*+ :  psin o,- 0y o 0thecolon r4? l4= I4= .sysooffslongnull  psof m67 ;  psin o89 0y o 0thesemi Z@s l@K F@K l@C A@C o@A 0thesemi oAB 0thecolon lFI ?FI oFG 0thesemi mGH rN_ cN] nN[ lO[ 7O[~ ~ cha mSU}} lVZ| \VZ oWX{ { 0thesemi mXYzz| oNOy y0y m[\x x TEXT ow w 0 labelpart rbs cbq nbo lcov 7cou u cha mgitt ljns \jn oklr r 0thecolon mlmqqsv obcp p0y mopo o TEXT on n 0 labelpart lt rt ct ltm nt 7ul l cha ly}k [y} oz{j j 0thecolon m{|iik l~h n~ 1g g leng o~f f0yh otue e0ym md d TEXT oc c 0 valuepart after : lbb SM set theRet to theRet & (offset of ":" in thisItem) & "-" & thisItem & returna Zs` l_ = o^ ^ 0 labelpart m BEGIN_ r b b b b o] ]0therettheRet m  BEGIN:VCARD o\ \ 0crlfCRLF m  VERSION:2.1 o[ [ 0crlfCRLF oZ Z0therettheRet lY = oX X 0 labelpart m NY r b b b   oW W0therettheRet  m  N: oV V 0 valuepart oU U 0crlfCRLF oT T0therettheRet   lS = oR R 0 labelpart m FNS  r b b b oQ Q0therettheRet m  FN: oP P 0 valuepart oO O 0crlfCRLF oN N0therettheRet lM = !  oL L 0 labelpart !m" " TELM#$ #k[%%&' &r() (c*+ *l,K ,n-. -7J/0 J cha /l1I 1[23 2l4H 4IGF5 G.sysooffslongnullF5E67 E psof 6m8 8 type=7D9C D psin 9oB B0yCH 3mAAI 0l:@ :n;< ;1? ? leng <o> >0y@ .o= =0yK +m< < TEXT )o; ; 0tempst'=> =r?@ ?lA: AI98B 9.sysooffslongnull8B7CD 7 psof CmE E:D6F5 6 psin Fo4 4 0tempst5: @o3 3 0 thecolon2>GH GrIJ IlK2 KI10L 1.sysooffslongnull0L/MN / psof Mm  O O;N.P- . psin Po, , 0tempst-2 Jo+ + 0thesemi2HQR QZIST*U Sl!V) VF!WX WlY( YAZ[ Zo' ' 0thesemi2 [o& & 0 thecolon2( Xl\% \?]^ ]o$ $ 0thesemi2 ^m##%) Tr$5_` _c$3ab al$1c" cn$1de d7%1!fg ! cha fm)+   gl,0h h\,0ij il-.k ko-.  0thesemi2 jm./ eo$%  0tempst" bm12  TEXT `o 0teltypetelType* Ur8Ilm lc8Gno nl8Ep pn8Eqr q79Est  cha sm=? tl@Du u\@Dvw vlABx xoAB  0 thecolon2 wmBC ro89  0tempst omEF  TEXT mo 0teltypetelTypeRy yrJ[z{ zbJY|} |bJW~ ~bJU bJQ bJO oJK 0therettheRet mKN  TEL; oOP 0teltypetelType mQT : oUV 0 valuepart }oWX 0crlfCRLF {o 0therettheRet$ l^c =^c o^_  0 labelpart m_b  END rfo bfm bfk ofg 0therettheRet mgj  END:VCARD okl  0crlfCRLF o 0therettheRet`a 0x o 0carddatacardData Ly{ oyz 0therettheRetv l i I 0eliminateutf16eliminateUTF16 o 0thetexttheText k  l 5/check first byte, if 00, we likely have unicode Z l  =  n 4  cha m o 0thetexttheText l  I  .sysontocTEXTshor m l  r  n  m  ktxt l  c  l  c  o  0thetexttheText m  TEXT m  reco o 0cleaned extract string theText s o 0thetexttheText o 0cleaned L  o 0cleaned l l l i I 0 parsetextfile parseTextFile o 0thetexttheText o 0 thedelimeter theDelimeter k* r n 1  txdl 1  ascr o (0originaldelimitersoriginalDelimiters r  J  o 0 thedelimeter theDelimeter n 1  txdl 1  ascr r! n 7  citm m l I .corecnte******** n 2  citm o 0thetexttheText o 0thetexttheText o 0theitemstheItems r"' o"# (0originaldelimitersoriginalDelimiters n 1$&  txdl 1#$  ascr L(* o() 0theitemstheItems i I "0eliminateblankseliminateBlanks o 0 thelineset theLineSet k. r J o 0 thenewset theNewSet l +%return (count of items in theLineSet) X+ Z& l ? n   1  leng  o 0x m r"   b    o 0 thenewset theNewSet o 0x  o 0 thenewset theNewSet 0x o 0 thelineset theLineSet L,. o,- 0 thenewset theNewSet l i I 0 readtextfile readTextFile o 0thefiletheFile Z = l  n  4 !  cha !m  I" 0readfilereadFile"# #o 0thefiletheFile l $ $I % .sysontocTEXTshor %m  kT&&'( 'QQ)*+ )k.,,-. -r/0 /I12 .rdwropenshorfile 1o 0thefiletheFile23  perm 3m  boovfals 0o 0openfileopenFile.45 4r(67 6I&89 .rdwrread******** 8o 0openfileopenFile9:  as :m!"  utxt 7o 0thedatatheData5; ;I).< .rdwrclosnull**** <o)* 0openfileopenFile *R= .ascrerr ******** =o 0 errormessage errorMessage +k6Q>>?@ ?Q6GAB AI9>C .rdwrclosnull**** Co9: 0openfileopenFile BR .ascrerr ********@DE DrHKFG FmHIH H Go 0thedatatheDataEI IILQJ .sysodlogaskrTEXT JoLM 0 errormessage errorMessage(K KLRTL LoRS~ ~0thedatatheData kWMMNO NQWPQR PkZsSSTU TrZcVW VIZa}XY }.rdwropenshorfile XoZ[| |0thefiletheFileY{Zz { perm Zm\]y y boovfalsz Wox x0openfileopenFileU[\ [ldm]^ ]rdm_` _Idkwab w.rdwrread******** aodev v0openfileopenFilebuct u as cmfgs s ctxtt `or r0thedatatheData ^*$ this has to be clean text, unstyled\dq dInspeo p.rdwrclosnull**** eonon n0openfileopenFileoq QRmfl m.ascrerr ******** fok k0 errormessage errorMessagel Rk{gghi hQ{jkj jI~ilh i.rdwrclosnull**** lo~g g0openfileopenFileh kRfed f.ascrerr ********edjimn mrop omq q poc c0thedatatheDatanrb rIas` a.sysodlogaskrTEXT so_ _0 errormessage errorMessage`bOt^ tLu uo] ]0thedatatheData^vw vl\[\[wxy xi #z{ zIZ|Y Z0readfilereadFile|}X }oW W0thefiletheFileXY {k@~~ Q= k r  I V V.rdwropenshorfile oU U0thefiletheFileTS T perm mR R boovfalsS oQ Q0openfileopenFile l PP SM set theData to read openFile as text -- this has to be clean text, unstyled l OO 2,set theData to read openFile as Unicode text l  r  I NM N.rdwrread******** o L L0openfileopenFileM oK K0thedatatheData  as textJ IIH I.rdwrclosnull**** oG G0openfileopenFileHJ RFE F.ascrerr ******** oD D0 errormessage errorMessageE k"= Q"3C I%*BA B.rdwrclosnull**** o%&@ @0openfileopenFileA R?>= ?.ascrerr ********>=C r47 m45  o< <0thedatatheData; I8=:9 :.sysodlogaskrTEXT o898 80 errormessage errorMessage9;7 L>@ o>?6 60thedatatheData7y l5454 l3232 i$' I10 10savetextsaveText o/ /0thetexttheText o. .0 destfolder destFolder- o, ,0 destfilename destFileName-0 k9 Z+* > n 4) ) cha m(( o' '0 destfolder destFolder m : r  b  o & &0 destfolder destFolder m  : o% %0 destfolder destFolder+* l$#$# I"! "0 write_to_file o 0thetexttheText l b o 0 destfolder destFolder o 0 destfilename destFileName m  boovfals! l O7 k"6 r"* 4"(  alis l$' b$' o$% 0 destfolder destFolder o%& 0 destfilename destFileName o 0thefiletheFile r+0 m+,  TEXT l n 1-/  asty o,- 0thefiletheFile r16 m12  R*ch n 135  fcrt o23 0thefiletheFile mF l88     i(+ I  0 write_to_file o  0 this_data o 0 target_file o 0 append_data QY k: r c l o 0 target_file m  ctxt l   o 0 target_file   r    l  I  .rdwropenshorfile 4   file o 0 target_file  perm m  boovtrue  l o 0open_target_file  Z' = o 0 append_data m  boovfals l # I# .rdwrseofnull**** l o 0open_target_file  set2 m I(1!" .rdwrwritnull**** !o() 0 this_data"#$  refn #l*+% %o*+ 0open_target_file$&  wrat &m,-  rdwreof  '( 'I27) .rdwrclosnull**** )l23* *o23 0open_target_file(+ +L8:, ,m89  boovtrue R .ascrerr ******** kBY--./ .QBV01 0IEM2 .rdwrclosnull**** 24EI3  file 3oGH 0 target_file 1R .ascrerr ********/4 4LWY5 5mWX  boovfals67 6l78 8i,/9: 9I; 0 uppercase;< <o 0sometextsomeText :ki==>? >r@A @mB B Ao 0newtextnewText?CD CrEF ElG GnHI H7JK  cha Jm  Kl L Ln MN M1  leng No  0sometextsomeText Io 0sometextsomeText Fo 0thecharstheCharsDOP OXfQR Qk$aSSTU Tr$+VW VI$)X .sysoctonshorTEXT Xo$% 0a Wo 0asciinumUYZ YZ,[[\ [l,3] ]@,3^_ ^o,- 0asciinum _l-2` `I-2a .sysoctonshorTEXT am-.b ba \Z6Wcd cl6=e eB6=fg fo67 0asciinum gl7<h hI7<i .sysoctonshorTEXT im78j jz dr@Skl kI@Qm .sysontocTEXTshor ml@Mn n\@Mop oo@A 0asciinum plALq q\ALrs rlAFt tIAFu .sysoctonshorTEXT umABv va slFKw wIFKx .sysoctonshorTEXT xmFGy yA lo 0aZz zr\a{| {b\_}~ }o\] 0newtextnewText ~o]^ 0a |o 0newtextnewText 0a Ro 0thecharstheCharsP Lgi ogh 0newtextnewText .aevtodocnullalis .aevtoappnull**** *0processonevcardfileProcessOnevCardFile "0processcarddataProcessCardData 0eliminateutf16eliminateUTF16 0 parsetextfile parseTextFile "0eliminateblankseliminateBlanks 0 readtextfile readTextFile 0readfilereadFile 0savetextsaveText 0 write_to_file 0 uppercase .aevtodocnullalis 0x 0x 0y  kocl  cobj .corecnte********  alis *0processonevcardfileProcessOnevCardFile[l kh*&k+[OY .aevtoappnull****~ }|{z ~ prmp }.sysostdfalisnull | alis {0thefiletheFile z*0processonevcardfileProcessOnevCardFile*l &EO*k+y)xwv y*0processonevcardfileProcessOnevCardFilexuut t0thefiletheFilewsrqponm s0thefiletheFile r0destfoldestFol q0fnamefName p 0fextfExt o0newfilenewFile n 0crlfCRLF m0carddatacardDataFlkjiQhgfedcba l cfol k ctxt j dnam i nmxth g.sysontocTEXTshorf e0 readtextfile readTextFile d0 parsetextfile parseTextFile c"0eliminateblankseliminateBlanks b"0processcarddataProcessCardData a0 write_to_filevS,&EO,EO,EUO%%%EOj j %EO***k+ l+ k+ EO**k+ fm+ `x_^] `"0processcarddataProcessCardData_\\[ [0carddatacardData^ ZYXWVUTSRQPON Z0carddatacardData Y 0crlfCRLF X0therettheRet W0x V0y U 0thecolon T 0thesemi S 0 labelpart R 0 valuepart Q 0tempst P 0 thecolon2 O 0thesemi2 N0teltypetelType!MLKJIHGFEDCBA@ "8?EOM L.sysontocTEXTshorK J kocl I cobj H.corecnte******** G TEXT F psof E psinD C.sysooffslongnull B bool A cha @ leng?]|j j %EOEOe[l kh&EO* EO* EO j&[\[Zk\Zk2&EY[\[Zk\Zk2&EO[\[Zk\Za,2&EOaa%%a%%EYѧaa%%%EYaa%%%EYa[\[Z*a a\Za,2&EO*a EO*a EO j&[\[Zk\Zk2&EY[\[Zk\Zk2&EOa%%a%%%EYaa %%EYh[OYO>=<; > 0eliminateutf16eliminateUTF16=::9 90thetexttheText<87 80thetexttheText 7 0cleaned65432 6 cha 5.sysontocTEXTshor 4 TEXT 3 reco 2 ktxt;!k/jj &&,EYEQO10/. 10 parsetextfile parseTextFile0--,+ ,0thetexttheText +0 thedelimeter theDelimeter/*)(' *0thetexttheText )0 thedelimeter theDelimeter ((0originaldelimitersoriginalDelimiters '0theitemstheItems&%$# & ascr % txdl $ citm #.corecnte********.+,EOkv,FO[\[Zk\Z-j 2EO,FO"!  ""0eliminateblankseliminateBlanks! 0 thelineset theLineSet  0 thelineset theLineSet 0 thenewset theNewSet 0x  kocl  cobj .corecnte********  leng/jvEO%[l kh, %EYh[OYO 0 readtextfile readTextFile 0thefiletheFile 0thefiletheFile 0openfileopenFile 0thedatatheData 0 errormessage errorMessage Hq 0readfilereadFile  cha .sysontocTEXTshor  perm .rdwropenshorfile  as  utxt .rdwrread******** .rdwrclosnull**** 0 errormessage errorMessage .sysodlogaskrTEXT  ctxt*k+k/jj Gfl EOl EOj W"X  j WX hOEOj OYDfl EOl EOj W"X  j WX hOEOj O{ 0readfilereadFile 0thefiletheFile 0thefiletheFile 0openfileopenFile 0thedatatheData 0 errormessage errorMessage   perm .rdwropenshorfile .rdwrread******** .rdwrclosnull**** 0 errormessage errorMessage .sysodlogaskrTEXTAfl EOj EOj W"X j WXhOEOj O 0savetextsaveText 0thetexttheText 0 destfolder destFolder 0 destfilename destFileName 0thetexttheText 0 destfolder destFolder 0 destfilename destFileName 0thefiletheFile F  cha 0 write_to_file  alis  asty  fcrt:i/ %EYhO*%fm+O*塢%/EO,FO,FUOP 0 write_to_file 0 this_data 0 target_file 0 append_data 0 this_data 0 target_file 0 append_data 0open_target_file  ctxt  file  perm .rdwropenshorfile  set2 .rdwrseofnull****  refn  wrat  rdwreof  .rdwrwritnull**** .rdwrclosnull****Z<&EO*/el EOf jl YhO Oj OeWX  */j WX hOf: 0 uppercase 0sometextsomeText 0sometextsomeText 0newtextnewText 0thecharstheChars 0a 0asciinum Bbjvy  cha  leng  kocl  cobj .corecnte******** .sysoctonshorTEXT .sysontocTEXTshorjEO[\[Zk\Z,2EOQ[l khj EOj &j j j j EYhYhO%E[OYOascr ޭ