建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET刪除空白行具體實現(xiàn)方法詳解
VB.NET編程語言的應(yīng)用，能夠幫助開發(fā)人員輕松的實現(xiàn)許多功能。其代碼編寫方式簡單，應(yīng)用方式靈活急受廣大開發(fā)人員的喜愛。在這里我們將會學(xué)到VB.NET刪除空白行的應(yīng)用技巧，增加大家的編程實踐經(jīng)驗。
公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出洞口免費做網(wǎng)站回饋大家。
有時從網(wǎng)頁中復(fù)制文字，復(fù)制過來后有很多空行，想編程序?qū)⑵鋭h去，沒有找到，只有自己寫了。剛學(xué)VB.NET，代碼很簡單。有什么好的優(yōu)化，還是那個地方要修改請通知我。
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 =
"請選擇一個文件文件或輸入新內(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 =
"請選擇一個文件文件或輸入新內(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)容，請選擇一個文件文件或輸入新內(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)刪除空白行！請注意保存文件！"- 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)容！無法保存文本文件！"- 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刪除空白行的實現(xiàn)方法。
【編輯推薦】
- VB.NET連接遠程數(shù)據(jù)庫技巧分享
- VB.NET播放WAV實現(xiàn)方法介紹
- VB.NET嵌入文件操作技巧分享
- 深入分析VB.NET FieldOffset特性
- VB.NET資源文件應(yīng)用經(jīng)驗總結(jié)
網(wǎng)頁名稱：VB.NET刪除空白行具體實現(xiàn)方法詳解
本文地址：http://www.5511xx.com/article/dhcepio.html
