'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '' '' '' '' '' '' '' '' ''
'Createlyrics
' Tujuan:
'Buat dua file teks di folder.
'Menunjukkan yang berikut ini
' - FileSystemObject.createTextFile
' - TextStream.WriteLine
' - TextStream.Write
' - TextStream.WriteBlanklines
' - TextStream.Close
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '' '' '' '' '' '' '' '' ''
Sub CreateLyrics (folder)
Redup TextStream
Atur textStream = folder.createTextFile (octopusgarden.txt)
TextStream.write (gurita 'taman)' Perhatikan bahwa pernyataan ini tidak menambahkan bungkus baris ke file.
TextStream.WriteLine ((oleh Ringo Starr))
TextStream.WriteBlanklines (1)
TextStream.WriteLine (Saya ingin berada di bawah laut di taman gurita di tempat teduh,)
TextStream.WriteLine (Dia akan membiarkan kami masuk, tahu di mana kami berada - di taman gurita di tempat teduh.)
TextStream.WriteBlanklines (2)
TextStream.Close
Set TextStream = Folder.CreateTextFile (WHRINGHERWINDOW.TXT)
TextStream.WriteLine (dia masuk melalui jendela kamar mandi (oleh Lennon/McCartney))
TextStream.WriteLine ()
TextStream.WriteLine (dia masuk melalui jendela kamar mandi yang dilindungi oleh sendok perak)
TextStream.WriteLine (tapi sekarang dia mengisap ibu jarinya dan berkeliaran di tepi laguna sendiri)
TextStream.WriteBlanklines (2)
TextStream.Close
Akhir sub
'Getlyrics
' Tujuan:
'Tunjukkan isi file lirik.
'Menunjukkan yang berikut ini
' - FileSystemObject.OpentExtFile
' - FileSystemObject.getFile
' - TextStream.readall
' - TextStream.Close
' - file.openastextStream
' - TextStream.atendofstream
' - TextStream.readline
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '' '' '' '' '' '' '' '' ''
Function Getlyrics (FSO)
Redup TextStream
Redup
File redup
'Ada beberapa cara untuk membuka file teks, dan banyak cara untuk membaca data dari file.
'Berikut adalah dua cara untuk membuka dan membaca file:
Set TextStream = fso.opentextFile (testfilePath & /beatles/octopusgarden.txt, openfileForreading)
S = textStream.readall & newline & newline
TextStream.Close
Setel file = fso.getFile (testfilePath & /beatles/bathroomwindow.txt)
Set TextStream = File.openastextStream (OpenFileForreading)
Lakukan sementara bukan textStream.atendofstream
S = S & TextStream.Readline & Newline
Lingkaran
TextStream.Close
Getlyrics = s
Fungsi akhir