'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.
'Createlyric
' But:
«Créez deux fichiers texte dans le dossier.
'Démontrer ce qui suit
'- FileSystemObject.CreateTextFile
'- textStream.writeline
'- textStream.write
'- textStream.writeblanklines
'- textStream.close
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.
Sub-Createlyric (dossier)
Textstream dim
Set textStream = Folder.CreateTextFile (OctopusGarden.txt)
TextStream.write (Garden Octopus) 'Notez que cette instruction n'ajoute pas de wraps de ligne au fichier.
TextStream.WriteLine ((par Ringo Starr))
TextStream.WriteBlanklines (1)
TextStream.Writeline (j'aimerais être sous la mer dans un jardin de poulpe à l'ombre,)
TextStream.writeline (il nous a laissé entrer, sait où nous avons été - dans le jardin de son poulpe à l'ombre.)
TextStream.WriteBlanklines (2)
TextStream.close
SET TextStream = Folder.CreateTextFile (Bathrowwindow.txt)
TextStream.Writeline (elle est entrée par la fenêtre de la salle de bain (par Lennon / McCartney))
TextStream.WriteLine ()
TextStream.Writeline (elle est entrée par la fenêtre de la salle de bain protégée par une cuillère en argent)
TextStream.Writeline (mais maintenant elle suce son pouce et ses erreurs par les rives de son propre lagon)
TextStream.WriteBlanklines (2)
TextStream.close
Sub-Sub
'Getlyrics
' But:
«Montrez le contenu du fichier de paroles.
'Démontrer ce qui suit
'- FileSystemObject.Opentextfile
'- FileSystemObject.getFile
'- textStream.readall
'- textStream.close
'- file.openastextstream
'- textstream.atendofstream
'- textStream.readline
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.
Fonction getlyrics (FSO)
Textstream dim
Sombre
Fichier
«Il existe plusieurs façons d'ouvrir un fichier texte et plusieurs façons de lire les données du fichier.
«Voici deux façons d'ouvrir et de lire les fichiers:
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.openStExtStream (OpenFileForreading)
Faire tout en ne faisant pas textstream.atendofstream
S = s & textstream.readline & newline
Boucle
TextStream.close
Getlyrics = s
Fonction finale