[VB.NET] 特殊文字列の長さとTrimについて

以下の環境で特殊な文字列の長さについて検証してみました。

• Windows XP SP2 (SJIS)
• Visual Studio 2003 の VB.NET

検証用コード

Dim a, msg As Stringa = " "msg &= vbCrLf + "「 」.Trim  = " + Len(a.Trim).ToStringmsg &= vbCrLfa = vbLfmsg &= vbCrLf + "vbLf = " + Len(a).ToStringa = vbCrmsg &= vbCrLf + "vbCr = " + Len(a).ToStringa = vbCrmsg &= vbCrLf + "vbCrL = " + Len(a).ToStringa = vbNullStringmsg &= vbCrLf + "vbNullString = " + Len(a).ToStringa = vbNullCharmsg &= vbCrLf + "vbNullChar = " + Len(a).ToStringa = vbTabmsg &= vbCrLf + "vbTab = " + Len(a).ToStringa = vbBackmsg &= vbCrLf + "vbBack = " + Len(a).ToStringmsg &= vbCrLfa = vbLfmsg &= vbCrLf + "vbLf.Trim = " + Len(a.Trim).ToStringa = vbCrmsg &= vbCrLf + "vbCr.Trim = " + Len(a.Trim).ToStringa = vbCrLfmsg &= vbCrLf + "vbCrLf.Trim = " + Len(a.Trim).ToStringa = vbNullStringIf a Is Nothing Then    msg &= vbCrLf + "vbNullString.Trim Is Nothing"Else    msg &= vbCrLf + "vbNullString.Trim = " + Len(a.Trim).ToStringEnd Ifa = vbNullCharmsg &= vbCrLf + "vbNullChar.Trim = " + Len(a.Trim).ToStringa = vbTabmsg &= vbCrLf + "vbTab.Trim = " + Len(a.Trim).ToStringa = vbBackmsg &= vbCrLf + "vbBack.Trim = " + Len(a.Trim).ToStringReturn msg

結果

「 」.Trim = 0vbLf = 1vbCr = 1vbCrL = 1vbNullString = 0vbNullChar = 1vbTab = 1vbBack = 1vbLf.Trim = 0vbCr.Trim = 0vbCrLf.Trim = 0vbNullString.Trim Is NothingvbNullChar.Trim = 1vbTab.Trim = 0vbBack.Trim = 1

vbNullStringはTrimするとNothingになってしまうことにちょっとオドロキ。
vbNullCharはTrimしても1が残ります。

参考URL：
MSDN:印刷と表示の定数