'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'ТЕРИРЕСЯТИКА
' Цель:
'Создайте два текстовых файла в папке.
'Продемонстрировать следующее
' - fileSystemobject.createTextFile
' - textstream.writeline
' - textstream.write
' - Textstream.WriteBlanklines
' - textstream.close
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Sub CreateryRics (папка)
Dim Textstream
SET TextStream = folder.createTextFile (octopusgarden.txt)
TextStream.Write (Octopus 'Garden).
TextStream.WriteLine ((от Ringo Starr))
Textstream.WriteBlanklines (1)
Textstream.Writeline (я бы хотел быть под морем в саду осьминога в тени,)
Textstream.Writeline (он впустил нас, знает, где мы были - в саду своего осьминога в тени.)
Textstream.WriteBlanklines (2)
Textstream.close
SET TextStream = folder.createTextFile (wantywindow.txt)
TextStream.Writeline (она вошла в окно ванной комнаты (от Леннона/Маккартни))
Textstream.WriteLine ()
Textstream.Writeline (она вошла через окно ванной комнаты, защищенное серебряной ложкой)
Textstream.writeline (но теперь она сосет большой палец и бродит по берегам своей собственной лагуны)
Textstream.WriteBlanklines (2)
Textstream.close
Конец суб
'Getlyrics
' Цель:
'Показать содержимое файла текста.
'Продемонстрировать следующее
' - fileystemobject.opentextfile
' - fileystemobject.getFile
' - textstream.readall
' - textstream.close
' - file.openastextStream
' - Textstream.atendofstream
' - textstream.readline
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Функция getlyrics (FSO)
Dim Textstream
Смутный
DIM -файл
«Есть несколько способов открыть текстовый файл и несколько способов считывать данные из файла.
'Вот два способа открыть и читать файлы:
Установите TextStream = fso.opentextfile (testfilepath & /beatles/octopusgarden.txt, openfileforreading)
S = TextStream.readall & Newline & Newline
Textstream.close
Set file = fso.getfile (testfilepath & /beatles/bathroomwindow.txt)
Установите TextStream = file.openastextStream (OpenFileForreading)
Делай, пока не текстовые тексты.
S = s & textstream.readline & newline
Петля
Textstream.close
Getlyrics = s
Конечная функция