''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

createlyrics

的目的:

在文件夹中创建两个文本文件。

以下演示

filesystemobject.createtextfile

- TextStream.WriteLine

写的文本。

textstream.writeblanklines

-文本。关闭

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Sub CreateLyrics(文件夹)


昏暗的文本


设置文本= folder.createtextfile(octopusgarden .txt)


文本。写(octopus'garden )请注意,这一说法不添加一行的文件。

textstream.writeline((林戈·斯塔尔))

(1)textstream.writeblanklines

textstream.writeline(我想在大海中的一个octopus'garden))

textstream.writeline(他会让我们知道我们曾经去过的地方,在他的章鱼))

(2)textstream.writeblanklines


关闭文本。


设置文本= folder.createtextfile(bathroomwindow .txt)

textstream.writeline(她通过浴室的窗户进来(列侬/麦卡尼))

textstream.writeline()

textstream.writeline(她通过浴室的窗户进来的银保护)

textstream.writeline(,但现在她吮大拇指和徘徊的银行))

(2)textstream.writeblanklines

关闭文本。


端子


getlyrics

的目的:

显示歌词文件的内容。

以下演示

filesystemobject.opentextfile

filesystemobject.getfile

- TextStream.ReadAll

-文本。关闭

file.openastextstream

textstream.atendofstream

- TextStream.ReadLine

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


功能getlyrics(FSO)


昏暗的文本

暗淡的

昏暗的文件


有很多方法可以打开文本文件,并以多种方式读取文件中的数据。

这里有两种打开文件并读取文件的方法:


设置文本= fso.opentextfile(testfilepath 披头士 octopusgarden .txt


S = TextStream.ReadAll NewLine NewLine

关闭文本。


设置文件= fso.getfile(testfilepath 披头士 bathroomwindow .txt)

设置文本= file.openastextstream(openfileforreading)

而不是TextStream.AtEndOfStream

S = S textstream.readline换行

环

关闭文本。


getlyrics = S


端功能