VB.Net 删除空白行(原创)

最新推荐文章于 2023-04-17 16:00:48 发布
最新推荐文章于 2023-04-17 16:00:48 发布
阅读量2.4k 收藏 3
点赞数
分类专栏： 2.VB.Net 文章标签： vb.net string integer object function class
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/linjimu/article/details/1526467
版权

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

用VS 2005的VB.Net，[文本文件操作]支持中文显示。

界面设计如下：

文本操作

 

Imports  System.IO
 Imports  System.Drawing

 Public   Class FrmTextOP
    Dim FPath As String
    Dim Rows As Integer

    Private 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(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()
        Rows = 0
        Rows = MainTxtBox.Lines.Length
        ToolStripStatusLabel2.Text = "共 " & Rows & " 行"
    End Sub
   
    Private 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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStripStatusLabel1.Text = "请选择一个文件文件或输入新内容！"
    End Sub

    Private 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(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(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtFilePath.TextChanged
        FPath = TxtFilePath.Text
    End Sub

    Private 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(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(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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtExitApp.Click
        Application.Exit()
    End Sub

    Private 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(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(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(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(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemSmallFont.Click
        MainTxtBox.Font = New Font(MainTxtBox.Font.FontFamily, 9)
    End Sub
End Class

 

开发实践教程1：试卷生成系统6.7 试卷生成（FormTestPaper）
学习微软 .net 技术开发
08-31 813
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 提供功能：新建试卷、载入试卷、自动填充试卷、保存设计好的试卷、输出Word文档。 窗体设计如下： 图1-17 在此窗体设计中可能遇到的问题： 1、随机选题 为了实现自动填充试卷题目，代码中使用了随机选题的方式，具体操作是在Sql语句最后加上“order by newid()”语句。当试卷中选择的题目不足时，datagridview中对应行的题目将保持空白。但是考虑可能可以从别的试卷类型选择
编程资料 －C# 多线程
踏雪无痕
11-12 1万+
编程资料 － 多线程C#多线程编程实例实战作者： 刘弹 www.ASPCool.com 时间:2003-5-17 上午 10:24:05 阅读次数:10996单个写入程序/多个阅读程序在.Net 类库中其实已经提供了实现，即System.Threading.ReaderWriterLock 类。本文通过对常见的单个写入/多个阅读程序的分析来探索c#的多线程编程。问题的提出所谓单个写入程序/多个阅读
去除空行[vb.net源码]
04-21
在网页中复制的代码很多时候都有空格，可以用此工具去除文本中的空行。
VB.Net 删除TextBox中空白行的三种方法，哪一种较好。
VB.Net+Android.java
10-26 2378
首先,窗体中有两个TextBox控件,TextBox1,TextBox2,一个按钮。方法1：直接用textbox的text属性        If Me.TextBox1.Text > "" Then            Me.TextBox2.Clear()            For i = 0 To Me.TextBox1.Lines.Length - 1              
[VB.NET]如何清除文本文件中的空行
VB.NET学习网-VB.NET实例、VB.NET教程、VB.NET源码下载
12-29 2108
<!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--><script type="text/javascript"
vb如何删除空行
pclook的专栏
12-27 2164
<br />str=replace(str,vbcrlf&vbcrlf,vbcrlf)
从VB.NET的字符串值内部删除所有空格
IT与开发人员的地盘
05-22 960
资源 PublicFunctionNoWhiteSpace(ByValstrTextAsString)AsString ReturnSystem.Text.RegularExpressions.Regex.Replace(strText,"",_ String.Empty,System.Text.RegularExpressions.RegexOption...
ASP.NET及C#网上资料小收藏
qkqlqq0288的专栏
01-10 2110
<br />http://blog.csdn.net/guyehanxinlei/archive/2008/01/18/2051333.aspx<br />使用SqlBulkCopy类加载其他源数据到SQL表 <br />在数据回发时，维护ASP.NET Tree控件的位置 <br />vagerent的vs2005网站开发技巧 <br />ASP.NET2.0小技巧－－内部控件权限的实现 <br />图片滚动代码。 <br />css——之三行三列等高布局 <br />Datagird TemplateC
大年三十整理的asp.net资料！（不得不收藏）
热门推荐
№悟◇
03-06 1万+
http://blog.csdn.net/mengyao/archive/2007/02/17/1511356.aspx使用SqlBulkCopy类加载其他源数据到SQL表 在数据回发时，维护ASP.NET Tree控件的位置 vagerent的vs2005网站开发技巧 ASP.NET2.0小技巧－－内部控件权限的实现 图片滚动代码。
vba模拟鼠标点击_利用VBA开发数据汇总工具
weixin_39892309的博客
10-24 3470
利用VBA开发数据汇总工具通常在日常工作中总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作中的实践，发现用VBA开发具有一定重复性的功能，能够极大提高工作效率。最近，将本人曾开发的的Excel数据汇总工具，进行进一步代码和界面的优化。此文是为了广大工作在一线的表格小白做一个Excel开发的普及篇。重点介绍作为一个小白，如何开发出自己想得到的趁手工具。第一章 认识Excel与V...
删除文本空白行
07-28
有时从网页中复制文字，复制过来后有很多空行，删除文本空白行，截去文本的前后空白行。 用VS 2005的VB.Net写的，代码很简单，[文本文件操作]支持中文显示。 界面用法：http://www.linjimu.com.cn/Images/VBNetPrg/TextFileOP.png
WORD一键删除空格和空行的宏
04-07
当我们将一个网页另存为一个文本文件并将文本文件中的所有内容复制到Word2007中进行编辑时，有时会遇到大量的空格和空行，运用该宏按钮可以全部删除Word文档中的空格和空行（由于空行产生的复杂性，可能一次不能删除全部空行，再执行1－2次该宏按钮就可以全部删除了），非常方便。 在Word2007（其他版本操作类似）中，按ALT+F11打开“Visual Basic编辑器”，按CTRL+M导入该文件，关闭“Visual Basic编辑器”后在“自定义快速访问工具栏－其它命令－宏”中找到该宏并添加在快速访问工具栏就可以使用了。 本宏是自己在WORD中做的，绝对无宏病毒，如果实在不放心，你又有点VB知识的话，可以用记事本打开此文件看看，再决定是否使用。
删除文本文件中重复行（vb.net）
06-01
删除文本文件中重复的行，用VB.net实现。只查询文本中单列数值中重复的行，删除然后输出无重复行。
vs 删除代码中空行
weixin_30642267的博客
08-20 252
vs 删除代码中空行 原文:vs 删除代码中空行 1 ^\s*\n 正则表达式 posted on 2019-08-20 16:28NET未...
vb.net 教程 3-10 窗体编程 datagridview控件 6 删除行
学习微软 .net 技术开发
05-14 1928
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 删除 datagridview中的数据有两种方法： 1、datagridview.Rows.Remove(DataGridViewRow) 例如删除第1行数据： Dim dgvRow As DataGridViewRow dgvRow = dgv.Rows(0) ...
多维数组怎么去空值
QQ281511516的博客
06-28 557
在php中去除数组中的空值可以使用array_filter() 这个函数 但是这个函数只能对一维数组起作用，一旦需要对多维数组去空就不行了，而且去除的空也包括(int)0,(string)0,使用起来还是有点问题！自定义函数去除数组中的某个值 默认是空值，  一维数组和多维数组都可以使用!下面为代码$b=array('back'=&gt;array('id'=&gt;'','name'=&gt;3...
空行快捷键_批量删除所有空行，这两种方法你必须要知道
weixin_39550410的博客
01-15 1640
关注我?，每天学习一点点，成为更好的自己。在工作中我们经常会遇到空行情况，这给后期数据处理带来很多问题。我们要全部删除空行，如果一行一行删除，那就太慢了。今天小编教大家两个方法快速删除所有空行，让你提高工作效率。首先我们来看下源数据：01快速定位法思路：我们可以通过快速定位法，迅速定位出所有空行，然后删除即可。操作步骤：1、按快捷键ctrl、a，全选数据，再按快捷键ctrl、g，打开定位...
[原创]删除多行文本框中的空白行
X-Forever
03-26 3832
删除多行文本框中的空白行在一些调研或者投票程序中，经常都要设置题目的各个选择支，最常见的办法有两种：1. 每次添加一个选择支，如果该题目有N个选项，就添加N次；2. 把所有的选项都填写入一个文本框中，用特殊的分隔符（如：“｜”、“$”等）分隔各个选项，然后再对所得的内容进行处理。 如果调研或投票程序中只有少量题目第一种方法尚且还行得通，在题目较多是就显得比较繁杂。因此，很多情况下都采用第二种。在第
vb.net 删除、修改TXT文件
weixin_44265429的博客
04-17 1007
vb.net 删除、修改TXT文件
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值