学习Excel技术，关注微信公众号：

excelperfect

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”的文件。

图2

以空格为分隔符读取内容给两个变量_问与答61： 如何将一个文本文件中满足指定条件的内容筛选到另一个文本文件中？...相关推荐

  1. asp.net中打印指定控件内容

    1.写一个PrintHelper类 using System; using System.Data; using System.Configuration; using System.Web; usi ...

  2. 没有第三个变量的前提下交换两个变量_多变量相关性分析(一个因变量与多个自变量)...

    目录: 前言 偏相关或复相关 意义与用途 分析方法: 1. 样本相关系数矩阵.相关系数检验 2. 复相关分析 3. 决定系数 (RMSE的介绍) 小结 一.前言: 继上一篇文章,继续探讨相关性分析,这 ...

  3. rest风格使用两个变量_为什么要用Rest风格，接口应该怎么定义，除了Rest还可用什么方式写接口的？...

    这里是修真院后端小课堂,每篇分享文从 深度思考中的知识点--为什么要用Rest风格,如果不用Rest的话,接口应该怎么定义,在使用Rest风格之前,大家都是用什么方式写接口的? 1.背景介绍 REST ...

  4. 怎么把页面内容填满一页_【2020手帐体系】超详细的设置思路和内容介绍~

    好久不见啦~太阳的2020手帐体系终于整理好了! 虽说已经快到五月了,所谓"2020手帐体系"有些姗姗来迟,但好饭不怕晚嘛~ 这次的文章,除了有体系的介绍,还有开始进行设置的一些思 ...

  5. WPS表格保存显示HTML,WPS表格中如何根据条件显示内容

    本教程适用版本:WPS Office 2019 PC版点此使用 工作中的达人们,是否会经常遇到根据某个条件显示相应内容的情况?特别是条件比较多的时候,我们常常会感到非常的苦恼,有时候常常会出错,下面就 ...

  6. java 截取字符串中的指定字符的内容（正则匹配）

       业务要求:截取传过来的字符串,截取出现的<small hidden="">2</small>中间的值,进行数据库更新操作. //需要处理的字符串(截取 ...

  7. sql delete删除两个表_超强干货！SQL语法大合集

    本文针对关系型数据库的一般语法.限于篇幅,本文侧重说明用法,不会展开讲解特性.原理. 1 基本概念 数据库术语 数据库(database):保存有组织的数据的容器(通常是一个文件或一组文件) 数据表( ...

  8. python不用中间变量交换值_不使用中间变量，交换int型的 a, b两个变量的值。

    不使用中间变量,交换int型的 a, b两个变量的值. 代码如下: //by ppchen var a = 10, b = 2; a = a + b; b = a - b; a = a - b; 代码 ...

  9. 4、Linux：如何在zip压缩文件中搜索指定内容

    我们知道,Linux 是支持多种的打包技术的,其中包括了 zip 压缩.最近呢,遇到了在 zip 压缩文件中搜索特定的字符串内容的需求.我试图从 grep.sed 及 awk 等命令中尝试实现这种搜索 ...

最新文章

  1. Docker学习笔记(4) — 开启Docker远程访问
  2. VLC视频播放器原理详细分析含TS流格式分析
  3. tensorflow 启动Session(tf.Session()，tf.InteractivesSession()，tf.train.Supervisor().managed_session() )
  4. xpath之string(.)方法
  5. 安装ARM交叉编译工具
  6. 在Oracle中利用SQL_TRACE跟踪SQL的执行
  7. Undefined symbols for architecture i386:问题解决
  8. vue实现增删改查功能
  9. 七牛上传图片问题总结
  10. 性能分析：处理器、磁盘I/O、进程、网络分析方法 http://www.cnblogs.com/fnng/archive/2012/10/30/2747246.html...
  11. 20190919-6 四则运算试题生成
  12. CNN | 02实现几何图形分类
  13. java条形码识别_java openCV 识别条形码
  14. Python入门习题（89）——OpenJudge百练习题：二分法求函数的零点
  15. 马云：阿里巴巴的最高机密是我们的组织架构图
  16. 复现CLOCs中spconv v1.0 (commit 8da6f96)踩坑记录
  17. BZOJ 2716/CH 4701 天使玩偶
  18. 支持指纹模块的服务器,指纹模块
  19. html转pdf 图片跨域问题解决
  20. 海中山——洋底的崇山峻岭

热门文章

  1. 请问：如何实现文件日志功能？要求每天换一个文件。文件名以日期区分
  2. 机器学习实战应用50讲（一）-使用student’s T检验的未必是学生
  3. 人工智能AI实战100讲（二）-自动驾驶传感器之激光雷达（一）激光雷达为何必不可少?
  4. linux下python开发环境搭建_linux下python开发环境之二——安装Eclipse+PyDev
  5. 类型之间的相互转换php,php学习之数据类型之间的转换介绍
  6. CVE-2017-15715漏洞复现
  7. python中、文件最重要的功能是( )和接收数据_Python基础语法14个知识点大串讲
  8. scss-@for 指令
  9. 前端学习笔记--HTTP缓存
  10. HTML 中点击a标签,页面跳转执行过程