欢迎来到天天文库
浏览记录
ID:24190420
大小:53.00 KB
页数:4页
时间:2018-11-13
《filesystemobject组件的用法示例》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、filesystemobject组件的用法示例’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’CreateLyrics’目的:’在文件夹中创建两个文本文件。’示范下面的内容’-FileSystemObject.CreateTextFile’-TextStream....Close’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
2、’’’’’’SubCreateLyrics(Folder)DimTextStreamSetTextStream=Folder.CreateTextFile("OctopusGarden.txt")TextStream......CloseSetTextStream=Folder.CreateTextFile("BathroomeInThroughTheBathroom.einthroughthebathroom..CloseEndSub’GetLyrics’目的:’显示lyrics文件的内容。’示范下面的
3、内容’-FileSystemObject.OpenTextFile’-FileSystemObject.GetFile’-TextStream.ReadAll’-TextStream.Close’-File.OpenAsTextStream’-TextStream.AtEndOfStream’-TextStream.ReadLine’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’FunctionGetLyric
4、s(FSO)DimTextStreamDimSDimFile’有多种方法可用来打开一个文本文件,和多种方法来从文件读取数据。’这儿用了两种方法来打开文件和读取文件:SetTextStream=FSO.OpenTextFile(TestFilePath"BeatlesOctopusGarden.txt",OpenFileForReading)S=TextStream.ReadAllNep;Ne.CloseSetFile=FSO.GetFile(TestFilePath"BeatlesBathroom
5、(OpenFileForReading)Do.AtEndOfStreamS=STextStream.ReadLine&12下一页>>>>这篇文章来自..,。nbsp;Ne.CloseGetLyrics=SEndFunction上一页12>>>>这篇文章来自..,。
此文档下载收益归作者所有