OS:XP sp3 / VB2005

テキストボックスに６行の文字列があり、その中の２行目と６行目は空白の行となっています。
いわゆる歯抜け状態になっているのですが、その空白の行を削除して、歯抜け状態を無くし、全部で４行の文字列にしたいのですが、VBでのやり方が分かりません。
文字列を連結させるところまでは出来ました。
textbox1.text = Regex.Replace(textbox1.text, "\n", "")

アドバイス、よろしくお願いいたします。


前回、同じような質問をした方がいるようなのですが、解決出来てないようです。
http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?no=8796&reno=no&oya=8796&mode=msgview&page=0


C#だと以下の方法を見つけました。（教えてgooより参照）
http://oshiete1.goo.ne.jp/qa1402845.html

A = Regex.Replace(A, "\n{1,}", "\n");
一度文字列を連結させ、文字列終わりに改行を入れ、表示させるという方法だと思います。

> 前回、同じような質問をした方がいるようなのですが、解決出来てないようです。
> http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?no=8796&reno=no&oya=8796&mode=msgview&page=0

質問者さんからの返答は無いようですが、提示されている方法で十分解決できそうでは？


> C#だと以下の方法を見つけました。（教えてgooより参照）
> http://oshiete1.goo.ne.jp/qa1402845.html
>
> A = Regex.Replace(A, "\n{1,}", "\n");
> 一度文字列を連結させ、文字列終わりに改行を入れ、表示させるという方法だと思います。

VB2005なら、同じ方法が使えると思いますよ。

> VB2005なら、同じ方法が使えると思いますよ。

同じ方法が出来ないんですよね・・・

"\n{1,}", "\n"　　ここらがくせものなんですが・・・

そもそも\nってC言語用ですよね？
vbCrLfとかvbLfだと認識しないし。

> そもそも\nってC言語用ですよね？
> vbCrLfとかvbLfだと認識しないし。
>
これでどう？
textbox1.text = textbox1.Text.Replace(Environment.NewLine & Environment.NewLine, Environment.NewLine)

たとえば、
　= Regex.Replace(TextBox1.Text, "(" & vbNewLine & "){1,}", vbNewLine)
とか、
　= Regex.Replace(TextBox1.Text, "(" & vbNewLine & ")+", vbNewLine)
とか、
　= TextBox1.Text.Replace(vbLf & vbCr, "")
とか、
　= Replace(TextBox1.Text, vbLf & vbCr, "")
とか。


# 空行が連続した場合にも対応できている…と思う。

ＧＯＤさん、魔界の仮面弁士さん有り難うございました。
問題なくコードは動きました。

何故こんな事が分からないのか、自分が恥ずかしいのと、すぐにコードが書けるお二人が羨ましいです。

検索で調べては、２時間ぐらい格闘してたのですが、さっぱりでした。