读取TXT文件

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