☰

如何使用宏的結果而不是宏本身？

tag-icon • tag-icon urls accents
如何使用宏的結果而不是宏本身？

我想使用巨集的結果（刪除名為 的字串變數的重音字元），保存在 url 中\name名為 的變數中。\nameSA我認為我可以\nameSA像使用原始變數一樣直接在 url 參數中使用\name，但是 url 看到的是巨集而不是巨集的結果。您能告訴我如何保存和重複使用巨集的結果而不是巨集本身嗎？我搜尋並嘗試了不同的選項，但沒有成功...

這是代碼：

\documentclass[11pt]{article}

\usepackage{luatextra}
\usepackage[french]{babel}
\usepackage[pdfencoding=unicode,breaklinks=true,hyperindex,colorlinks=true,linkcolor=black,urlcolor=blue]{hyperref}
\usepackage{xstring}

%This is the macro to delete accents in a string
\makeatletter
\def\delaccent[#1]#2{% #1=liste des substitutions
\begingroup
\expandarg\exploregroups\edef\temp{#2}%
\delaccent@i#1\delaccent@i\delaccent@i
\expandafter\temp\endgroup}
\def\delaccent@i#1#2{\ifx\delaccent@i#1\else\StrSubstitute\temp{\noexpand#1}{\noexpand#2}[\temp]\expandafter\delaccent@i\fi}
\makeatother

% I define a string with accentuated characters and I use the previous macro to delete accents.
\newcommand{\name}{énergie}
\newcommand\nameSA{\delaccent[{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}]{\name}}

\begin{document}
Name with accents : \name

Name without accent : \nameSA % --> Works fine

URL with accents : \url{https://www.\name.com} --> Works fine

URL without accent : \url{https://www.\nameSA.com} %--> Did not work (compilation failed)
\end{document}

預先感謝您的幫助 ！

答案1

我提出了一種不同的策略，因為\url無法在列印名稱之前執行所有替換，也為了提高效率。

\documentclass[11pt]{article}

\usepackage{luatextra}
\usepackage[french]{babel}
\usepackage{xstring}
\usepackage{hyperref}

\makeatletter
\newcommand{\delaccent}[3][]{% #1=liste des substitutions
  \begingroup
  \expandarg\exploregroups\edef\temp{#3}%
  \delaccent@i#2\delaccent@i\delaccent@i
  \if\relax\detokenize{#1}\relax
    \temp
    \expandafter\endgroup
  \else
    \edef\x{\endgroup\noexpand\newcommand\noexpand#1{\temp}}%
    \expandafter\x
  \fi
}
\def\delaccent@i#1#2{%
  \ifx\delaccent@i#1%
  \else
    \StrSubstitute\temp{\noexpand#1}{\noexpand#2}[\temp]%
  \expandafter\delaccent@i
 \fi
}
\makeatother

\newcommand{\declarestring}[3]{%
  \newcommand{#1}{#3}%
  \delaccent[#2]{{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}}{#3}%
}


\declarestring{\name}{\nameSA}{Michaël}

\begin{document}

Name : \name

Try 1 : \delaccent{{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}}{Michaël}

Try 2 : \delaccent{{à}{a}{é}{e}{è}{e}{ë}{e}{ê}{e}{ï}{i}{ô}{o}{ù}{u}}{\name}

Try 3 : \nameSA


Name with accents : \name

Name without accent : \nameSA % --> Works fine

URL with accents : \url{https://www.\name.com}

URL without accent : \url{https://www.\nameSA.com}

\end{document}

因此\definestring定義了“普通”字串和“無重音”字串。

請注意，重新設計的版本\delaccent有一個可選參數，可以包含巨集名稱，該名稱將被定義為「去重音」字串；如果沒有可選參數，則列印“非重音”字串。

在此輸入影像描述

不同的實現，可能有更好的替換語法：

\documentclass[11pt]{article}

\usepackage{luatextra}
\usepackage[french]{babel}
\usepackage{xparse,l3regex}
\usepackage{hyperref}

\ExplSyntaxOn
\NewDocumentCommand{\delaccent}{omm}
 {
  \IfNoValueTF{#1}
   {
    \nezluge_delaccent:nnn { #2 } { #3 } { \tl_use:N }
   }
   {
    \nezluge_delaccent:nnn { #2 } { #3 } { \tl_set:NV #1 }
   }
 }

\NewDocumentCommand{\declarestring}{mmm}
 {
  \tl_set:Nx #1 { #3 }
  \delaccent [ #2 ] { à/a, é/e, è/e, ë/e, ê/e, ï/i, ô/o, ù/u } {#3}
}

\tl_new:N \l__nezluge_delaccent_string_tl

\cs_new_protected:Nn \nezluge_delaccent:nnn
 {
  \tl_set:Nx \l__nezluge_delaccent_string_tl { #2 }
  \clist_map_inline:nn { #1 }
   {
    \__nezluge_delaccent_replace:n { ##1 }
   }
  #3 \l__nezluge_delaccent_string_tl
 }

\cs_new_protected:Nn \__nezluge_delaccent_replace:n
 {
  \__nezluge_delaccent_replace_aux:w #1 \q_stop
 }

\cs_new_protected:Npn \__nezluge_delaccent_replace_aux:w #1 / #2 \q_stop
 {
  \regex_replace_all:nnN { #1 } { #2 } \l__nezluge_delaccent_string_tl
 }

\ExplSyntaxOff

\declarestring{\name}{\nameSA}{Michaël}

\begin{document}

Name : \name

Try 1 : \delaccent{à/a, é/e, è/e, ë/e, ê/e, ï/i, ô/o, ù/u}{Michaël}

Try 2 : \delaccent{à/a, é/e, è/e, ë/e, ê/e, ï/i, ô/o, ù/u}{\name}

Try 3 : \nameSA


Name with accents : \name

Name without accent : \nameSA % --> Works fine

URL with accents : \url{https://www.\name.com}

URL without accent : \url{https://www.\nameSA.com}

\end{document}

輸出是相同的。

相關內容