VB.NET編程語(yǔ)言的應(yīng)用，能夠幫助開發(fā)人員輕松的實(shí)現(xiàn)許多功能。其代碼編寫方式簡(jiǎn)單，應(yīng)用方式靈活急受廣大開發(fā)人員的喜愛。在這里我們將會(huì)學(xué)到VB.NET刪除空白行的應(yīng)用技巧，增加大家的編程實(shí)踐經(jīng)驗(yàn)。

有時(shí)從網(wǎng)頁(yè)中復(fù)制文字，復(fù)制過(guò)來(lái)后有很多空行，想編程序?qū)⑵鋭h去，沒有找到，只有自己寫了。剛學(xué)VB.NET，代碼很簡(jiǎn)單。有什么好的優(yōu)化，還是那個(gè)地方要修改請(qǐng)通知我。

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 '第一個(gè)文件  
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 = 
"請(qǐng)選擇一個(gè)文件文件或輸入新內(nèi)容！" 
End Sub  
Private Sub FrmTextOP_Load()Sub 
FrmTextOP_Load(ByVal 
sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load  
ToolStripStatusLabel1.Text = 
"請(qǐng)選擇一個(gè)文件文件或輸入新內(nèi)容！" 
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 = 
"沒有文本內(nèi)容，請(qǐng)選擇一個(gè)文件文件或輸入新內(nèi)容！" 
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 = 
"已經(jīng)刪除空白行！請(qǐng)注意保存文件！" 
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 = 
"沒有輸入文字內(nèi)容！無(wú)法保存文本文件！" 
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 = 
"沒有設(shè)置保存文件路徑！或沒有輸入文字內(nèi)容！" 
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 

以上就是我們?yōu)榇蠹医榻B的有關(guān)VB.NET刪除空白行的實(shí)現(xiàn)方法。

【編輯推薦】

1. VB.NET連接遠(yuǎn)程數(shù)據(jù)庫(kù)技巧分享
2. VB.NET播放WAV實(shí)現(xiàn)方法介紹
3. VB.NET嵌入文件操作技巧分享
4. 深入分析VB.NET FieldOffset特性
5. VB.NET資源文件應(yīng)用經(jīng)驗(yàn)總結(jié)