VB.NET删除空白行具体实现方法详解

VB.NET编程语言的应用，能够帮助开发人员轻松的实现许多功能。其代码编写方式简单，应用方式灵活急受广大开发人员的喜爱。在这里我们将会学到VB.NET删除空白行的应用技巧，增加大家的编程实践经验。

公司主营业务：成都网站设计、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联推出洞口免费做网站回馈大家。

有时从网页中复制文字，复制过来后有很多空行，想编程序将其删去，没有找到，只有自己写了。刚学VB.NET，代码很简单。有什么好的优化，还是那个地方要修改请通知我。

VB.NET删除空白行代码示例：

 
 
 
      
  
  
  1. Imports System.IO  
    2.   
  
  
  2. Imports System.Drawing  
    3.   
  
  
  3. Public Class FrmTextOPClass FrmTextOP  
    4.   
  
  
  4. Dim FPath As String  
    5.   
  
  
  5. Dim Rows As Integer  
    6.   
  
  
  6. Private Sub BtChooseTxtFile_Click()Sub 
    BtChooseTxtFile_Click(ByVal sender As 
    System.Object, ByVal e As System.EventArgs) 
    Handles BtChooseTxtFile.Click  
    7.   
  
  
  7. FPath = ChooseAFile(, "文本文件", "*.txt")  
    8.   
  
  
  8. If FPath > "" Then  
    9.   
  
  
  9. TxtFilePath.Text = FPath 
    10.   
  
  
  10. 'MainTxtBox.Text = LoadFile(FPath)  
    11.   
  
  
  11. MainTxtBox.Text = My.Computer.FileSystem.
    ReadAllText(FPath, System.Text.Encoding.Default)  
    12.   
  
  
  12. SetTextLine()  
    13.   
  
  
  13. ToolStripStatusLabel1.Text = "文件路径:" & FPath  
    14.   
  
  
  14. End If  
    15.   
  
  
  15. End Sub  
    16.   
  
  
  16. 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  
    17.   
  
  
  17. Dim dlgOpen As New System.Windows.Forms.
    OpenFileDialog  
    18.   
  
  
  18. With dlgOpen  
    19.   
  
  
  19. .Title = TitleStr 
    20.   
  
  
  20. .Filter = TypesDec & "(" & ExtenStr & ")
    |" & ExtenStr  
    21.   
  
  
  21. If IniDirStr.Length > 0 Then  
    22.   
  
  
  22. .InitialDirectory = IniDirStr 
    23.   
  
  
  23. End If  
    24.   
  
  
  24. If .ShowDialog = Windows.Forms.
    DialogResult.OK Then  
    25.   
  
  
  25. ChooseAFile = .FileName '第一个文件  
    26.   
  
  
  26. Else  
    27.   
  
  
  27. ChooseAFile = "" 
    28.   
  
  
  28. End If  
    29.   
  
  
  29. End With  
    30.   
  
  
  30. dlgOpen = Nothing 
    31.   
  
  
  31. End Function  
    32.   
  
  
  32. Private Sub SetTextLine()Sub SetTextLine()  
    33.   
  
  
  33. Rows = 0 
    34.   
  
  
  34. Rows = MainTxtBox.Lines.Length  
    35.   
  
  
  35. ToolStripStatusLabel2.Text = "共 " & Rows & " 行"  
    36.   
  
  
  36. End Sub  
    37.   
  
  
  37. Private Sub BtClearText_Click()Sub
     BtClearText_Click(ByVal sender As System.
    Object, ByVal e As System.EventArgs) Handles 
    BtCreatNewText.Click  
    38.   
  
  
  38. TxtFilePath.Text = "" 
    39.   
  
  
  39. MainTxtBox.Text = "" 
    40.   
  
  
  40. ToolStripStatusLabel2.Text = "" 
    41.   
  
  
  41. ToolStripStatusLabel1.Text = 
    "请选择一个文件文件或输入新内容！" 
    42.   
  
  
  42. End Sub  
    43.   
  
  
  43. Private Sub FrmTextOP_Load()Sub 
    FrmTextOP_Load(ByVal 
    sender As System.Object, ByVal e As System.EventArgs) 
    Handles MyBase.Load  
    44.   
  
  
  44. ToolStripStatusLabel1.Text = 
    "请选择一个文件文件或输入新内容！" 
    45.   
  
  
  45. End Sub  
    46.   
  
  
  46. Private Sub BtDelBlankRow_Click()Sub 
    BtDelBlankRow_Click(ByVal sender As System.Object,
     ByVal e As System.EventArgs) Handles 
    BtDelBlankRow.Click  
    47.   
  
  
  47. SetTextLine()  
    48.   
  
  
  48. If Rows = 0 Then  
    49.   
  
  
  49. ToolStripStatusLabel1.Text = 
    "没有文本内容，请选择一个文件文件或输入新内容！" 
    50.   
  
  
  50. ElseIf Rows = 1 Then  
    51.   
  
  
  51. MainTxtBox.Text = Trim(MainTxtBox.Text)  
    52.   
  
  
  52. ElseIf Rows > 1 Then  
    53.   
  
  
  53. Dim SWriter As StreamWriter  
    54.   
  
  
  54. Dim FStream As FileStream  
    55.   
  
  
  55. Dim Temptextpath As String = 
    Application.StartupPath.ToString
     & "TempText.txt"  
    56.   
  
  
  56. FStream = New FileStream(Temptextpath, 
    FileMode.Create, FileAccess.Write)  
    57.   
  
  
  57. SWriter = New StreamWriter(FStream,
     System.Text.Encoding.Default)  
    58.   
  
  
  58. SWriter.BaseStream.Seek(0, SeekOrigin.End)  
    59.   
  
  
  59. For i As Integer = 0 To Rows - 1  
    60.   
  
  
  60. If Trim(MainTxtBox.Lines(i)) <> "" Then  
    61.   
  
  
  61. SWriter.WriteLine(MainTxtBox.Lines(i))  
    62.   
  
  
  62. SWriter.Flush()  
    63.   
  
  
  63. End If  
    64.   
  
  
  64. Next  
    65.   
  
  
  65. SWriter.Close()  
    66.   
  
  
  66. FStream.Close()  
    67.   
  
  
  67. FStream = Nothing 
    68.   
  
  
  68. SWriter = Nothing 
    69.   
  
  
  69. MainTxtBox.Text = My.Computer.FileSystem.
    ReadAllText(Temptextpath, 
    System.Text.Encoding.Default)  
    70.   
  
  
  70. ToolStripStatusLabel1.Text = 
    "已经删除空白行！请注意保存文件！" 
    71.   
  
  
  71. End If  
    72.   
  
  
  72. SetTextLine()  
    73.   
  
  
  73. End Sub  
    74.   
  
  
  74. Private Sub TxtFilePath_DoubleClick()
    Sub TxtFilePath_DoubleClick(ByVal sender 
    As Object, ByVal e As System.EventArgs) 
    Handles TxtFilePath.DoubleClick  
    75.   
  
  
  75. If FPath > "" Then  
    76.   
  
  
  76. System.Diagnostics.Process.Start(FPath)  
    77.   
  
  
  77. End If  
    78.   
  
  
  78. End Sub  
    79.   
  
  
  79. Private Sub TxtFilePath_TextChanged()Sub 
    TxtFilePath_TextChanged(ByVal sender As 
    Object, ByVal e As System.EventArgs) 
    Handles TxtFilePath.TextChanged  
    80.   
  
  
  80. FPath = TxtFilePath.Text  
    81.   
  
  
  81. End Sub  
    82.   
  
  
  82. Private Sub BtSaveTextFile_Click()Sub 
    BtSaveTextFile_Click(ByVal sender As 
    System.Object, ByVal e As System.EventArgs)
     Handles BtSaveTextFile.Click  
    83.   
  
  
  83. Dim dr As DialogResult  
    84.   
  
  
  84. Dim SWriter As StreamWriter  
    85.   
  
  
  85. Dim FStream As FileStream  
    86.   
  
  
  86. SetTextLine()  
    87.   
  
  
  87. If Rows = 0 Then  
    88.   
  
  
  88. ToolStripStatusLabel1.Text = 
    "没有输入文字内容！无法保存文本文件！" 
    89.   
  
  
  89. Exit Sub  
    90.   
  
  
  90. End If  
    91.   
  
  
  91. If FPath = Nothing Or FPath = "" Then  
    92.   
  
  
  92. SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt" 
    93.   
  
  
  93. dr = SaveFileDialog1.ShowDialog()  
    94.   
  
  
  94. If dr = Windows.Forms.DialogResult.OK Then  
    95.   
  
  
  95. FPath = SaveFileDialog1.FileName  
    96.   
  
  
  96. End If  
    97.   
  
  
  97. End If  
    98.   
  
  
  98. If FPath > "" And Rows > 0 Then  
    99.   
  
  
  99. FStream = New FileStream
    (FPath, FileMode.Create, FileAccess.Write)  
    100.   
  
  
  100. SWriter = New StreamWriter
    (FStream, System.Text.Encoding.Default)  
    101.   
  
  
  101. SWriter.BaseStream.Seek(0, SeekOrigin.End)  
    102.   
  
  
  102. For i As Integer = 0 To Rows - 1  
    103.   
  
  
  103. SWriter.WriteLine(MainTxtBox.Lines(i))  
    104.   
  
  
  104. SWriter.Flush()  
    105.   
  
  
  105. Next  
    106.   
  
  
  106. SWriter.Close()  
    107.   
  
  
  107. FStream.Close()  
    108.   
  
  
  108. FStream = Nothing 
    109.   
  
  
  109. SWriter = Nothing 
    110.   
  
  
  110. ToolStripStatusLabel1.Text = "保存文件成功！" 
    111.   
  
  
  111. Else  
    112.   
  
  
  112. ToolStripStatusLabel1.Text = 
    "没有设置保存文件路径！或没有输入文字内容！" 
    113.   
  
  
  113. End If  
    114.   
  
  
  114. End Sub  
    115.   
  
  
  115. Private Sub BtOpenCurFile_Click()Sub 
    BtOpenCurFile_Click(ByVal sender As 
    System.Object, ByVal e As System.EventArgs)
     Handles BtOpenCurFile.Click  
    116.   
  
  
  116. If FPath > "" Then  
    117.   
  
  
  117. System.Diagnostics.Process.Start(FPath)  
    118.   
  
  
  118. End If  
    119.   
  
  
  119. End Sub  
    120.   
  
  
  120. Private Sub BtBrowserDir_Click()Sub 
    BtBrowserDir_Click(ByVal sender As System.
    Object, ByVal e As System.EventArgs)
     Handles BtBrowserDir.Click  
    121.   
  
  
  121. If FPath > "" Then  
    122.   
  
  
  122. Dim p As System.IO.FileInfo = My.Computer.
    FileSystem.GetFileInfo(FPath)  
    123.   
  
  
  123. System.Diagnostics.Process.Start("explorer.
    exe", p.DirectoryName)  
    124.   
  
  
  124. End If  
    125.   
  
  
  125. End Sub  
    126.   
  
  
  126. Private Sub BtExitApp_Click()Sub BtExitApp_
    Click(ByVal sender As System.Object, ByVal e As 
    System.EventArgs) Handles BtExitApp.Click  
    127.   
  
  
  127. Application.Exit()  
    128.   
  
  
  128. End Sub  
    129.   
  
  
  129. Private Sub ToolStripMenuItemBigFont_Click()Sub 
    ToolStripMenuItemBigFont_Click(ByVal sender As 
    System.Object, ByVal e As System.EventArgs) 
    Handles ToolStripMenuItemBigFont.Click  
    130.   
  
  
  130. 'Dim bigFont As Font  
    131.   
  
  
  131. MainTxtBox.Font = New Font(MainTxtBox.Font.FontFamily, 13)  
    132.   
  
  
  132. End Sub  
    133.   
  
  
  133. Private Sub ToolStripMenuItemFontSet_Click()Sub 
    ToolStripMenuItemFontSet_Click(ByVal sender 
    As System.Object, ByVal e As System.EventArgs) 
    Handles ToolStripMenuItemFontSet.Click  
    134.   
  
  
  134. FontDialog1.ShowDialog()  
    135.   
  
  
  135. MainTxtBox.Font = FontDialog1.Font  
    136.   
  
  
  136. End Sub  
    137.   
  
  
  137. Private Sub ToolStripMenuItemColorSet_Click()
    Sub ToolStripMenuItemColorSet_Click(ByVal
     sender As System.Object, ByVal e As System.
    EventArgs) Handles ToolStripMenuItemColorSet.Click  
    138.   
  
  
  138. ColorDialog1.ShowDialog()  
    139.   
  
  
  139. MainTxtBox.ForeColor = ColorDialog1.Color  
    140.   
  
  
  140. End Sub  
    141.   
  
  
  141. Private Sub ToolStripMenuItemMidFont_Click()
    Sub ToolStripMenuItemMidFont_Click(ByVal 
    sender As System.Object, ByVal e As System.
    EventArgs) Handles ToolStripMenuItemMidFont.Click  
    142.   
  
  
  142. MainTxtBox.Font = New Font(MainTxtBox.Font.
    FontFamily, 11)  
    143.   
  
  
  143. End Sub  
    144.   
  
  
  144. Private Sub ToolStripMenuItemSmallFont_Click()
    Sub ToolStripMenuItemSmallFont_Click(ByVal 
    sender As Object, ByVal e As System.
    EventArgs) Handles ToolStripMenuItemSmallFont.Click  
    145.   
  
  
  145. MainTxtBox.Font = New Font(MainTxtBox.Font.FontFamily, 9)  
    146.   
  
  
  146. End Sub  
    147.   
  
  
  147. End Class 
    148.

以上就是我们为大家介绍的有关VB.NET删除空白行的实现方法。

【编辑推荐】

  1. VB.NET连接远程数据库技巧分享
  2. VB.NET播放WAV实现方法介绍
  3. VB.NET嵌入文件操作技巧分享
  4. 深入分析VB.NET FieldOffset特性
  5. VB.NET资源文件应用经验总结

文章名称：VB.NET删除空白行具体实现方法详解
文章转载：http://www.csdahua.cn/qtweb/news19/255269.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网

成都快上网为您推荐相关内容

网站建设知识

同城分类信息

公路钻孔机　　 　成都电商网站建设方案　　 　软文平台　　 　联通机柜租用　　 　香港云空间　　 　成都网站建设　　 　微信小程序　　 　www.tpbzx.cn　　 　服务器机柜租用　　 　小程序开发　　 　雪茄烟品牌　　 　成都微信开发　　 　成都门户网站建设　　 　简阳机房托管　　 　广告吸塑字　　 　成都小程序商城　　 　成都网站推广　　 　成都木托盘　　 　平山县网站建设　　 　网站改版维护