'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
'Kreyriken
' Zweck:
'Erstellen Sie zwei Textdateien im Ordner.
'Demonstrieren Sie Folgendes
' - DateiSystemObject.CreateTextFile
' - textstream.writeLine
' - textstream.write
' - textstream.writeblanklines
' - textstream.close
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
Subredeyrics (Ordner)
Dimer Textstream
Setzen Sie textstream = order.createTextfile (Octopusgarden.txt)
Textstream.write (Octopus 'Garden)' Beachten Sie, dass diese Anweisung der Datei keine Zeilenumschläge hinzufügt.
Textstream.WriteLine ((von Ringo Starr))
Textstream.writeblanklines (1)
Textstream.WriteLine (Ich möchte in einem Tintenfischgarten im Schatten unter dem Meer sein)
Textstream.writeLine (er hatte uns hereingelassen, weiß, wo wir gewesen sind - im Garten seines Tintenfleisches im Schatten.)
Textstream.writeblanklines (2)
Textstream.close
Setzen Sie textstream = order.createTextfile (BadezimmerWindow.txt)
Textstream.WriteLine (Sie kam durch das Badezimmerfenster (von Lennon/McCartney))
Textstream.writeLine ()
Textstream.WriteLine (Sie kam durch das Badezimmerfenster, das durch einen silbernen Löffel geschützt ist)
Textstream.WriteLine (jetzt saugt sie ihren Daumen und wandert an den Banken ihrer eigenen Lagune)
Textstream.writeblanklines (2)
Textstream.close
Ende sub
'Getyrics
' Zweck:
'Zeigen Sie den Inhalt der Lyrics -Datei.
'Demonstrieren Sie Folgendes
' - DateiSystemObject.opentextFile
' - DateiSystemObject.getFile
' - textstream.readall
' - textstream.close
' - File.OpenastextStream
' - textstream.atendofstream
' - textstream.readline
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
Funktion Getyrics (FSO)
Dimer Textstream
Dim s
Dim -Datei
'Es gibt mehrere Möglichkeiten, eine Textdatei zu öffnen, und mehrere Möglichkeiten, Daten aus der Datei zu lesen.
'Hier sind zwei Möglichkeiten, Dateien zu öffnen und zu lesen:
Set textStream = fso.opentextfile (testfilepath & /beatles/octopusgarden.txt, openFileForReading)
S = Textstream.readall & Newline & Newline
Textstream.close
Set File = fso.getFile (testfilepath & /beatles/bathroomwindow.txt)
Setzen Sie textStream = file.OpenastextStream (OpenFileForReading)
Tun, während nicht textstream.atendofstream
S = s & textstream.readline & newline
Schleife
Textstream.close
Getyrics = s
Endfunktion