:start
^!MoveCursor +1
^!Replace ^T>>"" SWA
^!Replace ^P>>"" SWA
^!Replace "''">>""" SWA
^!Replace "><">>">^P<" SWA
^!Replace " & ">>" &amp; " SWA
^!Replace "{title">>"<title" SWA
^!Replace "{/title}">>"</title>" SWA
^!Replace "italic"}">>"italic">" SWA
^!Replace "italic"}">>"italic">" SWA


^!MoveCursor +1
^!Find "<eadi.*>{.*}</eadid>" WIRS
^!Set %eadidValue%=^$StrStripHTML("^$GetSelection$";FALSE)$
^!Set %extension%=^$GetExt(^**)$

^!Save AS c:\eadcb\EADFiles\^%eadidValue%.xml
^!set %xml%=^**
^!open c:\eadcb\EADFiles\^%eadidValue%.xml

:End