Latex - 对字符串中的每个字符应用操作

Question

我正在使用 LaTeX，但在字符串操作方面遇到问题。 我想要对字符串的每个字符应用一个操作，特别是 我想用“\discretionary{}{}{}x”替换每个字符“x”。我想做 这是因为我有一个很长的字符串（DNA），我希望能够在 任何没有连字符的点。

因此，我想要一个名为“myDNA”的命令来为我做这件事，而不是 在每个字符后手动插入 \discretionary{}{}{} 。

这可能吗？我浏览过网络并没有太多帮助 关于这个主题的信息（至少没有我能理解的），我希望 你可以帮忙。

- 编辑 澄清一下： 我想在完成的文档中看到的是这样的：

    the dna sequence is CTAAAGAAAACAGGACGATTAGATGAGCTTGAGAAAGCCATCACCACTCA
    AATACTAAATGTGTTACCATACCAAGCACTTGCTCTGAAATTTGGGGACTGAGTACACCAAATACGATAG
    ATCAGTGGGATACAACAGGCCTTTACAGCTTCTCTGAACAAACCAGGTCTCTTGATGGTCGTCTCCAGGT
    ATCCCATCGAAAAGGATTGCCACATGTTATATATTGCCGATTATGGCGCTGGCCTGATCTTCACAGTCAT
    CATGAACTCAAGGCAATTGAAAACTGCGAATATGCTTTTAATCTTAAAAAGGATGAAGTATGTGTAAACC
    CTTACCACTATCAGAGAGTTGAGACACCAGTTTTGCCTCCAGTATTAGTGCCCCGACACACCGAGATCCT
    AACAGAACTTCCGCCTCTGGATGACTATACTCACTCCATTCCAGAAAACACTAACTTCCCAGCAGGAATT

只是简单的换行符，没有任何连字符。 DNA 序列将是一 没有任何空格或任何东西的长字符串，但它可以在任何时候断开。 这就是为什么我的想法是在每个之后插入一个“\discretionary{}{}{}” 字符，以便它可以在任何点断开，而无需插入任何连字符。

Answer 1

这需要一个字符串作为参数，并在每个字符后调用 \discretionary{}{}{} 。输入字符串在第一个美元符号处停止，因此您不应使用它。

\def\hyphenateWholeString #1{\xHyphenate#1$\wholeString}

\def\xHyphenate#1#2\wholeString {\if#1$%
\else\say{#1}\discretionary{}{}{}%
\takeTheRest#2\ofTheString
\fi}

\def\takeTheRest#1\ofTheString\fi
{\fi \xHyphenate#1\wholeString}

\def\say#1{#1}

您可以将其称为 \hyphenateWholeString{CTAAAGAAAACAGGACG}。

如果您更喜欢（并且处于乳胶环境中），您也可以尝试 \hspace{0pt}，而不是 \discretionary{}{}{}。为了对齐右边距，我认为您需要做一些更多的微调（但见下文）。当然，通过使用固定宽度的字体可以最大限度地减少这种影响。

修订：

\def\hyphenateWholeString #1{\xHyphenate#1$\wholeString\unskip}

\def\xHyphenate#1#2\wholeString {\if#1$%
\else\transform{#1}%
\takeTheRest#2\ofTheString\fi}

\def\takeTheRest#1\ofTheString\fi
{\fi \xHyphenate#1\wholeString}

\def\transform#1{#1\hskip 0pt plus 1pt}

史蒂夫建议使用\hskip对我来说听起来是一个非常好的主意，所以我做了一些更正。请注意，我已重命名 \say 宏，并使其更有用，因为它现在实际上执行转换。 （但是，如果您从 \transform 中删除 \hskip，您还需要删除主宏定义中的 \unskip。

---

编辑：

还有seqsplit< /a> 包似乎是为打印 DNA 数据或长数字而设计的，它们还提供了一些更好的输出选项，所以也许这就是您正在寻找的......

Answer 2

Debilski 的帖子绝对是一种可靠的方法，尽管 \say 不是必需的。下面是使用一些 LaTeX 内部快捷方式（\@gobble 和 \@ifnextchar）的更短方法：

\makeatletter
\def\hyphenatestring#1{\xHyphen@te#1$\unskip}
\def\xHyphen@te{\@ifnextchar${\@gobble}{\sw@p{\hskip 0pt plus 1pt\xHyphen@te}}}
\def\sw@p#1#2{#2#1}
\makeatother

注意使用 \hskip 0pt plus 1pt 而不是 \discretionary - 当我尝试你的示例时，我最终得到了参差不齐的边距，因为没有可拉伸性。 \hskip 在每个字符之间添加一些可拉伸的粘合（然后 \unskip 取消我们添加的额外粘合）。另请注意，LaTeX 样式约定“最终用户”宏都是小写的，而内部宏在某处有一个 @ ，这样用户就不会意外调用它们。

如果你想弄清楚它是如何工作的，\@gobble 只是吃掉它前面的任何东西（在本例中是 $，因为该分支仅在 < code>$ 是下一个字符）。要点是 \sw@p 在“else”分支中仅给出一个参数，因此它将该参数与下一个字符（不是 $）。我们也可以编写 \def\hyphenate#next#1{#1\hskip...\xHyphen@te} 并将其不带任何参数放在“else”分支中，但是（在我看来） \sw@p 更通用（而且我很惊讶它还没有在标准 LaTeX 中）。

Answer 3

CTAN 上有一个 contrib 包，用于处理排版DNA 序列。它的作用不仅仅是断行，例如，它还支持着色。我不确定是否可以获得您想要的输出，而且我在 DNA 序列排版领域没有经验，但是一长串是最可读的表示吗？

Answer 4

1. 假设您的字符串相同，请在序言中使用 \newcommand{}{}。像这样：
   \newcommand{\myDNA}{blah blah blah}

如果这不能满足您的要求，我建议：
2. 将字符串分解为最小的部分，然后使用\newcommand，然后按顺序调用新命令：\myDNA1 \myDNA2。

如果这仍然不起作用，您可能需要考虑编写一个 perl 脚本来满足您的字符串替换需求。