''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' CreateLyrics
' Purpose:
' Create two text files in the folder.
' Demonstrate the following
' -
' -
' -
' -
' -
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub CreateLyrics(Folder)
Dim TextStream
Set TextStream = ("")
("Octopus' Garden ") ' Note that this statement does not add line wraps to the file.
("(by Ringo Starr)")
(1)
("I'd like to be under the sea in an octopus' garden in the shade,")
("He'd let us in, knows where we've been -- in his octopus' garden in the shade.")
(2)
Set TextStream = ("")
("She Came In Through The Bathroom Window (by Lennon/McCartney)")
("")
("She came in through the bathroom window protected by a silver spoon")
("But now she sucks her thumb and wanders by the banks of her own lagoon")
(2)
End Sub
' GetLyrics
' Purpose:
' Show the contents of the lyrics file.
' Demonstrate the following
' -
' -
' -
' -
' -
' -
' -
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetLyrics(FSO)
Dim TextStream
Dim S
Dim File
'There are multiple ways to open a text file, and multiple ways to read data from the file.
' Here are two ways to open and read files:
Set TextStream = (TestFilePath & "\Beatles\", OpenFileForReading)
S = & NewLine & NewLine
Set File = (TestFilePath & "\Beatles\")
Set TextStream = (OpenFileForReading)
Do While Not
S = S & & NewLine
Loop
GetLyrics = S
End Function
' CreateLyrics
' Purpose:
' Create two text files in the folder.
' Demonstrate the following
' -
' -
' -
' -
' -
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub CreateLyrics(Folder)
Dim TextStream
Set TextStream = ("")
("Octopus' Garden ") ' Note that this statement does not add line wraps to the file.
("(by Ringo Starr)")
(1)
("I'd like to be under the sea in an octopus' garden in the shade,")
("He'd let us in, knows where we've been -- in his octopus' garden in the shade.")
(2)
Set TextStream = ("")
("She Came In Through The Bathroom Window (by Lennon/McCartney)")
("")
("She came in through the bathroom window protected by a silver spoon")
("But now she sucks her thumb and wanders by the banks of her own lagoon")
(2)
End Sub
' GetLyrics
' Purpose:
' Show the contents of the lyrics file.
' Demonstrate the following
' -
' -
' -
' -
' -
' -
' -
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetLyrics(FSO)
Dim TextStream
Dim S
Dim File
'There are multiple ways to open a text file, and multiple ways to read data from the file.
' Here are two ways to open and read files:
Set TextStream = (TestFilePath & "\Beatles\", OpenFileForReading)
S = & NewLine & NewLine
Set File = (TestFilePath & "\Beatles\")
Set TextStream = (OpenFileForReading)
Do While Not
S = S & & NewLine
Loop
GetLyrics = S
End Function