Создать функцию, генерирующую букву?

Question

Мне приходится писать много писем, в которых каждый раз приходится менять только имена, даты и адреса, но содержание всегда одно и то же.

Короткая версия будет выглядеть примерно так: «Уважаемый [имя], вам необходимо явиться по [адресу] в [время] [дата]».

Можно ли это как-то автоматизировать? Я бы просто хотел вставить нужные поля для Latex, чтобы создать письмо из шаблона.

Answer 1

Мне нравится делать это вот так, используя datatoolпакет(как также предложено в комментариях):

\documentclass[10pt,a4paper]{scrlttr2}  
\usepackage{datatool}

\begin{document}        
\setkomavar{date}{\today}
\setkomavar{subject}{Very Important Letter}
\setkomavar{fromname}{Tom}
\setkomavar{fromaddress} {%
    My Company\\
    Company Way 42\\
    1337~Corporatetown%
}   

\DTLloaddb{list}{addresses.csv}
\DTLforeach{list}{\first=Firstname,\last=Lastname,\address=Street,
    \town=Town,\postal=Postal}{% start of loop
\begin{letter}{\first~\last \\ \address \\ \postal~\town}%
\opening{Dear \first~\last,}%

    some text   
    
    some more text

        \closing{Best regards}

\end{letter}
} % end of for loop
\end{document}

Затем я храню все адреса в отдельном файле addresses.csv, например так:

Firstname,Lastname,Street,Postal,Town
John,Doe,Example Street 1, 12345, North Pole
Jane,Doe,Example Street 2, 12345, North Pole

Конечно, получившаяся буква, скорее всего, не будет иметь желаемого вами стиля. Но в вашем распоряжении целый мир вариантов KOMA, просто проверьтеРуководство КОМА!

Answer 2

Несколько более простой подход — помнить, что letterв одном документе может быть несколько сред. Таким образом, можно написать что-то вроде этого:

\documentclass{letter}
\address{YOUR ADDRESS GOES HERE}
\signature{YOUR SIGNATURE INFO HERE}

\NewDocumentCommand{\myletter}{mmmm}
  {
    \begin{letter}{#1}
    \opening{Dear #2:}
    Please present yourself at the #3 at #4 on #5.
    \closing{Threateningly,}
    \end{letter}
  }

\begin{document}
\myletter{Julius Caesar\\Subura\\Rome}{Julius}{Curia of Pompey}{3:00PM}{15 March 44 BC}
\myletter{Gaius Germanicus\\Temple of Castor and Pollux\\Rome}{Caligula}{Cryptoporticus}{3:00PM}{24 January 41}
\end{document}

Answer 3

Вот способ с listofitemsпакетом.

\documentclass{article}
\usepackage{listofitems}
\newcommand\letterdata{
Sam, Main Street, 3 p.m., 14 April 2022\\
Lisa, Elm St., 1500, 25 December 2022}

\newcommand\stencil{
\noindent Dear <data>,

Please report to our <data> location at <data> on <data>.

\noindent kind regards,\\
The Management}

\setsepchar{\\/,}
\readlist\letteritems{\letterdata}
\setsepchar{<data>}
\readlist\stencilitems{\stencil}

\begin{document}

\foreachitem\z\in\letteritems[]{%
  \foreachitem\zz\in\stencilitems[]{%
    \zz 
    \ifnum\zzcnt<\listlen\stencilitems[]\letteritems[\zcnt,\zzcnt]\fi%
  }%
  \par\bigskip\noindent\hrulefill\par\bigskip
}

\end{document}

Если вам необходимо использовать элементы данных не по порядку или многократно, то подойдет следующий вариант:

\documentclass{article}
\usepackage{listofitems}
\newcommand\letterdata{
Sam, Main Street, 3 p.m., 14 April 2022\\
Lisa, Elm St., 1500, 25 December 2022}

\newcommand\stencil{%
\noindent Dear <data>{1},

Please report to our <data>{2} location at <data>{3} on <data>{4}.

Thank you again, <data>{1}, for your willingness to assist us in
  this matter.

\noindent kind regards,\\
The Management}

\setsepchar{\\/,}
\readlist*\letteritems{\letterdata}
\setsepchar{<data>}
\readlist\stencilitems{\stencil}

\newcommand\fillinthedata[2]{\letteritems[#1,#2]}
\newtoks\lettertoks
\newcommand\addtolettertoks[1]{%
      \lettertoks\expandafter{\the\lettertoks#1}}
\newcommand\xaddtolettertoks[1]{%
      \lettertoks\expandafter\expandafter\expandafter{\expandafter
      \the\expandafter\lettertoks#1}}
\begin{document}

\foreachitem\z\in\letteritems[]{%
  \lettertoks{}%
  \foreachitem\zz\in\stencilitems[]{%
    \xaddtolettertoks{\zz}%
    \ifnum\zzcnt<\listlen\stencilitems[]\relax
      \addtolettertoks{\fillinthedata}%
      \xaddtolettertoks{\expandafter{\zcnt}}%
    \fi%
  }%
  \the\lettertoks
  \par\bigskip\noindent\hrulefill\par\bigskip
}

\end{document}