「カタカナをローマ字表記に変換する」ネタは VBAでよく見かける。数式でも WebAPIの力を借りれば超絶簡単にできる。これをクエリでやってみよう。
単純には置換リストを作って置き換えればいいので、例外処理を除けばそんなに難しい話ではない。ただし、何をおいてもまずは変換リストを作る必要がある。
自分で作ってもいいけど、面倒なら下のコードを新規クエリの詳細エディタにコピー＆ペーストでどうぞ。
変換リスト（ヘボン式基本）
Json.Document(Binary.Decompress(Binary.FromText("bZTNbuJAEITfhXMOZB0n7HG9gB0s2xFgUEhyGP+9Qd4/1Kw187m1F6Qu4Ot2d7k+Plaf38l66lcPq9XXw79qeNLn+HLX3t4bK6debq2cePlPlJMAyQhJAiQjJAmQDJD+V4AcGquKcWitKsQhErrN/wizagizaglrr453Nb9a2T0a2Y2hX47HnuXUy62VEy9HyORX6n7f5UtjVaEvO6sKcXm1qqa7YLgpPEqJmYc0tNs3VlW7/c6qard/tara7SN3dGEXR+xillMvt1ZOvIzhogUK+ih6oKCPogkK+qgLkBqQWU693Fo58TIgjwHyt2isnHq5tXLiZdjmJUBOgMxy6uXWyomXccchQEqabAiQkiYbAqTE47jncPVrY1WhrzurCnGNV3fRkO9wyKAkwKWcanzvc4X5oRpekoveYABlUwaeJs7Ae1bNKFEN3lo1zqj/b3E/zbONvF77uzFXlAeR14u3xUX1Ot1wSs17i7zOLXndZsnrNP8NPO0jB0/9c/DUP2eGqMZV1D9nmCgE4u8n7+tYCo+Q0faRLmoW2eMkB+AN162PeLXV+xj/Pnaq+Y6rBk+3OIKn3TAqtBtmhJ4FHh41fIXfa/oK/TV+BW9o/gre0O4qeE3z4rUcNE/B9FPCMW70PbwhPl7UXvwaXtO+anhN+6qZPKrB075q8DTPGTzt5wye9nM+MYV8/sBtmvAMt2miE9ymCU5wmy50YiL5LALQZxaAPmcA1AQlokQDlEwn1bCvBigRU27hT7dZ+NNpAYA9LezqdJ476usH"), Compression.Deflate))
文字数が多い順に置換するので、50音降順で並べている。
後は新規クエリを作成して入力表を読み込み、一文字ずつ置き換えしてから促音の処理を付け加えればいい。
ローマ字変換（基本）
let
ソース = 入力表,
変換列の追加 = Table.AddColumn(
ソース,
"ローマ字変換",
each List.Accumulate(
変換リスト,
[文字],
(x, y)=> Text.Replace(x, y{0}, y{1})
),
type text
),
変換列の編集 = Table.TransformColumns(
変換列の追加, {"ローマ字変換", each [
位置 = Text.PositionOf(_, "ッ"),
置換 = Text.ReplaceRange(_, 位置, 1, Text.Range(_, 位置+1, 1)),
条件選択 = if 位置=-1 then _ else 置換
][条件選択]
})
in
変換列の編集
単純にはこれでおしまい。後は「『OO』は『O』に変換」のような例外処理を追加していけばいい。ヘボン式なら例外処理は後回しにして、リストを作って置換するだけでいい。
ローマ字変換（ヘボン式）
let
設定 = [
ヘボンA = {{"NB", "MB"}, {"NP", "MP"}, {"NM", "MM"}},
ヘボンB = {{"OO", "O"}},
ヘボンC = {{"OU", "OH"}},
ヘボンD = {{"UU", "U"}},
ヘボンE = {{"CCH", "TCH"}}
],
置換 = (A as list, B as text)=>
List.Accumulate(A, B, (x, y)=> Text.Replace(x, y{0}, y{1})),
ソース = 入力表,
ローマ字変換列の追加 = Table.AddColumn(
ソース,
"ローマ字変換",
each List.Accumulate(
変換リスト,
[文字],
(x, y)=> Text.Replace(x, y{0}, y{1})
),
type text
),
ローマ字変換列の編集 = Table.TransformColumns(
ローマ字変換列の追加, {"ローマ字変換", each [
促音変換 = [
位置 = Text.PositionOf(_, "ッ"),
文字 = Text.Range(_, 位置+1, 1),
置換 = Text.ReplaceRange(_, 位置, 1, 文字),
条件選択 = if 位置=-1 then _ else 置換
][条件選択],
ヘボン設定A = 置換(設定[ヘボンA], 促音変換),
ヘボン設定B = 置換(設定[ヘボンB], ヘボン設定A),
ヘボン設定C = 置換(設定[ヘボンC], ヘボン設定B),
ヘボン設定D = 置換(設定[ヘボンD], ヘボン設定C),
ヘボン設定E = 置換(設定[ヘボンE], ヘボン設定D)
][ヘボン設定E]}
),
列の選択 = Table.SelectColumns(ローマ字変換列の編集, {"ローマ字変換"})
in
列の選択集
訓令式の場合は、「ん」の後に母音（もしくは「Y」）がきた時は「'（アポストロフィ）」を入れる必要があるので「ん」の処理だけ後に回す必要がある。なので訓令式用の変換リストでは「ん」をわざと除いて、置換を後回しにする。
変換リスト（訓令式基本）
Json.Document(Binary.Decompress(Binary.FromText("bZTRbqpQEEX/xefeREup9vESFRoCNoKa2tuHg8Af3P+v+5TMWZz2xWS2umaY2eyPj8W//8lyvC0eFn8Wnw/fZf+kz2F9F9/eD7GcevkUy4mX/wY5MUhGSGKQjJDEIBkgt0eDXAGZ5NTLp1hOvBwg3eZXyCTHkEn+AVl6ebjL+SWW3SqS3WAtc7Sc5NTLp1hOvBwgo1+se7nL50OsCn3exaoQ59dY1XRnDDfao5SYuU+t3f4Qq2q338Wq2u1fY1Xt9oE7ONvFEbuY5NTLp1hOvIzhghEKuikYoaCbghEKuqkzSE03dQap6abOIDUhK4O0hKwM0hKyMkhLN60N0tCSa4M0tOTaIA0grjdISZP1Bilpst4gJSHPdvXLIVaFvuxiVYhLuLoLhnyHQ3rlAS7lVON7ny5MEdXwklz0BgMoojLwNHEG3rNqBopq8JaqcUb9f4v7aZ5t4N18LjBbVAfeTbwtLqrX6YpTat5r4HVuzus2c16n+a/gaR85eOqfg6f+OTNENa6i/jnDRCEQfj+Kh1TRuhEnogfYMOrkeKV13CPeZTU7hr8PnWq+1KrB0/KP4GkZzAYtg6Gg4WHaQcNX+L2mr9Bf41cwg+avYAYtq4K5NG8Bc2megnGnmvmiGmYQv4C5xK9hLu2rhrm0r5pRoxo87asGT/O04Gk/LXjaT8vUUQ1zab4W5tI8Dcyl/g3Mpfs0DCDV4PmEAs+nCnjqXyI41L9kFqmGWdW/RCi5mTndZmZOp6cH7GnmVafb3FGfXw=="), Compression.Deflate))
他はやることは同じで変換する内容が違ってくるだけ。長音がある時は「̂（サーカムフレックス）」を入れるルールがあるけど、これもリストの置換で問題なし。
ローマ字変換（訓令式）
let
設定 = [
訓令A = {
{"ん", "ン"}, {"ンA", "N'A"}, {"ンI", "N'I"}, {"ンU", "N'U"},
{"ンE", "N'E"}, {"ンO", "N'O"}, {"ンY", "N'Y"}, {"ン", "N"}
},
訓令B = {
{"A-", "Â"}, {"I-", "Î"}, {"U-", "Û"},
{"E-", "Ê"}, {"O-", "Ô"}
},
訓令C = {{"Î", "II"}}
],
置換 = (A as list, B as text)=>
List.Accumulate(A, B, (x, y)=> Text.Replace(x, y{0}, y{1})),
ソース = 入力表,
ローマ字変換列の追加 = Table.AddColumn(
ソース,
"ローマ字変換",
each List.Accumulate(
変換リスト,
[文字],
(x, y)=> Text.Replace(x, y{0}, y{1})
),
type text
),
ローマ字変換列の編集 = Table.TransformColumns(
"ローマ字変換", each [
促音変換 = [
位置 = Text.PositionOf(_, "ッ"),
文字 = Text.Range(_, 位置+1, 1),
置換 = Text.ReplaceRange(_, 位置, 1, 文字),
条件選択 = if 位置=-1 then _ else 置換
][置換],
訓令設定A = 置換(設定[訓令A], 促音変換),
訓令設定B = 置換(設定[訓令B], 訓令設定A),
訓令設定C = 置換(設定[訓令C], 訓令設定B)
][訓令設定C]}
),
列の選択 = Table.SelectColumns(ローマ字変換列の編集, {"ローマ字変換"})
in
列の選択集
以上。必要か分からない設定は分けてあるので、いらなければレコードの処理から設定を抜けばいい。設定用のテーブルを別に作って、切り替えできるように作ってもいいと思う。
