C# と VB.NET の質問掲示板

■No59874 (雄山 さん) に返信
> Dim str As String = "あいうえおかきくけこ" & vbCrLf
このデータは、
　1行目 = 「あいうえおかきくけこ」
　2行目 = 「」
ですよね。

> str = System.Text.RegularExpressions.Regex.Replace(str, "\s*$", vbCrLf)
\s*$ は「{空白文字の0回以上の繰り返し}{行末}」なので、
　1行目 = 「あいうえおかきくけこ{CrLf}」
　2行目 = 「{CrLf}」
に置換されます。すなわち、
> '←strの中身が"あいうえおかきくけこ" & vbCrLf& vbCrLf になっている
ですね。


> Regex.Matchで上記文字列を調べてみると
Match ではなく、Matches を使いましょう。

For Each x As Match In Regex.Matches(str, "\s*$")

■No59881 (shu さん) に返信
> "\s+(\n|$)"
> で

それだと、
　str = "あいうえおかきくけこ" & vbCrLf
　str = "あいうえおかきくけこ" & vbCrLf & vbCrLf
の時は良いけれど、
　str = "あいうえおかきくけこ"
の時に改行が付かなくなってしまうかも。

# 元データが長さゼロの文字列だった場合も改行を付けるのかな?

■No59874 (雄山 さん) に返信
> 文字列の最後に改行(CR+LF)をつけたいのですが、
> もし文字列の最後に改行等を含む空白文字がある場合、
> これらを取り除いてから改行を追加したいと思います。
下記の認識であっていますか? ＞雄山さん

　(0) ""                   → "{CrLf}" もしくは ""
　(1) "ABC"                → "ABC{CrLf}"
　(2) "ABC{CrLf}"          → "ABC{CrLf}"
　(3) "ABC{CrLf}{CrLf}"    → "ABC{CrLf}"
　(4) "ABC{CrLf}XYZ"       → "ABC{CrLf}XYZ{vbCrLf}"
　(5) "ABC{CrLf}XYZ{CrLf}" → "ABC{CrLf}XYZ{vbCrLf}"
　(6) "ABC{CrLf}{CrLf}XYZ" → "ABC{CrLf}{CrLf}XYZ{vbCrLf}"



■No59889 (shu さん) に返信
>>>"\s+(\n|$)"
> "\s*(\n|$)"
> なら大丈夫だと思います。

それだと、"\s*$" の場合と同様に、
>>>>> Dim str As String = "あいうえおかきくけこ" & vbCrLf
が
>>>>> '←strの中身が"あいうえおかきくけこ" & vbCrLf& vbCrLf になっている
になってしまう気がします。

$と\n混在は厳しいですね。また\sが\r,\nを含んでいるので駄目ですね。
ということで、EndsWith(vbCrLf)でなかったらvbCrLfを追加しといてから処理するようにしてみました。

         Dim samples = {"",
                       "あいうえおかきくけこ" & vbCrLf,
                       "あいうえおかきくけこ " & vbCrLf,
                       "あいうえおかきくけこ",
                       "ABC",
                       "ABC ",
                       "ABC 　",
                       "ABC" & vbCrLf,
                       "ABC" & vbCrLf & vbCrLf,
                       "ABC" & vbCrLf & "XYZ",
                       "ABC  " & vbCrLf & "XYZ 　",
                       "ABC" & vbCrLf & vbCrLf & "XYZ",
                       "ABC  " & vbCrLf & "XYZ 　" & vbCrLf & "CD EFG  HIJ  "
                      }

        For Each res In (From Src In samples Select Src, a = If(Src.EndsWith(vbCrLf), Src, Src & vbCrLf)
                         Select Src, Des = Regex.Replace(a, "[\s-[\r\n]]+\r\n", vbCrLf))
            Console.WriteLine(String.Format("{0} => {1}", res.Src.Replace(vbCrLf, "[CrLf]"), res.Des.Replace(vbCrLf, "[CrLf]")))
        Next

結果：
 => [CrLf]
あいうえおかきくけこ[CrLf] => あいうえおかきくけこ[CrLf]
あいうえおかきくけこ [CrLf] => あいうえおかきくけこ[CrLf]
あいうえおかきくけこ => あいうえおかきくけこ[CrLf]
ABC => ABC[CrLf]
ABC  => ABC[CrLf]
ABC 　 => ABC[CrLf]
ABC[CrLf] => ABC[CrLf]
ABC[CrLf][CrLf] => ABC[CrLf][CrLf]
ABC[CrLf]XYZ => ABC[CrLf]XYZ[CrLf]
ABC  [CrLf]XYZ 　 => ABC[CrLf]XYZ[CrLf]
ABC[CrLf][CrLf]XYZ => ABC[CrLf][CrLf]XYZ[CrLf]
ABC  [CrLf]XYZ 　[CrLf]CD EFG  HIJ   => ABC[CrLf]XYZ[CrLf]CD EFG  HIJ[CrLf]