如何使用字符串变量并返回数组制作宏？

Question 1

您可以遍历列表，棘手的一点是避免&在末尾添加，我确实添加了它，但用来\omit避免生成可见的空列（带有过长的\hline）

\documentclass{article}

\usepackage{amsmath}

\newcommand\mymacro[2]{\begin{matrix}\zz#1\zzz\\\hline\zz#2\zzz\end{matrix}}


\def\zz#1{#1&\zz}
\def\zzz#1#2{\omit}

\begin{document}


$\mymacro{abc}{def}$

$\mymacro{123456}{aaabbb}$

\end{document}

Answer

您可以遍历列表，棘手的一点是避免&在末尾添加，我确实添加了它，但用来\omit避免生成可见的空列（带有过长的\hline）

\documentclass{article}

\usepackage{amsmath}

\newcommand\mymacro[2]{\begin{matrix}\zz#1\zzz\\\hline\zz#2\zzz\end{matrix}}


\def\zz#1{#1&\zz}
\def\zzz#1#2{\omit}

\begin{document}


$\mymacro{abc}{def}$

$\mymacro{123456}{aaabbb}$

\end{document}

Question 2

\documentclass{article}
\newcommand\mymacro[2]{%
  \process{\tmpA}{#1}%
  \process{\tmpB}{#2}%
  \begin{array}{\arwd}
  \tmpA\\\hline\tmpB
  \end{array}
}
\newcommand\process[2]{\def\arwd{}\def#1{}\processA#1#2\relax}
\makeatletter
\def\processA#1#2#3\relax{%
  \if\relax#1\relax\else\g@addto@macro#1{&}\fi
  \g@addto@macro#1{#2}%
  \g@addto@macro\arwd{c}%
  \ifx\relax#3\relax\else\processA#1#3\relax\fi
}
\makeatother
\begin{document}
$\mymacro{abc}{def}$

$\mymacro{12345}{67890}$
\end{document}

Answer

\documentclass{article}
\newcommand\mymacro[2]{%
  \process{\tmpA}{#1}%
  \process{\tmpB}{#2}%
  \begin{array}{\arwd}
  \tmpA\\\hline\tmpB
  \end{array}
}
\newcommand\process[2]{\def\arwd{}\def#1{}\processA#1#2\relax}
\makeatletter
\def\processA#1#2#3\relax{%
  \if\relax#1\relax\else\g@addto@macro#1{&}\fi
  \g@addto@macro#1{#2}%
  \g@addto@macro\arwd{c}%
  \ifx\relax#3\relax\else\processA#1#3\relax\fi
}
\makeatother
\begin{document}
$\mymacro{abc}{def}$

$\mymacro{12345}{67890}$
\end{document}

Question 3

您可以执行多行，而不需要计算任何项目的长度。

\documentclass{article}
\usepackage{booktabs} % better rules

\ExplSyntaxOn

\NewDocumentCommand{\mymacro}{O{\\}m}
 {% #1 = separator, #2 = data
  \fukai_mymacro:nn { #1 } { #2 }
 }

\int_new:N \l__fukai_mymacro_length_int
\seq_new:N \l__fukai_mymacro_body_seq
\seq_new:N \l__fukai_mymacro_row_seq

\cs_new_protected:Nn \fukai_mymacro:nn
 {
  \seq_set_split:Nnn \l__fukai_mymacro_body_seq { #1 } { #2 }
  \int_zero:N \l__fukai_mymacro_length_int
  \seq_map_inline:Nn \l__fukai_mymacro_body_seq
   {
    \int_compare:nT { \l__fukai_mymacro_length_int < \tl_count:n { ##1 } }
     {
      \int_set:Nn \l__fukai_mymacro_length_int { \tl_count:n { ##1 } }
     }
   }
  \begin{array}{ * { \l__fukai_mymacro_length_int } { c } }
  \seq_map_indexed_function:NN \l__fukai_mymacro_body_seq \__fukai_mymacro_row:nn
  \end{array}
 }

\cs_new_protected:Nn \__fukai_mymacro_row:nn
 {% #1 is the index, #2 is the item
  \int_compare:nF { #1 = 1 } { \\ \midrule }
  \seq_set_split:Nnn \l__fukai_mymacro_row_seq { } { #2 }
  \seq_use:Nn \l__fukai_mymacro_row_seq { & }
 }

\ExplSyntaxOff

\begin{document}

\[
\mymacro{abc \\ def }
\]

\[
\mymacro{abcde \\ fg \\ uvw}
\]

\[
\mymacro[,]{ab,def}
\]

\end{document}

默认情况下，行分隔符为\\，但可以使用可选参数进行不同的设置。

参数在所选分隔符处拆分；然后计算每个项的长度以确定列数。接下来通过“从零”处拆分生成每一行。

如果您的所有表格都只有两行，那么您可以采取类似的方式。

\documentclass{article}
\usepackage{booktabs} % better rules

\ExplSyntaxOn

\NewDocumentCommand{\mymacro}{mm}
 {
  \fukai_mymacro:nn { #1 } { #2 }
 }

\seq_new:N \l__fukai_mymacro_row_seq

\cs_new_protected:Nn \fukai_mymacro:nn
 {
  \begin{array}
   {
    * { \int_max:nn { \tl_count:n { #1 } } { \tl_count:n { #2 } } } { c }
   }
  \seq_set_split:Nnn \l__fukai_mymacro_row_seq { } { #1 }
  \seq_use:Nn \l__fukai_mymacro_row_seq { & }
  \\ \midrule
  \seq_set_split:Nnn \l__fukai_mymacro_row_seq { } { #2 }
  \seq_use:Nn \l__fukai_mymacro_row_seq { & }
  \end{array}
 }

\ExplSyntaxOff

\begin{document}

\[
\mymacro{abc}{def}
\]

\[
\mymacro{abcde}{uvw}
\]

\[
\mymacro{ab}{def}
\]

\end{document}

Answer