vb读取文件夹中所有的txt文件

使用VB内建函数读取文本文件

1/3

双击Command1添加如下代码

Private Sub Command1_Click()

    Dim strFile     As String

    Dim intFile     As Integer

    Dim strData     As String

    strFile = "c:\学生成绩.txt"

    intFile = FreeFile

    Open strFile For Input As intFile

    strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

    Debug.Print strData

    Close intFile

End Sub

2/3

运行代码读取文件

按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

查看剩余1张图

3/3

关键代码说明

intFile = FreeFile：获取一个文件句柄

Open strFile For Input As intFile ：打开文件

FileLen(strFile) ：获取文件内容字节大小

InputB：读取文件内容字节流

StrConv：将字节流转换为Unicode字符串

Debug.Print strData：将字符串内容输出到立即窗口

Close intFile：关闭文件句柄

使用FileSystemObject读取文本文件

1/3

添加Microsoft Scripting Runtime引用

点击Project菜单，再点击下拉菜单中的Reference，打开引用对话框，浏览找到Microsoft Scripting Runtime引用，选择后点确定按钮。

查看剩余1张图

2/3

双击Command2添加如下代码

Private Sub Command2_Click()

    Dim objFS

3/3

运行代码读取文件

按F8开始单步调试代码，点击Command2，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

首先要知道文件夹内所有txt文件的名称，然后使用fopen函数分别打开哥哥txt文件，分别读入即可。

1.fopen的函数原型：FILE * fopen(const char * path,const char * mode)

  fopen函数的第一个参数是文件路径，第二个参数是打开方式，有以下几种方式：

r 以只读方式打开文件，该文件必须存在。

r+ 以可读写方式打开文件，该文件必须存在。

rb+ 读写打开一个二进制文件，允许读数据。

rw+ 读写打开一个文本文件，允许读和写。

w 打开只写文件，若文件存在则文件长度清为0，即该文件内容会消失。若文件不存在则建立该文件。

w+ 打开可读写文件，若文件存在则文件长度清为零，即该文件内容会消失。若文件不存在则建立该文件。

a 以附加的方式打开只写文件。若文件不存在，则会建立该文件，如果文件存在，写入的数据会被加到文件尾，即文件原先的内容会被保留。（EOF符保留）

a+ 以附加方式打开可读写的文件。若文件不存在，则会建立该文件，如果文件存在，写入的数据会被加到文件尾后，即文件原先的内容会被保留。 （原来的EOF符不保留）

wb 只写打开或新建一个二进制文件；只允许写数据。

wb+ 读写打开或建立一个二进制文件，允许读和写。

wt+ 读写打开或着建立一个文本文件；允许读写。

at+ 读写打开一个文本文件，允许读或在文本末追加数据。

ab+ 读写打开一个二进制文件，允许读或在文件末追加数据。

上述的形态字符串都可以再加一个b字符，如rb、w+b或ab+等组合，加入b 字符用来告诉函数库打开的文件为二进制文件，而非纯文字文件。

    返回值：文件顺利打开后，指向该流的文件指针就会被返回。如果文件打开失败则返回NULL，并把错误代码存在errno中。

2.例程：

#include<stdio.h>

#define F_PATH "d:\\myfile\\file.txt"

#define F_PATH1 "d:\\myfile\\file1.txt"

char c

int main(){

    FILE*fp=NULL//需要注意

    fp=fopen(F_PATH,"r")    //打开第一个txt文件

    if(NULL==fp) return -1//要返回错误代码

    while(fscanf(fp,"%c",&c)!=EOF) printf("%c",c) //从文本中读入并在控制台打印出来

    fclose(fp)

    fp=NULL//需要指向空，否则会指向原打开文件地址

    fp=NULL//需要注意

    fp=fopen(F_PATH1,"r")    //打开第二个txt文件

    if(NULL==fp) return -1//要返回错误代码

    while(fscanf(fp,"%c",&c)!=EOF) printf("%c",c) //从文本中读入并在控制台打印出来

    fclose(fp)

    fp=NULL//需要指向空，否则会指向原打开文件地址   

    return 0

}

---