Re: todayの全角変換

名前: Dora
日時: 2013-02-16 23:13:23
IPアドレス: 58.0.63.*

>>57033

pTeX ならば次のようにするのが簡単でしょう。

\def\zenkakutoday{\bgroup
\kansujichar0=`０
\kansujichar1=`１
\kansujichar2=`２
\kansujichar3=`３
\kansujichar4=`４
\kansujichar5=`５
\kansujichar6=`６
\kansujichar7=`７
\kansujichar8=`８
\kansujichar9=`９
\kansuji\year 年\kansuji\month 月\kansuji\day 日\egroup}

今日は\zenkakutoday です。

\zenkakutoday という新しい命令を用意するのではなく，\zenkaku{\today} という形がよいというのであれば，泥臭く一文字ずつ調べてゆくという手法はあり得ます。

\makeatletter
\def\zenkaku#1{\bgroup\edef\@target{#1}\expandafter\@zenkaku\@target\relax\egroup}
\def\@zenkaku#1{%
  \def\@target{#1}%
  \def\@zenkaku@relax{\relax}%
  \ifx\@target\@zenkaku@relax
    \let\@zenkaku@next\relax
  \else
    \if#10０\else
    \if#11１\else
    \if#12２\else
    \if#13３\else
    \if#14４\else
    \if#15５\else
    \if#16６\else
    \if#17７\else
    \if#18８\else
    \if#19９\else
    #1\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
    \let\@zenkaku@next\@zenkaku
  \fi
  \@zenkaku@next
}
\makeatother

今日は\zenkaku{\today}です。

この書き込みへの返事：