\href 内的宏扩展

Question

我想为

\href{tel:[phone]}{01\,23\,45\,67\,89}

我可以使用包\StrSubstitute中的xstring

\StrSubstitute{01 23 45 67 89}{ }{\,}

在第二个参数中href。但是同样的事情

\StrSubstitute{01 23 45 67 89}{ }{}

在第一个参数中不起作用。

我认为，我理解这是宏扩展顺序的问题。但是我怎样才能让 LaTeX 首先扩展\StrSubstitute为可以被解析的字符串\href呢？

下面是我实际想要实现的一个最小示例：

\documentclass{minimal}

\usepackage{xstring}
\usepackage{hyperref}

\newcommand\phone[1]{\href{tel:\StrSubstitute{#1}{ }{}}{\StrSubstitute{#1}{ }{\,}}}

\begin{document}

    \href{tel:[phone]}{01\,23\,45\,67\,89}

    \href{\StrSubstitute{01 23 45 67 89}{ }{}}{\StrSubstitute{01 23 45 67 89}{ }{\,}}

    \phone{01 23 45 67 89}

\end{document}

---

编辑：成对模式并不重要，因为不同国家有不同的数字格式惯例。我真的只想替换/删除空格（也许还有其他东西）。

Answer 1

扩展字符串替换第一的通过将其存储在一个参数中，然后您可以使用它hyperref的\href：

\documentclass{article}

\usepackage{xstring}
\usepackage{hyperref}

\newcommand\phone[1]{%
  \StrSubstitute{#1}{ }{}[\firstarg]% Store first substitution in \firstarg
  \StrSubstitute{#1}{ }{\,}[\secondarg]% Store second substitution in \secondarg
  \href{tel:\firstarg}{\secondarg}% Use stored arguments in \href
}

\begin{document}

\href{tel:[phone]}{01\,23\,45\,67\,89}

\phone{01 23 45 67 89}

\end{document}

Answer 2

这些xstring命令不可扩展，因此通常不能在其他命令中内联使用。您可以在此处使用简单的可扩展替换。

\documentclass{minimal}


\usepackage{hyperref}

\makeatletter
\def\zza#1 {#1\zza}
\def\zzb#1 {#1\,\zzb}
\newcommand\phone[1]{{\def\!##1{}\def\$##1##2{}\href{tel:\zza#1\! }{\zzb#1\$ }}}
\makeatother

\begin{document}

    \href{tel:[phone]}{01\,23\,45\,67\,89}

    \phone{01 23 45 67 89}

\end{document}

Answer 3

您不能\StrSubstitute在那些地方使用，因为它不会在替换后生成字符串，而是生成一组相当复杂的指令来生成该字符串。

一种更复杂的解决方案，避免了在数字对之间输入空格，因此即使您忘记了它们，它也能工作。

\documentclass{article}

\usepackage{xparse}
\usepackage{hyperref}

\ExplSyntaxOn

\NewDocumentCommand{\phone}{m}
 {
  \dlichti_phone:n { #1 }
 }

\tl_new:N \l_dlichti_phone_href_tl
\tl_new:N \l_dlichti_phone_print_tl

\cs_new_protected:Nn \dlichti_phone:n
 {
  \tl_set:Nx \l_dlichti_phone_href_tl { #1 }
  % remove all spaces
  \tl_replace_all:Nnn \l_dlichti_phone_href_tl { ~ } { }
  % save a copy
  \tl_set_eq:NN \l_dlichti_phone_print_tl \l_dlichti_phone_href_tl
  % insert a thin space between any pair of digits
  \regex_replace_all:nnN
   { ([0-9][0-9]) } % two digits followed by another digit
   { \1\c{,} } % the same with \, in between
   \l_dlichti_phone_print_tl
  % remove the trailing \,
  \regex_replace_once:nnN { \c{,} \Z } { } \l_dlichti_phone_print_tl
  \dlichti_phone_href:VVV
   \c_colon_str
   \l_dlichti_phone_href_tl
   \l_dlichti_phone_print_tl
 }
\cs_new_protected:Nn \dlichti_phone_href:nnn
 {
  \href{tel#1#2}{#3}
 }
\cs_generate_variant:Nn \dlichti_phone_href:nnn { VVV }

\ExplSyntaxOff

\begin{document}

\phone{01 23 45 67 89}

\phone{0123456789}

\end{document}