Zapis do souboru

[Michal Kubecek]

>
> Vazeni,
>
>     mam tento problem: chci nektere fragmenty LaTeXoveho textu prenest do
> souboru ke zpracovani uplne jinym programem. Takze jsem si definoval makro
> \todata jako
> \def\todata#1{#1 \immediate\write\dat{#1}}
> (po predchozim otevreni \jobname.dat), a  v prislusnem miste pouziji
> \todata{Bla bla ...}. V argumentu se ale mohou vyskytnout \\,
> \footnote{neco}, \ , &, ... Potreboval bych, aby toto bylo v radku zapsanem
> do \jobname.dat vymyceno a nahrazeno libovolnym rozumnym poctem mezer,
> napr.
> \todata{1 &  2 & 3  & 4 \\}
> aby preslo na
> 1  2 3  4

\let\stdat&
{\catcode`\&=\active
  \gdef\atspace{\def&{ }}%
  \gdef\atat{\def&{\stdat}}%
}
\gdef\zneskodni{%
  \atspace
  \def\footnote#1{}%
  \let\\\relax
}
\def\todata{\begingroup\catcode`\&=\active\todatA}
\def\todatA#1{{\zneskodni\immediate\write\dat{#1}}\atat #1\endgroup}


(snad jsem nic neprehledl)
                                                   Michal Kubecek