- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' CreateLyrics
- ' 目的:
- ' 在文件夹中创建两个文本文件。
- ' 示范下面的内容
- ' - FileSystemObject.CreateTextFile
- ' - TextStream.WriteLine
- ' - TextStream.Write
- ' - TextStream.WriteBlankLines
- ' - TextStream.Close
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub CreateLyrics(Folder)
- Dim TextStream
- Set TextStream = Folder.CreateTextFile("OctopusGarden.txt")
- TextStream.Write("Octopus' Garden ") ' 请注意,该语句不添加换行到文件中。
- TextStream.WriteLine("(by Ringo Starr)")
- TextStream.WriteBlankLines(1)
- TextStream.WriteLine("I'd like to be under the sea in an octopus' garden in the shade,")
- TextStream.WriteLine("He'd let us in, knows where we've been -- in his octopus' garden in the shade.")
- TextStream.WriteBlankLines(2)
- TextStream.Close
- Set TextStream = Folder.CreateTextFile("BathroomWindow.txt")
- TextStream.WriteLine("She Came In Through The Bathroom Window (by Lennon/McCartney)")
- TextStream.WriteLine("")
- TextStream.WriteLine("She came in through the bathroom window protected by a silver spoon")
- TextStream.WriteLine("But now she sucks her thumb and wanders by the banks of her own lagoon")
- TextStream.WriteBlankLines(2)
- TextStream.Close
- End Sub
- ' GetLyrics
- ' 目的:
- ' 显示 lyrics 文件的内容。
- ' 示范下面的内容
- ' - FileSystemObject.OpenTextFile
- ' - FileSystemObject.GetFile
- ' - TextStream.ReadAll
- ' - TextStream.Close
- ' - File.OpenAsTextStream
- ' - TextStream.AtEndOfStream
- ' - TextStream.ReadLine
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Function GetLyrics(FSO)
- Dim TextStream
- Dim S
- Dim File
- ' 有多种方法可用来打开一个文本文件,和多种方法来从文件读取数据。
- ' 这儿用了两种方法来打开文件和读取文件:
- Set TextStream = FSO.OpenTextFile(TestFilePath & "\Beatles\OctopusGarden.txt", OpenFileForReading)
- S = TextStream.ReadAll & NewLine & NewLine
- TextStream.Close
- Set File = FSO.GetFile(TestFilePath & "\Beatles\BathroomWindow.txt")
- Set TextStream = File.OpenAsTextStream(OpenFileForReading)
- Do While Not TextStream.AtEndOfStream
- S = S & TextStream.ReadLine & NewLine
- Loop
- TextStream.Close
- GetLyrics = S
- End Function
filesystemobject组件的用法示例
2019-10-31 13:37asp教程网 ASP教程
filesystemobject组件的用法示例
延伸 · 阅读
- 2022-03-08React 非父子组件传参的实例代码
- 2022-03-07易语言给组件上加载图片方法步骤
- 2022-03-06易语言农历月历组件使用方法
- 2022-03-06详解易语言透明标签组件
- 2022-03-03易语言寻找组件的使用技巧
- 2022-03-03C/C++ Qt Dialog 对话框组件应用技巧
精彩推荐
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...