我目前正在扫描一堆手写文档并将其转换为.txt文件。由于我的笔迹很差，所以.jpg-> .txt转换器会将我的变音符号转换为“正常”字母，'

任务

编写程序或函数以：

• 给一个字符串
  • 您可以选择任何I / O代码页，只要
    • 它支持字符AEIOUaeiouÄËÏÖÜäëïöü'。
      • 禁止合并变音符号
    • 输入和输出代码页相同。
  • 输入（在空格旁边）将仅包含代码页中的可打印字符。
    • 只有一种解决方案，因此'a'e'不会出现
• 将以下集合中的所有字符转换AEIOUaeiou为ÄËÏÖÜäëïöü
  • 当且仅当它们被'字符包围：
    • 范例：'a''e' -> äë
  • 如果from字符串是单个字母。
    • 例如，'AE'根本不改变，照原样输出。
  • 如果源字符不是该字符之外的AEIOUaeiou字符，则不会更改。

注意：from字符/ from字符串是之间的一个'。

测试用例

Input
Output
<empty line>

'A'sthetik
Ästhetik

Meinung ist wichtig!
Meinung ist wichtig!

Ich sagte: "Er sagte: 'Ich habe Hunger'"
Ich sagte: "Er sagte: 'Ich habe Hunger'"

Ich sagte: "Er sagte: ''A'sthetik'"
Ich sagte: "Er sagte: 'Ästhetik'"

Hämisch rieb er sich die H'a'nde
Hämisch rieb er sich die Hände

H'a''a'slich isn't a German word
Hääslich isn't a German word

since it's really called h'a'sslich
since it's really called hässlich

JavaScript（ES6），81 70 68字节

s=>s.replace(/'[aeiou]'/gi,c=>"ï   ÖÄöä ËÜëüÏ "[c.charCodeAt(1)%15])

尝试一下

f=
s=>s.replace(/'[aeiou]'/gi,c=>"ï   ÖÄöä ËÜëüÏ "[c.charCodeAt(1)%15])
i.addEventListener("input",_=>o.innerText=f(i.value))
console.log(f("'A'sthetik")) // Ästhetik
console.log(f("Meinung ist wichtig!")) // Meinung ist wichtig!
console.log(f(`Ich sagte: "Er sagte: 'Ich habe Hunger'"`)) // Ich sagte: "Er sagte: 'Ich habe Hunger'"
console.log(f(`Ich sagte: "Er sagte: ''A'sthetik'"`)) // Ich sagte: "Er sagte: 'Ästhetik'"
console.log(f("Hämisch rieb er sich die H'a'nde")) // Hämisch rieb er sich die Hände
console.log(f("H'a''a'slich isn't a German word")) // Hääslich isn't a German word
console.log(f("since it's really called h'a'sslich")) // since it's really called hässlich

<input id=i><pre id=o>

说明

• s=> 通过参数“ s”将输入字符串作为参数的匿名函数。
• s.replace(x,y) 返回以“ x”替换为“ y”的字符串。
• /'[aeiou]'/gi 不区分大小写的正则表达式，与所有出现在单引号中的元音匹配。
• c=> 通过参数“ c”将正则表达式的每个匹配项传递给匿名函数。
• "ï ÖÄöä ËÜëüÏ "[n]返回字符串“ïÖÄööäËÜÜüüÏ”中的第n个字符（索引为0），类似于"ï ÖÄöä ËÜëüÏ ".charAt(n)。
• c.charCodeAt(1)%15 当除以15时，获取“ c”中第二个字符（即元音字符）的其余字符代码。

替代方案中，52分之40 36/48字节（四十七分之三十五字符）

以下是我在禁止使用变音符号之前的回答（嘘声！）-在此提琴中可以更好地查看

s=>s.replace(/'([aeiou])'/gi,"$1̈")

但是，ETHproductions建议在添加.normalize()额外的12个字节后这将是有效的。

s=>s.replace(/'([aeiou])'/gi,"$1̈").normalize()

Perl 5、25个字节

s/'(\w)'/chr 1+ord$1/age

24个字节，加上1 -pe代替-e

这利用了“您可以选择任何I / O代码页，只要它支持字符AEIOUaeiouÄËÏÖÜäëïöü'”的规则。它还利用了正则/a表达式上的标志，无论使用哪种编码方式，都\w可以精确地引用字符abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789。

我的脚本选择的I / O代码页是这样的：

 1  a
 2  ä
 3  e
 4  ë
 5  i
 6  ï
 7  o
 8  ö
 9  u
10  ü
11  A
12  Ä
13  E
14  Ë
15  I
16  Ï
17  O
18  Ö
19  U
20  Ü
21  '

（我无法在问题的测试用例中测试此脚本，因为它们包含一些非常奇怪的字符，例如t。）

感谢Grimy为我节省了三个字节。早先，我有s/'([a-z])'/chr 1+ord$1/gie，它利用了（编码和）有趣的事实，无论编码如何[a-z]，Perl 中都特意对此进行了精确匹配abcdefghijklmnopqrstuvwxyz。我较早的回答是，IMO更有趣，但是这个简短一些，所以，我会接受的。

Vim，33个字节

:s/\c'\([aeiou]\)'/<C-v><C-k>\1:/g
ii<esc>D@"

在线尝试！在向后兼容的V解释器中。

Japt，29个字节

r"'%v'"@"ï   ÖÄöä ËÜëüÏ "gXc1

在线尝试！

说明

r"'%v'"@"ï   ÖÄöä ËÜëüÏ "gXc1

r"'%v'"@                       // Replace each match X of /'<vowel>'/ in the input with
        "ï   ÖÄöä ËÜëüÏ "g     //   the character in this string at index
                          Xc1  //     X.charCodeAt(1).
                               //   Values larger than the length of the string wrap around,
                               //   so this is effectively equal to " ... "[n%15].
                               // Implicit: output result of last expression

Javascript，67个字节

s=>s.replace(/'.'/g,c=>"äëïöüÄËÏÖÜ"['aeiouAEIOU'.indexOf(c[1])]||c)

在线尝试！

用引号之间的所有字符替换为相应的变音字符，或者如果匹配项不在需要更改的字符组中，则替换为匹配项本身。

果冻，36 字节

œṣ⁹Ṫ¤j
“.ạẏụ’D196;+\Ọż⁾''jЀØc¤;@Wç/

在线尝试！

对于果冻来说，这似乎很复杂！

怎么样？

注意：由于字符不在代码页上，而是在Unicode的一个字节范围内，所以我认为它们必须由普通字符创建。

œṣ⁹Ṫ¤j - Link 1, Replace: char list S [...], list R [char T, char list F]
œṣ     - split S at sublists equal to:
    ¤  -   nilad followed by link(s) as a nilad:
  ⁹    -     link's right argument, R
   Ṫ   -     tail - yield char list F and modify R to become [T]
     j - join with R (now [T])
       - all in all split S at Rs and join back up with [T]s.

“.ạẏụ’D196;+\Ọż⁾''jЀØc¤;@Wç/ - Main link: char list S
       196;                   - 196 concatenate with:
“.ạẏụ’                        -   base 250 literal 747687476
      D                       -   to decimal list [7,4,7,6,8,7,4,7,6]
           +\                 - cumulative reduce with addition: [196,203,207,214,220,228,235,239,246,252]
             Ọ                - cast to characters: ÄËÏÖÜäëïöü
                       ¤      - nilad followed by link(s) as a nilad:
               ⁾''            -   literal ["'", "'"]
                     Øc       -   vowel yield: AEIOUaeiou
                  jЀ         -   join mapped:  ["'A'", "'E'", ...]
              ż               - zip together
                          W   - wrap S in a list
                        ;@    - concatenate (swap @rguments)
                           ç/ - reduce with last link (1) as a dyad
                              - implicit print

V，24字节

Óã'¨[aeiou]©'/±:
éiD@"

在线尝试！

十六进制转储：

00000000: d3e3 27a8 5b61 6569 6f75 5da9 272f 160b  ..'.[aeiou].'/..
00000010: b13a 0ae9 6944 4022                      .:..iD@"

这只是我vim答案的直接翻译，以便我可以打败所有高尔夫语言。：P

红宝石，62 + 1 = 63字节

使用-p+1字节的标志。

gsub(/'([aeiou])'/i){$1.tr"AEIOUaeiou","ÄËÏÖÜäëïöü"}

在线尝试！

///，67字节

/~/'\///`/\/\/~/'A~Ä`E~Ë`I~Ï`O~Ö`U~Ü`a~ä`e~ë`i~ï`o~ö`u~ü/

在线尝试！

这是通过用单点引号（'A'）代替由单引号（）包围的非点缀字母（与点号相同Ä）来实现的。单个可替代的，这看起来像这样（高尔夫前）： /'A'/Ä/。

高尔夫有两次常见的事件，//和'/，并将它们用作替代。

迅捷-201字节

import Foundation;func g(s:String){var e=s;var r="aeiouAEIOUäëïöüÄËÏÖÜ".characters.map{String($0)};for i in r[0...9]{e=e.replacingOccurrences(of:"'\(i)'",with:r[r.index(of:i)!+10])};print(e)}

用法： g("'A'sthetik") // => Ästhetik

APL（Dyalog），53字节

(v←'''[AEIOUaeiou]''')⎕R{'  ÄËÏÖÜäëïöü'[v⍳2⊃⍵.Match]}

在线尝试！

使用PCRE R eplace（将RegEx保存为v）将以下功能应用于带引号的元音：

{ 匿名功能

 ' ÄËÏÖÜäëïöü'[…用以下方式] 索引字符串（注意与对应的两个空格'[）：

  ⍵.Match 匹配的字符串

  2⊃ 选择第二个字母（元音）

  v⍳ 在v中找到索引

}

AWK，99字节

{split("AEIOUaeiou",p,"")
for(i=1;i<=split("ÄËÏÖÜäëïöü",r,"");i++)gsub("'"p[i]"'",r[i])}1

在线尝试！

我试图在内想出一些聪明的正则表达式，gensub但失败了:(

SOGL，43 35（UTF-8）字节

L∫:ÆW ':h++;"äëïöü”:U+Wŗ

说明：

L∫                        repeat 10 times, pushing current iteration (0-based)
  :                       duplicate the iteration
   ÆW                     get the index (1-based) in "aeiouAEIOU"
      ':h++               quote it
           ;              put the copy (current iteration) ontop
            "äëïöü”       push "äëïöü"
                   :      duplicate it
                    U     uppercase it
                     +    join together, resulting in "äëïöüÄËÏÖÜ"
                      W   get the index (1-based) in it
                       ŗ  replace [in the input, current char from "aeiouAEIOU" with
                          the corresponding char in "äëïöüÄËÏÖÜ"

05AB1E，30 29 24字节

-6字节归功于Emigna

žMDu«S''«''ì"äëïöü"Du«S:

05AB1E äëïöü的代码页中方便地包含字符。

在线尝试！

（旧代码）

žMDu«Svy''.ø})"äëïöü"Du«¹ŠS:

说明（已过时）：

žM                             Push aeiou                    ['aeiou']
  D                            Duplicate                     ['aeiou', 'aeiou']
   u                           Uppercase                     ['aeiou', 'AEIOU']
    «                          Concatenate                   ['aeiouAEIOU']
     vy                        For each...
       ''                        Push '
         .ø                      Surround a with b (a -> bab)
           }                   End loop
            )                  Wrap stack to array           [["'a'", "'e'", "'i'", "'o'", "'u'", "'A'", "'E'", "'I'", "'O'", "'U'"]]
             "äëïöü"           String literal.               [["'a'", "'e'", "'i'", "'o'", "'u'", "'A'", "'E'", "'I'", "'O'", "'U'"], 'äëïöü']
                    Du«        Duplicate, uppercase, concat  [["'a'", "'e'", "'i'", "'o'", "'u'", "'A'", "'E'", "'I'", "'O'", "'U'"], 'äëïöüÄËÏÖÜ']
                       ¹       Push first input
                        Š      Push c, a, b                  ["'A'sthetik", ["'a'", "'e'", "'i'", "'o'", "'u'", "'A'", "'E'", "'I'", "'O'", "'U'"], 'äëïöüÄËÏÖÜ']
                          S    Convert to char list          ["'A'sthetik", ["'a'", "'e'", "'i'", "'o'", "'u'", "'A'", "'E'", "'I'", "'O'", "'U'"], ['ä', 'ë', 'ï', 'ö', 'ü', 'Ä', 'Ë', 'Ï', 'Ö', 'Ü']]
                           :   Replace all                   ['Ästhetik']
                               Implicit print

在线尝试！

蟒3.6，98 92个字符

import re;a=lambda i,p="'([AEIOUaeiou])'":re.sub(p,lambda x:'ÄËÏÖÜäëïöü'[p.index(x[1])-3],i)

这是一个功能，而不是完整的程序。

格式化以提高可读性：

import re

a = lambda i, p="'([AEIOUaeiou])'":\
    re.sub(p, lambda x: 'ÄËÏÖÜäëïöü'[p.index(x[1]) - 3], i)

感谢@ValueInk提供了进一步打高尔夫球的聪明技巧。

视网膜，39字节

iT`A\EI\OUaei\ou'`ÄËÏÖÜäëïöü_`'[aeiou]'

在线尝试！