- 日時： 2013/01/30 23:06
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[テキストボックス][][] *
* キーワード：複数行テキストボックス,空行,空白の行,連結,空行を削除, *
***********************************************************************************
タイトル ： 複数行のテキストボックスの空白行削除の仕方
記 事 No ： 8796 [関連記事]
投 稿 日 ： 2009/03/10(Tue) 23:58
元質問者 ： そら
タイトル ： VBで空白行を削除する方法
記 事 No ： 9008
投 稿 日 ： 2009/05/24(Sun) 23:52
元質問者 ： 山広
テキストボックスに６行の文字列があり、その中の２行目と６行目は空白の行となっています。
いわゆる歯抜け状態になっているのですが、その空白の行を削除して、歯抜け状態を無くし、
全部で４行の文字列にしたいのですが、VBでのやり方が分かりません。
-----------------------------------------------------------------------------------
記事No ：9015
投稿日 ：2009/05/25(Mon) 15:41
回答者 ：魔界の仮面弁士
-----------------------------------------------------------------------------------
# 空行が連続した場合にも対応できている…と思う。
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim wk As String
wk = "1. あいうえお" & vbCrLf & vbCrLf
wk &= "2. かきくけこ" & vbCrLf
wk &= "3. さしすせそ" & vbCrLf & vbCrLf & vbCrLf & vbCrLf
wk &= "4. たちつてと" & vbCrLf & vbCrLf
wk &= "5. なにぬねの" & vbCrLf
wk &= "6. はひふへほ" & vbCrLf & vbCrLf
wk &= "7. まみむめも" & vbCrLf & vbCrLf
TextBox1.Text = wk
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = Regex.Replace(TextBox1.Text, "(" & vbNewLine & "){1,}", vbNewLine)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = Regex.Replace(TextBox1.Text, "(" & vbNewLine & ")+", vbNewLine)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text.Replace(vbLf & vbCr, "")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = Replace(TextBox1.Text, vbLf & vbCr, "")
End Sub
End Class
上記実行図 １ 上記実行図 ２
|
複数行のテキストボックスの空白行を削除する(VB.NET)