czjt1234

Set objTextStream = objFSO.OpenTextFile("D:\test.txt",1|2|8,True|False,-2|-1|0)
'打开文件，返回 TextStream 对象
'可以读写文件内容，不能使用文件属性，不可以复制、移动、删除文件
'True表示文件不存在时自动新建文件，False为不新建(缺省值)
  Const ForReading         = 1   '只读(缺省值)
  Const ForWriting         = 2   '清空文件，覆盖写入
  Const ForAppending       = 8   '在文件末尾追加写入
  Const TristateUseDefault = -2  '以系统默认格式打开文件
  Const TristateTrue       = -1  '以 Unicode 格式打开文件
  Const TristateFalse      = 0   '以 ASCII 格式打开文件(缺省值)

objTextStream.Skip(3)
'在读取数据时，跳过3个字符，光标位置移到3个字符之后
'每行末尾的回车换行算2个字符
'要求打开方式为只读

objTextStream.SkipLine
'在读取数据时，跳过一行，光标位置移到下一行行首
'要求打开方式为只读

strRead = objTextStream.Read(3)
'从光标位置读取3个字符，光标移到3个字符之后
'要求打开方式为只读

strRead = objTextStream.ReadLine
'从光标位置读取一行，光标移到下一行行首
'要求打开方式为只读

strRead = objTextStream.ReadAll
'从光标位置读取文件所有内容，光标移到文末
'要求打开方式为只读

blnYN = objTextStream.AtEndOfLine
'判断光标位置是否在某一行末尾，返回True|False
'要求打开方式为只读

blnYN = objTextStream.AtEndOfStream
'判断光标位置是否在文末，返回True|False
'要求打开方式为只读

objTextStream.Write "test"
'从光标位置插入字符串

objTextStream.WriteLine "test"
'从光标位置插入字符串，并回车换行

objTextStream.WriteBlankLines 5
'从光标位置插入5个空行

strRead = objTextStream.Line
'返回当前光标所在行号

strRead = objTextStream.Column
'返回当前光标所在列号

objTextStream.Close
'关闭文件对象，立刻保存到磁盘

czjt1234

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("D:\test.txt", 8, True)
'这里的8代表追加文件内容，要清空原有文件内容换成2
objTextStream.WriteLine "111"
objTextStream.WriteLine "222"
objTextStream.Close
复制代码