'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.' '' '' '' '' '' '' '' ''
'المعلقات
' غاية:
إنشاء ملفين نصي في المجلد.
"إظهار ما يلي
' - fileSystemObject.createTextFile
' - TextStream.Writeline
' - textstream.write
' - textstream.writeBlanklines
' - TextStream.Close
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.' '' '' '' '' '' '' '' ''
المخلوقات الفرعية (مجلد)
Dim Textstream
تعيين textstream = folder.createTextFile (Octopusgarden.txt)
Extstream.write (Octopus 'Garden) "لاحظ أن هذا البيان لا يضيف لفات الخط إلى الملف.
TextStream.WriteLine ((بواسطة Ringo Starr))
TextStream.WriteBlanklines (1)
textstream.writeline (أود أن أكون تحت البحر في حديقة الأخطبوط في الظل ،))
textstream.writeline (لقد سمح لنا بالدخول ، يعرف أين كنا - في حديقة الأخطبوط في الظل.)
TextStream.WriteBlanklines (2)
TextStream.Close
تعيين textstream = folder.createTextFile (Bathrathwindow.txt)
textstream.writeline (جاءت عبر نافذة الحمام (بواسطة Lennon/McCartney))
textstream.writeline ()
textstream.writeline (جاءت من خلال نافذة الحمام محمية بواسطة ملعقة فضية)
TextStream.Writeline (لكنها الآن تمتص إبهامها وتجولها من قبل ضفاف البحيرة الخاصة بها)
TextStream.WriteBlanklines (2)
TextStream.Close
نهاية الفرعية
'getlyrics
' غاية:
إظهار محتويات ملف كلمات.
"إظهار ما يلي
' - fileSystemObject.OpentExtFile
' - fileSystemObject.getFile
' - TextStream.Readall
' - TextStream.Close
' - file.openastextstream
' - textstream.atendofstream
' - TextStream.Readline
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.' '' '' '' '' '' '' '' ''
وظيفة getlyrics (FSO)
Dim Textstream
قاتمة
ملف قاتمة
هناك طرق متعددة لفتح ملف نصي ، وطرق متعددة لقراءة البيانات من الملف.
فيما يلي طريقتان لفتح وقراءة الملفات:
تعيين 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)
افعل بينما لا TEXTSTEAM.ATENDOFSTEREAM
s = s & textstream.readline & newline
حلقة
TextStream.Close
getlyrics = s
وظيفة نهاية