读取TXT文件

来源：互联网发布：smtp使用的端口号编辑：程序博客网时间：2024/05/12 17:46

定义一个变量fso
VBS Dim fso
创建并返回对对象Scripting.FileSystemObject的引用。这句我也不知道是不是这个意思~反正要读写TXT必须调用Scripting.FileSystemObject~所以这句你记着写就行了
VBS set fso=CreateObject("Scripting.FileSystemObject")
下面定义三个常量是在打开TXT文件时用于说明打开方式的~后面还会说到
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
判断文件是否存在，=0就表示不存在
If fso.FileExists("c:/test.txt")=0
endif
文件不存在的话可以建立一个新TXT文件，变量F中存放文件路径和文件名
vbs set myfile=fso.createtextfile(f)
刚创建的文件默认是以写操作方式打开的
文件存在的话可以打开
以读操作方式打开文件，forreading常量前面设了=1表示读方式
vbs set myfile=fso.opentextfile(f,forreading)
以写操作方式打开文件，forwriting常量前面设了=2表示写方式，此方式打开的文件不敢以前有没有内容打开时都变成空TXT文件~写的时候从第一行开始写，覆盖掉以前所有内容
vbs set myfile=fso.opentextfile(f,forwriting)
以追加写操作方式打开文件，forappending常量前面设了=8表示追加写方式，此方式打开文件时保留以前的内容~写的时候接在以前内容的后面一行开始写。
vbs set myfile=fso.opentextfile(f,forappending)
只有以读操作方式打开文件后可以读TXT文件的内容，刚打开的文件第一次读为第一行~再读一次为第二行
vbs a=myfile.readline
判断是否到达最后一行，如果到了就是-1如果没到就是0
myfile.atendofstream=-1
以写操作方式打开的文件可以进行写操作，一条写语句可以写入一行，第二次写为写入第二行，b是一个变量~里面是要写入的内容
vbs myfile.writeline(b )
如果a是一个数值变量则应转换成字符串再写
vbs myfile.writeline(cstr(b ))
关闭文件，若文件已用某种方式打开，需要以另一方式打开时需要先关闭
vbs myfile.close