'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은
'Createlyrics
' 목적:
'폴더에서 두 개의 텍스트 파일을 만듭니다.
'다음을 보여주십시오
' - FileSystemObject.CreatetExtFile
' - TextStream.WriteLine
' - TextStream.write
' - textstream.writeblanklines
' - TextStream.close
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은
서브 Createlyrics (폴더)
Dim TextStream
set textstream = folder.createtextFile (OctopusGarden.txt)
TextStream.write (Octopus 'Garden)'이 문은 파일에 줄 랩을 추가하지 않습니다.
Texttream.WriteLine ((Ringo Starr))
textstream.writeblanklines (1)
TextStream.WriteLine (그늘에있는 문어의 정원에서 바다 아래에 있고 싶습니다.)
Textstream.writeline (그는 우리가 우리가 어디에 있었는지 알게되었을 것입니다. 그의 문어의 정원에서 그늘에 있습니다.)
textstream.writeblanklines (2)
textstream.close
set textstream = 폴더.createtextfile (Bathingwindow.txt)
TextStream.WriteLine (그녀는 욕실 창문을 통해 들어 왔습니다 (Lennon/McCartney))
textstream.writeline ()
TextStream.WriteLine (그녀는 은색 숟가락으로 보호되는 욕실 창문을 통해 들어 왔습니다)
Textream.WriteLine (그러나 이제 그녀는 그녀의 엄지 손가락을 빨고 자신의 석호의 은행에 의해 방황합니다)
textstream.writeblanklines (2)
textstream.close
종료 서브
'첨단
' 목적:
'가사 파일의 내용을 보여줍니다.
'다음을 보여주십시오
' - FileSystemObject.opentExtFile
' - FileSystemObject.getFile
' - TextStream.readall
' - TextStream.close
' - 파일 .openastextstream
' - TextStream.atendOfStream
' - TextStream.Readline
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '은
기능 어수자 (FSO)
Dim TextStream
희미한 s
희미한 파일
'텍스트 파일을 여는 방법에는 여러 가지가 있으며 파일에서 데이터를 읽는 여러 가지 방법이 있습니다.
'파일을 열고 읽는 두 가지 방법은 다음과 같습니다.
set textstream = fso.opentextfile (testfilepath & /beatles/octopusgarden.txt, OpenFileforReading)
S = TextStream.readall & Newline & Newline
textstream.close
set file = fso.getfile (testFilePath & /beatles/bathroomwindow.txt)
set textStream = file.openastExtStream (OpenFileForReading)
텍스트 스트림이 아닌 상태에서 수행하십시오
s = s & textstream.readline & newline
고리
textstream.close
agyrics = s
엔드 기능