LWP | 同じに見えるのに一致しない？ 見えない文字を調べよう

Copyright © 2026 LWP 山中 一弘

本資料は、出典を明記いただければ、商用・非商用を問わず、ご自由に複製・改変・再配布していただけます。なお、著作権表示は改変せず、そのまま記載してご利用くださいますようお願いいたします。

文字比較の記事をまとめているワカサギさんが、シャケモンへ相談します。画面では同じように見えるのに、比較すると違うと出る文字列があるのです。中の文字を表示してみると、原因だけでなく、調べ方にも条件があることが分かってきました。途中からアユさんも加わります。

会話と場面は架空の説明例です。対象はWindows版Excel VBAとTakiLib 3.5.4。図の文字列は仕組みを示す模式図であり、実際の画面表示はソフトやタブ幅によって変わります。

空いている部分が普通のスペースなのか、タブなのか。見た目だけでは判別しにくいことがあります。違いを直そうとする前に、入力に何が含まれているかを確かめます。

図1｜空いて見える場所にも、文字が含まれている。

`A`、タブ、`B`の順に並ぶ文字列を、`textHiddenCharToHex`で観察します。囲みを`[]`と指定すると、タブが`[0x09]`に置き換わり、位置を読み取れます。`0x`は、ここでは16進数を示すための表示です。

図2｜今回の基本例は、タブ1文字の可視化。

`[0x09]`は、元のタブそのものではありません。人が読むための複数の文字です。観察用の表示を元データへ戻すと、中身が変わります。元データは残し、確認用の結果を別の場所に置きます。

図3｜可視化は観察の手段。修復や復元を保証する処理ではない。

CRとLFは、それぞれ異なる制御文字です。CRLFは2文字の並びです。TakiLibの`textCanonicalNewline`は、CRLFと単独CRをLFへそろえます。どの並びをどの形式へ変えるかを明確にして使います。

図4｜この処理でそろえる先はLF。

CRLFのCRだけを先にLFへ変えると、もともとのLFも残り、LFLFになります。現行実装はCRLFの組を先に1つのLFへ置換し、その後に残った単独CRをLFへ変えています。

図5｜複合した並びを先に扱うことで、改行の二重化を防ぐ。

この可視化関数は、不可視文字の一覧を調べているわけではありません。現行実装では`AscW`の値が`&H20`（10進数の32）以上なら、その文字をそのまま返します。普通のスペース、NBSP（改行しないスペース）、ゼロ幅スペースは、この記事の処理では可視化されず残る例です。

図6｜「この例で見つかった」を「全部見つかる」へ広げない。

逆に、見える文字が置換側へ入る場合もあります。Windows VBAで全角の`Ａ`（U+FF21）を`AscW`へ渡すと、符号付き16ビット値の`-223`になります。負の値は32以上という条件を満たさないため、この関数では置換側へ進みます。文字の見た目を判定した結果ではありません。

図7｜図のＡは半角Aではなく、全角Ａ。

置換側では、16進表記の末尾2桁を使います。全角`Ａ`の例でも末尾の`21`だけが表示に使われ、既定の囲みなしでは`0x21`になります。この短い表示だけを見て、元の文字や文字コードを特定することはできません。

図8｜0x21という表示を、元の文字コードそのものだと解釈しない。

改善を考えるなら、符号付きの値を符号なしとして扱う処理と、どの文字を可視化の対象にするかという分類を分けます。たとえば`AscW(xch) And &HFFFF&`という符号なし化だけで、すべての不可視文字を検出できるようになるわけではありません。

図9｜今回は改善の考え方まで。ライブラリ本体は変更しない。

見た目が同じでも、文字の並びは違うことがあります。可視化はその観察に役立ちますが、表示結果を元データへ上書きせず、検出範囲と情報の欠落も確かめます。改行をそろえるときも、置換する順番まで含めて処理を理解することが大切です。

TakiLib 3.5.4の`textHiddenCharToHex`は、各文字の`AscW`値を調べて表示を作ります。`a_quote:="[]"`なら、可視化した箇所だけを角括弧で囲みます。`a_alt_char`を省略した例では16進表記を使います。

`textCanonicalNewline`は、まずCRLFをLFへ置換し、次に残ったCRをLFへ置換します。可視化関数と組み合わせると、実際の改行を画面に出す代わりに、その並びを記号で確認できます。

Option Explicit

Public Sub Test_Main()

    Dim s As String

    s = "A" & vbTab & "B"

    Debug.Print taki3lib.textHiddenCharToHex(s, a_quote:="[]")

    s = taki3lib.textCanonicalNewline("A" & vbCrLf & "B")

    Debug.Print taki3lib.textHiddenCharToHex(s, a_quote:="[]")

    s = ChrW(&HFF21&)

    Debug.Print AscW(s)

    Debug.Print taki3lib.textHiddenCharToHex(s)

End Sub

xcode = AscW(xch)

Select Case True

    Case xcode >= &H20

        xtmp = xtmp & xch

    Case XC_IS_ALT_MISSING

        xtmp = xtmp & textFormat("{}0x{}{}", _

            xquote1, Right("0" & Hex(xcode), 2), xquote2)

    Case Else

        xtmp = xtmp & textFormat("{}{}{}", _

            xquote1, a_alt_char, xquote2)

End Select

Public Function textCanonicalNewline(a_text)

    If TK3_ASSERT Then _

        Call langAssert(hasCStrAffinity(a_text), TK3_ERROR_ARGUMENT)

    Dim x_text:

        x_text = Replace(a_text, vbCrLf, vbLf)

    textCanonicalNewline = Replace(x_text, vbCr, vbLf)

End Function

• 元ネタ：TK-050「見えない文字を見えるようにする」（2026年9月9日構成再精査）。

• TakiLib公開安定版3.5.4：`textHiddenCharToHex`、`textCanonicalNewline`。2026年9月27日に公開版と該当ソースを確認。

• Microsoft Learn「Asc function」。AscWのUnicode文字コードに関する説明を参照。2026年9月27日確認。

Copyright © LWP 山中 一弘 |