''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Createlyrics
' Propósito:
'Crie dois arquivos de texto na pasta.
'Demonstrar o seguinte
' - filesystemobject.createTextFile
' - textstream.writeLine
' - textstream.write
' - textstream.writeblankines
' - textstream.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Createlyrics (pasta)
Dim TextStream
Definir textstream = pasta.createTextFile (Octopusgarden.txt)
TextStream.Write (Octopus 'Garden)' Observe que esta instrução não adiciona envoltórios de linha ao arquivo.
Textstream.WriteLine ((de Ringo Starr))
Textstream.writeblankines (1)
Textstream.writeLine (eu gostaria de estar embaixo do mar em um jardim de polvo na sombra,)
Textstream.WriteLine (ele nos deixou entrar, sabe onde estivemos - no jardim de seu polvo na sombra.)
Textstream.writeblankines (2)
Textstream.close
Definir textstream = pasta.createTextFile (bairrowindow.txt)
Textstream.WriteLine (ela entrou pela janela do banheiro (por Lennon/McCartney))
Textstream.WriteLine ()
Textstream.writeLine (ela entrou pela janela do banheiro protegida por uma colher de prata)
Textstream.WriteLine (mas agora ela chupa o polegar e as vagas pelas margens de sua própria lagoa)
Textstream.writeblankines (2)
Textstream.close
Final sub
'Getlyrics
' Propósito:
'Mostre o conteúdo do arquivo de letras.
'Demonstrar o seguinte
' - filesystemobject.opentExtFile
' - filesystemobject.getfile
' - textstream.readall
' - textstream.close
' - file.openastextstream
' - textstream.atendofstream
' - textstream.readline
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Função getlyrics (FSO)
Dim TextStream
Dim s
Arquivo escuro
'Existem várias maneiras de abrir um arquivo de texto e várias maneiras de ler dados do arquivo.
'Aqui estão duas maneiras de abrir e ler arquivos:
Definir textstream = fso.opentExtfile (testFilePath & /beatles/octopusgarden.txt, OpenFileForReading)
S = textstream.readall & newline & newline
Textstream.close
Definir arquivo = fso.getfile (testfilepath & /beatles/bathroomwindow.txt)
Definir TextStream = File.openastextStream (OpenFileForReading)
Faça, embora não seja o textstream.atendofstream
S = s & textstream.readline & newline
Laço
Textstream.close
Getlyrics = s
Função final