VB.NET編程語言的應用，能夠幫助開發人員輕松的實現許多功能。其代碼編寫方式簡單，應用方式靈活急受廣大開發人員的喜愛。在這里我們將會學到VB.NET刪除空白行的應用技巧，增加大家的編程實踐經驗。

有時從網頁中復制文字，復制過來后有很多空行，想編程序將其刪去，沒有找到，只有自己寫了。剛學VB.NET，代碼很簡單。有什么好的優化，還是那個地方要修改請通知我。

VB.NET刪除空白行代碼示例：

Imports System.IO  
Imports System.Drawing  
Public Class FrmTextOPClass FrmTextOP  
Dim FPath As String  
Dim Rows As Integer  
Private Sub BtChooseTxtFile_Click()Sub 
BtChooseTxtFile_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) 
Handles BtChooseTxtFile.Click  
FPath = ChooseAFile(, "文本文件", "*.txt")  
If FPath > "" Then  
TxtFilePath.Text = FPath 
'MainTxtBox.Text = LoadFile(FPath)  
MainTxtBox.Text = My.Computer.FileSystem.
ReadAllText(FPath, System.Text.Encoding.Default)  
SetTextLine()  
ToolStripStatusLabel1.Text = "文件路徑:" & FPath  
End If  
End Sub  
Public Function ChooseAFile()Function 
ChooseAFile(Optional ByVal TitleStr As 
String = "選擇你要的文件", Optional ByVal 
TypesDec As String = "所有文件", Optional 
ByVal ExtenStr As String = "*.*", Optional 
ByVal IniDirStr As String = "") As String  
Dim dlgOpen As New System.Windows.Forms.
OpenFileDialog  
With dlgOpen  
.Title = TitleStr 
.Filter = TypesDec & "(" & ExtenStr & ")
|" & ExtenStr  
If IniDirStr.Length > 0 Then  
.InitialDirectory = IniDirStr 
End If  
If .ShowDialog = Windows.Forms.
DialogResult.OK Then  
ChooseAFile = .FileName '第一個文件  
Else  
ChooseAFile = "" 
End If  
End With  
dlgOpen = Nothing 
End Function  
Private Sub SetTextLine()Sub SetTextLine()  
Rows = 0 
Rows = MainTxtBox.Lines.Length  
ToolStripStatusLabel2.Text = "共 " & Rows & " 行"  
End Sub  
Private Sub BtClearText_Click()Sub
 BtClearText_Click(ByVal sender As System.
Object, ByVal e As System.EventArgs) Handles 
BtCreatNewText.Click  
TxtFilePath.Text = "" 
MainTxtBox.Text = "" 
ToolStripStatusLabel2.Text = "" 
ToolStripStatusLabel1.Text = 
"請選擇一個文件文件或輸入新內容！" 
End Sub  
Private Sub FrmTextOP_Load()Sub 
FrmTextOP_Load(ByVal 
sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load  
ToolStripStatusLabel1.Text = 
"請選擇一個文件文件或輸入新內容！" 
End Sub  
Private Sub BtDelBlankRow_Click()Sub 
BtDelBlankRow_Click(ByVal sender As System.Object,
 ByVal e As System.EventArgs) Handles 
BtDelBlankRow.Click  
SetTextLine()  
If Rows = 0 Then  
ToolStripStatusLabel1.Text = 
"沒有文本內容，請選擇一個文件文件或輸入新內容！" 
ElseIf Rows = 1 Then  
MainTxtBox.Text = Trim(MainTxtBox.Text)  
ElseIf Rows > 1 Then  
Dim SWriter As StreamWriter  
Dim FStream As FileStream  
Dim Temptextpath As String = 
Application.StartupPath.ToString
 & "TempText.txt"  
FStream = New FileStream(Temptextpath, 
FileMode.Create, FileAccess.Write)  
SWriter = New StreamWriter(FStream,
 System.Text.Encoding.Default)  
SWriter.BaseStream.Seek(0, SeekOrigin.End)  
For i As Integer = 0 To Rows - 1  
If Trim(MainTxtBox.Lines(i)) <> "" Then  
SWriter.WriteLine(MainTxtBox.Lines(i))  
SWriter.Flush()  
End If  
Next  
SWriter.Close()  
FStream.Close()  
FStream = Nothing 
SWriter = Nothing 
MainTxtBox.Text = My.Computer.FileSystem.
ReadAllText(Temptextpath, 
System.Text.Encoding.Default)  
ToolStripStatusLabel1.Text = 
"已經刪除空白行！請注意保存文件！" 
End If  
SetTextLine()  
End Sub  
Private Sub TxtFilePath_DoubleClick()
Sub TxtFilePath_DoubleClick(ByVal sender 
As Object, ByVal e As System.EventArgs) 
Handles TxtFilePath.DoubleClick  
If FPath > "" Then  
System.Diagnostics.Process.Start(FPath)  
End If  
End Sub  
Private Sub TxtFilePath_TextChanged()Sub 
TxtFilePath_TextChanged(ByVal sender As 
Object, ByVal e As System.EventArgs) 
Handles TxtFilePath.TextChanged  
FPath = TxtFilePath.Text  
End Sub  
Private Sub BtSaveTextFile_Click()Sub 
BtSaveTextFile_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs)
 Handles BtSaveTextFile.Click  
Dim dr As DialogResult  
Dim SWriter As StreamWriter  
Dim FStream As FileStream  
SetTextLine()  
If Rows = 0 Then  
ToolStripStatusLabel1.Text = 
"沒有輸入文字內容！無法保存文本文件！" 
Exit Sub  
End If  
If FPath = Nothing Or FPath = "" Then  
SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt" 
dr = SaveFileDialog1.ShowDialog()  
If dr = Windows.Forms.DialogResult.OK Then  
FPath = SaveFileDialog1.FileName  
End If  
End If  
If FPath > "" And Rows > 0 Then  
FStream = New FileStream
(FPath, FileMode.Create, FileAccess.Write)  
SWriter = New StreamWriter
(FStream, System.Text.Encoding.Default)  
SWriter.BaseStream.Seek(0, SeekOrigin.End)  
For i As Integer = 0 To Rows - 1  
SWriter.WriteLine(MainTxtBox.Lines(i))  
SWriter.Flush()  
Next  
SWriter.Close()  
FStream.Close()  
FStream = Nothing 
SWriter = Nothing 
ToolStripStatusLabel1.Text = "保存文件成功！" 
Else  
ToolStripStatusLabel1.Text = 
"沒有設置保存文件路徑！或沒有輸入文字內容！" 
End If  
End Sub  
Private Sub BtOpenCurFile_Click()Sub 
BtOpenCurFile_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs)
 Handles BtOpenCurFile.Click  
If FPath > "" Then  
System.Diagnostics.Process.Start(FPath)  
End If  
End Sub  
Private Sub BtBrowserDir_Click()Sub 
BtBrowserDir_Click(ByVal sender As System.
Object, ByVal e As System.EventArgs)
 Handles BtBrowserDir.Click  
If FPath > "" Then  
Dim p As System.IO.FileInfo = My.Computer.
FileSystem.GetFileInfo(FPath)  
System.Diagnostics.Process.Start("explorer.
exe", p.DirectoryName)  
End If  
End Sub  
Private Sub BtExitApp_Click()Sub BtExitApp_
Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles BtExitApp.Click  
Application.Exit()  
End Sub  
Private Sub ToolStripMenuItemBigFont_Click()Sub 
ToolStripMenuItemBigFont_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) 
Handles ToolStripMenuItemBigFont.Click  
'Dim bigFont As Font  
MainTxtBox.Font = New Font(MainTxtBox.Font.FontFamily, 13)  
End Sub  
Private Sub ToolStripMenuItemFontSet_Click()Sub 
ToolStripMenuItemFontSet_Click(ByVal sender 
As System.Object, ByVal e As System.EventArgs) 
Handles ToolStripMenuItemFontSet.Click  
FontDialog1.ShowDialog()  
MainTxtBox.Font = FontDialog1.Font  
End Sub  
Private Sub ToolStripMenuItemColorSet_Click()
Sub ToolStripMenuItemColorSet_Click(ByVal
 sender As System.Object, ByVal e As System.
EventArgs) Handles ToolStripMenuItemColorSet.Click  
ColorDialog1.ShowDialog()  
MainTxtBox.ForeColor = ColorDialog1.Color  
End Sub  
Private Sub ToolStripMenuItemMidFont_Click()
Sub ToolStripMenuItemMidFont_Click(ByVal 
sender As System.Object, ByVal e As System.
EventArgs) Handles ToolStripMenuItemMidFont.Click  
MainTxtBox.Font = New Font(MainTxtBox.Font.
FontFamily, 11)  
End Sub  
Private Sub ToolStripMenuItemSmallFont_Click()
Sub ToolStripMenuItemSmallFont_Click(ByVal 
sender As Object, ByVal e As System.
EventArgs) Handles ToolStripMenuItemSmallFont.Click  
MainTxtBox.Font = New Font(MainTxtBox.Font.FontFamily, 9)  
End Sub  
End Class 

以上就是我們為大家介紹的有關VB.NET刪除空白行的實現方法。

【編輯推薦】

1. VB.NET連接遠程數據庫技巧分享
2. VB.NET播放WAV實現方法介紹
3. VB.NET嵌入文件操作技巧分享
4. 深入分析VB.NET FieldOffset特性
5. VB.NET資源文件應用經驗總結