FasdUAS 1.101.10 k l IC*******************************************************************  ******************************************************************* l  F@ This script extracts all phone numbers from addressbook.app and  This script extracts all phone numbers from addressbook.app and  l 3- writes them to an XML-file for the fritzbox.Z writes them to an XML-file for the fritzbox. l SM It assumes that you live in Germany, thus numbers starting with +49 xxx xxxx It assumes that you live in Germany, thus numbers starting with +49 xxx xxxx l RL are converted to 0xxx xxxx. This is done in the function "num", change this are converted to 0xxx xxxx. This is done in the function "num", change this l ! '! function according to your needs!""B function according to your needs#$ #l%& %IC*******************************************************************&''*******************************************************************$() (l* *O+, +k--./ .l/01 0l23 2/) open phonebook tags, Ecoding iso-8859-1?344R open phonebook tags, Ecoding iso-8859-1?156 5r78 7b9: 9b ;< ;b => =b ?@ ?bAB AmCCDDL<?xml version="1.0" encoding="UTF-8"?> Bo  ret @mEEFF<phonebooks> >o  ret <m GGHH <phonebook> :o   ret 8o 0mydata6IJ IlJKL KlMN M/) go through all people in addressbook.appNOOR go through all people in addressbook.appLPQ PXRS Rk$TTUV Ul$$VWX Wl$$YZ Y60 set the priority of the first number found to 1Z[[` set the priority of the first number found to 1X\] \r$'^_ ^m$% _o 0prio]`a `l((abc br(-de dn(+fg f1)+  azf8 go() 0myperson eo 0mylastchi hr.3jk jn.1lm l1/1  azf7 mo./ 0myperson ko 0myfirstino nr4;pq pn47rs r157  az38 so45 0myperson qo 0myorgotu tl<<vw v0*log mylast & ", " & myfirst & ", " & myorgwxxTlog mylast & ", " & myfirst & ", " & myorguyz yl<<z{| {l<<}~ }+% set name or company name as realName~J set name or company name as realName| Z<o ><A o<= 0mylast m=@  msng kDe rDK nDG 1EG  azf8 oDE 0myperson o 0realnamerealName ZLe >LQ oLM 0myfirst mMP  msng rTa bT] bT[ oTW 0realnamerealName mWZ, o[\ 0myfirst o 0realnamerealName rho ohk 0myorg o 0realnamerealName lpp lpp  open contact tags$ open contact tags rp bp{ bpw mpsj <contact><category>0</category><person><realName> osv 0realnamerealName mwz></realName></person><telephony> o 0 mycontact l  home number home number r l 6 n 1  az17 n 2  az20 o 0myperson = 1  az18 mhome o 0home Z ? n 1  leng o 0home m k r b b b b b o 0 mycontact mH<number type="home" vanity="" prio=" o 0prio m"> n I 0num n 4  cobj m o 0home f m</number> o 0 mycontact r m o 0prio l  work number work number r l 6 n 1  az17 n 2  az20 o 0myperson = 1  az18 mwork o 0work Z% ? n 1  leng o 0work m k! r   b   b b  b b o 0 mycontact mH<number type="work" vanity="" prio=" o 0prio m"> n  I  0num n  4   cobj  m o  0work f   m!!""</number>  o 0 mycontact # #r!$% $m %o 0prio&' &l&&() ( mobile number)** mobile number'+, +r&B-. -l&>/ /6&>01 0n&/23 21+/  az17 3n&+45 42'+  az20 5o&' 0myperson 1=2=67 6137  az18 7m8<8899 mobile .o 0mobile,:; :ZCx<= <?CL>? >nCJ@A @1FJ  leng AoCF~ ~ 0mobile ?mJK}} =kOtBBCD CrOpEF EbOlGH GbOhIJ IbO\KL KbOXMN MbOVOP OoOR| | 0 mycontact PmRUQQRRL<number type="mobile" vanity="" prio=" NoVW{ {0prio LmX[SSTT"> Jn\gUV UI]gzWy z0numWXx Xn]cYZ Y4`cw[ w cobj [mabvv Zo]`u u 0mobilexy Vf\] Hmhk\\]]</number> Fot t 0 mycontactD^s ^rqt_` _mqrrr `oq q0prios;ab alyyponponbcd clyymefm e close contact tagsfgg& close contact tagsdhl hryij ibykl kbymn mby~op ooyzk k 0mydata poz}j j 0 mycontact nm~qqrrR</telephony><services/><setup/></contact> loi i ret joh h 0mydatal 0myperson S2g g azf4Qst slfuvf u close phonebook tagsvww* close phonebook tagstxy xrz{ zb|} |b~ ~b oe e 0mydata m </phonebook> od d ret }m</phonebooks> {oc c 0mydatay lba`ba` l__ ! finally write data to file6 finally write data to file r I^] ^.sysonwflfilenull]\ \ prmt mSave as:[ [ dfnm maddresses.xmlZY Z dflc lXW IVU V.earsffdralis afdr mT T afdmdeskUXWY oS S0 myfilename l r IR R.rdwropenshorfile 4Q Q file lPO c oN N0 myfilename mM M TEXTPOLK L perm mJ J boovtrueK oI I 0myfile  this opens the file( this opens the file IH H.rdwrwritnull**** oG G 0mydataFE F refn oD D 0myfileE ICB C.rdwrclosnull**** oA A 0myfileB l@?>@?> l==  convert to ISO-8859-1, convert to ISO-8859-1 l<< >8 set myposixpath to POSIX path of (myfilename as string)p set myposixpath to POSIX path of (myfilename as string); l:: f`do shell script "iconv -f UTF-8 -t ISO-8859-1 \"" & myposixpath & "\" > \"" & myposixpath & "\""do shell script "iconv -f UTF-8 -t ISO-8859-1 \"" & myposixpath & "\" > \"" & myposixpath & "\""; ,madrbalisd Snow LeopardH+JPAddress Book.appM.cƐf ApplicationsƐJuJP*Snow Leopard:Applications:Address Book.app"Address Book.app Snow LeopardApplications/Address Book.app/) l987987 i I65 60num4 o3 3 0mynumber45 Z12 = c  l 10 n  7 / / citm m.. m -- o, , 0mynumber10 m + + TEXT m 49 L  b m0 n 7* * citm m)) m(( o' ' 0mynumber2 L#1 b#0 m#$00 n$/ 7%/& & citm m)+%% m,.$$ o$%# # 0mynumber" l! ! " 0num .aevtoappnull**** 0num  0mynumber  0mynumber  citm  TEXT2[\[Zl\Zm2&[\[Z\Zi2%Y[\[Zl\Zi2% .aevtoappnull**** k(   0mypersonAC EG !8QS\q  ret 0mydata  azf4  kocl  cobj .corecnte******** 0prio  azf8  0mylast  azf7  0myfirst  az38 0myorg  msng 0realnamerealName 0 mycontact  az20  az17  az18 0home  leng 0num 0work 0mobile  prmt  dfnm  dflc  afdmdesk .earsffdralis afdr .sysonwflfilenull 0 myfilename  file  TEXT  perm .rdwropenshorfile 0myfile  refn .rdwrwritnull**** .rdwrclosnull****%%%%%EOx*-[l khkEO,EO,EO,E`Oa&,E`Oa_a%%E`YhY _E`Oa_%a%E`Oa-a,a[a,\Za81E`O_a,j*_a%%a%)_k/k+ %a!%E`OjEYhOa-a,a[a,\Za"81E`#O_#a,j*_a$%%a%%)_#k/k+ %a&%E`OjEYhOa-a,a[a,\Za'81E`(O_(a,j*_a)%%a*%)_(k/k+ %a+%E`OjEYhO_%a,%%E[OYOa-%%a.%EO*a/a0a1a2a3a4j 5a6 7E`8O*a9_8a:&/a;el _=l ?O_=j @OPUascr ޭ