☰

自動下標和上標

tag-icon • tag-icon macros
自動下標和上標

我想定義一個命令，將其參數的第一個字母列印為上標，將最後兩個字母列印為下標。所以如果我輸入：

\mynewcommand{abcde}

它應該做同樣的事情

\textsuperscript{a}bc\textsubscript{de}

這樣的命令可以節省我幾個小時的時間，但我不知道該怎麼做

編輯：抱歉，我可能不清楚，中間的部分可以是一切。因此，只有第一個字母應該是上標，最後兩個字母應該是下標。

我需要的是：

\anothernewcommand{a some text that can contain \textit{other commands} cd}

哪個應該做同樣的事情

\textsuperscript{a} some text that can contain \textit{other commands} \textsubscript{cd}

答案1

我相信這樣的語法\mynewcommand{a}{bc}{de}會更清晰。無論如何，我可以提供兩種實作方式，它們在處理上標之後和下標之前的空格方面有所不同。隨你挑選。

\documentclass{article}

%\usepackage{xparse} % not needed for LaTeX 2020-10-01

\ExplSyntaxOn
\NewDocumentCommand{\mynewcommandA}{m}
 {
  \textsuperscript{\tl_range:nnn { #1 } { 1 } { 1 } }
  \tl_range:nnn { #1 } { 2 } { -3 }
  \textsubscript{\tl_range:nnn { #1 } { -2 } { -1 } }
 }

\NewDocumentCommand{\mynewcommandB}{m}
 {
  \tl_set:Nn \l_tmpa_tl { #1 }
  \tl_replace_all:Nnn \l_tmpa_tl { ~ } { \c_space_tl }
  \textsuperscript{\tl_range:Nnn \l_tmpa_tl { 1 } { 1 } }
  \tl_range:Nnn \l_tmpa_tl { 2 } { -3 }
  \textsubscript{\tl_range:Nnn \l_tmpa_tl { -2 } { -1 } }
}
\ExplSyntaxOff

\begin{document}

\textbf{Leading and trailing spaces are not kept}

\mynewcommandA{abcde}

\mynewcommandA{a some text that can contain \textit{other commands} cd}

\bigskip

\textbf{Leading and trailing spaces are kept}

\mynewcommandB{abcde}

\mynewcommandB{a some text that can contain \textit{other commands} cd}

\end{document}

在此輸入影像描述

更多資訊。該函數\tl_range:nnn接受三個參數，其中第一個是一些文本，第二個和第三個是指定要提取範圍的整數； so{1}{1}提取第一項（也可以是\tl_head:n，但為了一致性，我使用了更複雜的函數），而{-2}{-1}指定最後兩項（使用負索引，提取從末尾開始）；{2}{-3}指定從右邊數第二項到第三項的範圍。

但是，為了在提取部分的邊界保留空格，我們必須先將空格替換為\c_space_tl，這將擴展為空格，但不會被提取函數修剪。的語法\tl_set:Nnn是相同的，只是第一個參數必須是 tl 變數。

答案2

為了複雜起見，我展示瞭如何在 TeX 原語層級解決這個問題：

\newcount\bufflen

\def\splitbuff #1#2{% #1: number of tokens from end, #2 data
                    % result: \buff, \restbuff
    \edef\buff{\detokenize{#2} }%
    \edef\buff{\expandafter}\expandafter\protectspaces \buff \\
    \bufflen=0 \expandafter\setbufflen\buff\end
    \advance\bufflen by-#1\relax
    \ifnum\bufflen<0 \errmessage{#1>buffer length}\fi
    \ifnum\bufflen>0 \edef\buff{\expandafter}\expandafter\splitbuffA \buff\end
    \else \let\restbuff=\buff \def\buff{}\fi
    \edef\tmp{\gdef\noexpand\buff{\buff}\gdef\noexpand\restbuff{\restbuff}}%
    {\endlinechar=-1 \scantokens\expandafter{\tmp}}%
}

\def\protectspaces #1 #2 {\addto\buff{#1}%
    \ifx\\#2\else \addto\buff{{ }}\afterfi \protectspaces #2 \fi}  
\def\afterfi #1\fi{\fi#1}
\long\def\addto#1#2{\expandafter\def\expandafter#1\expandafter{#1#2}}

\def\setbufflen #1{%
    \ifx\end#1\else \advance\bufflen by1 \expandafter\setbufflen\fi}

\def\splitbuffA #1{\addto\buff{#1}\advance\bufflen by-1
    \ifnum\bufflen>0 \expandafter\splitbuffA
    \else \expandafter\splitbuffB \fi
}
\def\splitbuffB #1\end{\def\restbuff{#1}}

% --------------- \mynewcommand implementation:

\def\textup#1{$^{\rm #1}$}  \def\textdown#1{$_{\rm #1}$}
\def\mynewcommand#1{\mynewcommandA#1\end}
\def\mynewcommandA#1#2\end{%
   \textup{#1}\splitbuff 2{#2}\buff \textdown{\restbuff}}

% --------------- test:

\mynewcommand{abcde}

\mynewcommand{a some text that can contain {\it other commands} cd}

\bye

答案3

為了多樣化，這裡有一個基於 LuaLaTeX 的解決方案。它設定了一個 Lua 函數，而該函數string.sub利用Lua 的字串函數string.len來完成其任務。它還設定了一個名為 的 LaTeX「包裝」宏\mynewcommand，該宏在將其參數傳遞給 Lua 函數之前將其參數展開一次。

該解決方案實際上使用了 Lua 字串函數 和 的變體unicode.utf8.sub，unicode.utf8.len以允許 的參數為\mynewcommand任何有效的 utf8 編碼字元字串。 （當然，為了列印字串中的字符，必須載入適當的字體\mynewcommand。

在此輸入影像描述

% !TEX TS-program = lualatex
\documentclass{article}
\usepackage{luacode} % for "\luaexec" and "\luastringO" macros
\luaexec{
% Define a Lua function called "mycommand"
function mycommand ( s )
   local s1,s2,s3
   s1  = unicode.utf8.sub ( s, 1, 1 )
   s2  = unicode.utf8.sub ( s, 2, unicode.utf8.len(s)-2 )
   s3  = unicode.utf8.sub ( s, -2 )
   return ( "\\textsuperscript{" ..s1.. "}" ..s2.. "\\textsubscript{" ..s3.. "}" )
end
}
% Create a wrapper macro for the Lua function
\newcommand\mynewcommand[1]{\directlua{tex.sprint(mycommand(\luastringO{#1}))}}
    
\begin{document}
abcde $\to$ \mynewcommand{abcde}

öçäßüéà $\to$ \mynewcommand{öçäßüéà}

\mynewcommand{a some text that can contain \textit{\textbf{other commands}} cd}
\end{document}

相關內容