如何将一个文本文件中满足指定条件的内容筛选到另一个文本文件中？
发布时间：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”的文件。
0
投稿猜你喜欢
多台电脑共享打印机怎么设置？打印机是计算机的输出设备之一，用于将计算机处理结果打印在相关介质上。现在电子商务家庭越来越离不开打印机了。想要打- win10正版发布到如今，已经过去一个多月的时间，但是win10还是存在软件兼容的问题，用户在使用Win10系统的时候，难免会遇到CPU使用
- 很多朋友安装使用了Windows7新系统后，总是犯了一个小小的错误，拿着XP或者Vista时代的一些优化设置软件或者技巧来设置系
- 苹果Mac电脑和iPhone手机上的“查找我”是非常重要的一项功能，使用该功能可以查看设备的位置，远程锁定设备或擦除数据等，因此，很多用户都
- 我们在利用WPS文字和Word文档办公的时候，经常会在文档中插入表格，在表格中输入文字时，不调整排版的话，文字间的行距会比较大，占很大的篇幅
- Win10 RS5快速预览版17666更新了哪些内容？今天微软更新了RS5快速预览版17666，这个版本更新了哪些内容？下面我们就看看Win
- win10系统的个性化功能是根据分辨率来调整桌面以及默认字体的，但是很多用户都会觉得字体显得太小，看的时间久了容易疲劳，那win10字体大小
- 当我们需要打印PDF文件却打印不了，这时候该怎么办呢？不要着急，今天我们和大家分享的就是PDF文件打印不了怎么办。首先我们打开PDF文件，点
- 许多用户在使用Python的时候都会安装一些旧的版本，因为某些新版本在使用的过程会出现一些问题。但是不少用户电脑中有新版本再安装旧版本的Py
- 4 月 3 日消息 在 3 月下旬发布 iOS 14.4.2 正式版后，苹果公司今天停止了对 iOS 14.4.1 的验证。这意味着更新到
- 对于桌面版Windows 7的消息我们已经听到了不少，最近的消息是微软表示将不再推出Windows 7的Beta版本，下一个升级版本将是最接
- Win10商店怎么换区？很多用户在使用Win10系统的电脑时很喜欢在微软商店中下载各种软件，而有部分用户在使用的过程中想要去进行换区却不知道
- excel表格内怎么换行？在excel表格编辑过程中，有时候需要在单元格里进行内容的备注或者说明，但是如果内容过长的话，就无法显示全部的文字
- 小组件是win11新增的一项功能，有些小伙伴觉得很有用，有些小伙伴就觉得没什么作用，那怎么才能禁用或删除小组件呢？下面我们就来一起看看win
- 有不少小伙伴想要把自己的win7系统更换成win10系统使用，但是自己不知道如何安装win10系统，有了解有没简单的一键重装系统的方法。其实
- 三国志14是一款非常优秀的战争策略游戏，不少小伙伴都在玩，但是还有不少小伙伴出现了无法打开三国志14的现象，那么遇到这种问题应该怎么办呢?下
- 有些老式的两键鼠标是没有滚轮的，因此在使用Word时往往要移到窗口右边拖动垂直滚动条来实现较长的个人简历阅读翻页时十分不便。那么有没有较好的
- 巧影app怎么保存视频？巧影app是一款非常不错的视频编辑软件，用户们可以使用这款软件进行编辑视频、图片等，那么在巧影app中要怎么保存视频
- 解析包时出现问题如何解决？安卓APP在安装的时候如果出现意味的操作，极容易出现“解析包时出现错误”的提示，当然这种情况极其少见，更多的原因是
- 我们可以在wps演示中制作各种各样的艺术字效果，例如我们可以在wps演示中制作波浪文字效果，下面就让小编告诉你wps演示如何制作波浪文字效果
