FileSystemObject读写文本文件

翻译|其它|编辑:郝浩|2004-03-15 09:37:00.000|阅读 1372 次

概述:

# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>

你可以通过调用OpenTextFile方法来读取一个文本文件。OpenTextFile方法的第一个参数是指定打开的文件名;第二个参数是指定文件是读取,增添,或者写入;第三个参数决定当指定的文件名不存在时新的文件是否要建立;第四个参数指定文件的格式是ASCII 还是Unicode。这一方法返回的是一个TextStream对象。

  下面的代码段将一个文本文件中的内容读入一个TextBox控件。TextStream中的ReadAll方法用于读出文件的内容,然后使用Close方法来关闭文件。

Dim objFSO As FileSystemObject
Dim objText As TextStream

Set objFSO = New FileSystemObject

Set objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
ForReading, False, TristateUseDefault)
Text1.Text = objText.ReadAll()
Call objText.Close

  为了能够在一个文本文件中写入内容,可以先打开文件,然后使用TextStream中的Write方法输入需要的值。

Set objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
ForWriting, False, TristateUseDefault)
Call objText.Write(Text1.Text)
Call objText.Close
标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@evget.com


为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP