'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Createlyrics
' Objetivo:
'Cree dos archivos de texto en la carpeta.
'Demuestre lo siguiente
' - FileSystemObject.CreateTextFile
' - TextStream.Writeline
' - Textstream.write
' - TextStream.WriteBlankLines
' - Textstream.close
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Sub Createlyrics (carpeta)
Dim TextStream
Establecer textStream = folder.CreateTextFile (Octopusgarden.txt)
TextStream.Write (Octopus 'Garden)' Tenga en cuenta que esta declaración no agrega envolturas de línea al archivo.
Textstream.writeline ((por Ringo Starr))
Textstream.writblanklines (1)
TextStream.WriteLine (me gustaría estar bajo el mar en un jardín de pulpo a la sombra),)
Textstream.writeline (él nos dejaría entrar, sabía dónde hemos estado, en el jardín de su pulpo a la sombra).
Textstream.writblanklines (2)
Textstream.close
Establecer textstream = carpeta.createTextFile (boathwindow.txt)
TextStream.WriteLine (entró por la ventana del baño (por Lennon/McCartney)))
Textstream.writeline ()
TextStream.WriteLine (entró por la ventana del baño protegida por una cuchara plateada)
TextStream.WriteLine (pero ahora se la chupa el pulgar y deambula por las orillas de su propia laguna)
Textstream.writblanklines (2)
Textstream.close
Final
'Getlyrics
' Objetivo:
'Muestra el contenido del archivo de letras.
'Demuestre lo siguiente
' - filesystemObject.OpENtextFile
' - filesystemObject.getFile
' - TextStream.Readall
' - Textstream.close
' - file.openastextstream
' - textstream.atendofstream
' - TextStream.Readline
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Función getlyrics (FSO)
Dim TextStream
Atenuante
Archivo DIM
'Hay varias formas de abrir un archivo de texto y múltiples formas de leer datos del archivo.
'Aquí hay dos formas de abrir y leer archivos:
Establecer textStream = fso.opentextFile (testFilePath & /Beatles/octopusgarden.txt, openFileForreading)
S = TextStream.Readall & Newline y Newline
Textstream.close
Establecer archivo = fso.getfile (testFilePath & /beatles/bathroomwindow.txt)
Establecer textstream = file.openastextstream (openFileForreading)
Haz mientras no textstream.atendofstream
S = s & textstream.readline y newline
Bucle
Textstream.close
Getlyrics = s
Función final