[Excel][Power Query] TextToListEx()：Text.ToList()でサポートされていないサロゲートペアや異体字セレクタに簡易的に対応した関数

0.README.md

[Excel][Power Query] TextToListEx()：Text.ToList()でサポートされていないサロゲートペアや異体字セレクタに簡易的に対応した関数

Text.ToList()は文字列を文字のListに変換するPower Query M関数ですが、サロゲートペアや異体字セレクタには対応していないようです。
これらに簡易的に対応した関数(TextToListEx)を試作してみました（関連ツイート）。
（え、結合文字？ 知らない子ですね……）

ソースコード

• TextToListEx

TextToListEx

(SpecifiedText as text) =>
	let 
		ResultCharList = List.Accumulate(
			Text.ToList(SpecifiedText),
			[charlist={}, stackchar=""],
			(state, char) => [
				last_stackchar = state[stackchar],
				charcode = try Character.ToNumber(char),
				is_surrogate_start = charcode[HasError] and last_stackchar = "",
				newchar = last_stackchar & char,
				newcharcode =  try Character.ToNumber(newchar) otherwise 0,
				is_variant_selector = 0xE0100 <= newcharcode and newcharcode <= 0xE01EF,
				last_charlist = state[charlist],
				charlist = if is_variant_selector
					then List.ReplaceRange(last_charlist, List.Count(last_charlist)-1, 1, {List.Last(last_charlist) & newchar})
					else (if is_surrogate_start then last_charlist else (last_charlist & {newchar})),
				stackchar = if is_surrogate_start then char else ""
			]
		)[charlist]
	in 
		ResultCharList