完美世界小说下载,女人书籍排行榜

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

VB.NET刪除空白行具體實(shí)現(xiàn)方法詳解

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

公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出洞口免費(fèi)做網(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刪除空白行的實(shí)現(xiàn)方法。

【編輯推薦】

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

新聞標(biāo)題：VB.NET刪除空白行具體實(shí)現(xiàn)方法詳解
網(wǎng)頁URL：http://fisionsoft.com.cn/article/dhcepio.html

新聞中心

其他資訊