bin文件-「Excel-VBA」功能模块-文件及文件夹-04-文件全读取和写入

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用

功能模块中又包括很多子模块bin文件，本文涉及的是：文件及文件夹

今天讲讲一次读取全部文件和写入文件

Part 1：文件读取

有两种方法，方法1

Open WenjianAddr1 For Input As #1
TXTContent1 = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)

以vbCrLf作为分隔符bin文件，数组的每一个元素为文本的一行其中vbCrLf表示Chr(13) + Chr(10)，回车符与换行符结合其中LOF(1)，返回该文件的大小，以字节为单位InputB(LOF(1), #1)，返回整个文本StrConv，将文本转换为UnicodeSplit，以vbCrLf将整个文本进行分割，返回数组

有两种方法，方法2

Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateTrue = -1
Set strNewFileOpen = fso.OpenTextFile(WenjianAddr1, ForReading, TristateTrue)
HangContent = strNewFileOpen.ReadAll
TXTContent2 = Split(HangContent, vbCrLf)

Part 2：文件写入

有两种方法，方法1

Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateTrue = -1
Set strNewFileOpen = fso.OpenTextFile(WenjianAddr2, ForAppending, TristateTrue)
strNewFileOpen.WriteLine ("test1")
strNewFileOpen.Close

结合fso.OpenTextFile，使用WriteLine使用完毕后，直接关闭即可，无需另外保存，文件自动保存

有两种方法，方法2

Open WenjianAddr2 For Append As #2
Write #2, "abc", "1"
Print #2, "abc", "1"
Close #2

娜娜项目网每日更新创业和副业项目

网址：nanaxm.cn 点击前往娜娜项目网

站 长 微 信： nanadh666

图1 执行结果

以上，为本次的介绍内容，下回见。

娜娜项目网每日更新创业和副业项目

网址：nanaxm.cn 点击前往娜娜项目网

站 长 微 信： nanadh666