如何将一个文本文件中满足指定条件的内容筛选到另一个文本文件中?
发布时间:2023-07-27 20:21:41
Q:如下图1所示,一个名为“InputFile.csv”文件,每行有6个数字,每个数字使用空格分隔开。
图1
现在,我要将以60至69开头的行放置到另一个名为“OutputFile.csv”的文件中。图1中只是给出了少量的示例数据,我的数据有几千行,如何快速对这些数据进行查找并将满足条件的行复制到新文件中?
A:VBA代码如下:
Sub FilterTextFile()
Dim ReadLine As String
Dim buf
‘使用Open语句打开或创建文件
OpenThisWorkbook.Path & “\InputFile.csv” For Input As #1
OpenThisWorkbook.Path & “\OutputFile.csv” For Output As #2
‘循环直至到达指定文件末尾
Do Until EOF(1)
‘读取文件中的一行并将其赋值给ReadLine变量
Line Input #1, ReadLine
‘将ReadLine中的字符串拆分成数组
buf =Split(ReadLine, ” “)
‘判断数组的第1个值是否处于60至69之间
‘如果是则将其写入文件号指定的文件
If buf(0) >= 60 And buf(0) < 70 Then
Print #2, ReadLine
End If
Loop
‘关闭文件
Close #2
Close #1
End Sub
代码假设“InputFile.csv”和“OutputFile.csv”文件都放置在与代码工作簿相同的文件夹中。
代码中:
1.第1个Open语句用来打开“InputFile.csv”文件,指定文件号#1。
2.第2个Open语句用来创建“OutputFile.csv”文件,指定文件号#2。由于文件夹中事先没有这个文件,因此Excel会在文件夹中创建这个文件。
3.EOF(1)用来检测是否到达了文件号#1的文件末尾。
4.Line Input语句从文件号#1的文件中逐行读取其内容并将其赋值给变量ReadLine。
5.Split函数将字符串使用指定的空格分隔符拆分成下标以0为起始值的一维数组。
6.Print语句将ReadLine变量中的字符串写入文件号#2的文件。
7.Close语句关闭指定的文件。
代码的图片版如下:
运行代码后,将在工作簿所在的文件夹中生成一个如下图2所示的名为“OutputFile.csv”的文件。
猜你喜欢
- 使用word编辑文字时,想统计一下字数或者符号不知道怎么操作,其实不用烦恼,在Word文档中可以统计字数,方法也不难。以下是小编为您带来的关
- 当在Excel单元格中键入日期或时间时,它会以默认的日期和时间格式显示。默认的日期和时间基于在 Windows 控制面板中指定的区域日期和时
- 这篇教程是向脚本之家的朋友分享Word怎么制作条形统计图方法,教程比较基础,只需几步即可完成,推荐到脚本之家,大家一起来学习吧用EXCEL我
- iOS 16并无大惊,甚至可以说“有多大希望就有多大失望”!更何况尝鲜的 iOS 16 是测试版,所以不出意外的存在各种 bug 以及发热续
- 将office2016许可版切换为Office 365授权即Office许可证的删除和切换问题。相信添加Office许可证大家都没问题
- 在使用Word的过程中,我们经常会碰到要在文档中划出横线、着重线、虚线等。下面总结了四种方法: 工具/原料word
- 席卡就是介绍领导的牌子,一般是红底黑字。那如何用Word和A4纸来设计席卡呢?下面小编给大家简单的介绍一下。第一步:点击【页面布局】,在纸张
- 有的姓名是三个字,有的姓名是两个字,有的人为了把姓名对齐,往往用插入空格的方法。实际上这种方法不好原因:利用Excel的查找功能可能出错,或
- Word2007交叉输入汉字和英文间距变大该怎么办?在汉字和英文字母交叉输入时,我们会突然地发现字间距神奇的变大了,看着很是不爽,同时也不符
- iCloud 是 iPhone 等设备中非常实用的一项功能,能够让用户所有的照片、通讯录、备忘录在苹果设备上同步,并且保持最新的状态。开启“
- 如果你正在使用Word编辑一篇介绍四则运算的表格,需要在文档中列出算式及结果。为此,你或许会拿出计算器或者求助于“开始”菜单“附件”中的“计
- 在12月11日,微软再次发布了win10的系统版本更新,这次更新是win1019041,也就是Windows1020H1快速预览版和慢速预览
- 我们打印一篇有很多页的文档时,Word默认总是从第一页打印到最后一页,所以文档打印完后是最后一页在最上面,第一页在最下面,是按页号的逆序排列
- 将金额填写成正规收据的格式,是EXCEL做账时经常遇到的问题。如下表:公式实现在B2单元格输入公式:公式向右和向左填充,即得记账形式的金额。
- win10系统的用户都知道微软会对win10系统推出定期更新,但是这些更新经常会“翻车”,导致系统无法正常启动或者某些功能出现严重bug,下
- 在我们的工作或学习中难免会遇到一些表格问题,例如,有的表格中会有一些空表部分,而我们需要将这些空白的部分填写统一的数字,那么在Excel中怎
- 很多朋友发现批注在Excel打开时是可见到的,在打印预览中不可见,打印也没有打印出来.那到底要如何才能显示打印呢?今天小编就为大家带来exc
- word中怎么随意修改箭头的方向?作流程图的箭头都是随意指向一个流程的,不一定固定指向一个方向,该怎么修改箭头的方向呢?下面小编就分享wor
- 今天为大家介绍一个免费无限制的网页版离线文字识别提取 OCR 工具PearOCR!这网站能直接对图片进行 OCR 离线文字识别,完全免费,方
- 今天我们来分享Excel模板代码的教程,看看如何打开一个Excel模板文件填充数据另存为一个文件。具体代码如下呈现:string strFi