IDC资讯中心
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("id like to be under the sea in an octopus garden in the shade,")
textstream.writeline("hed let us in, knows where weve 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
