VBSの基本 - vbscript TextStreamオブジェクト

Dim strPath,strText
strPath = "C:\testing.txt"
strText = "This is Test !hello word ! "
'Call the function
Call CreateFile(strPath,strText)
 
Sub CreateFile(strPath,strText)
  Dim objFso,objStream
  'Create FileSystemObject object
  Set objFso = CreateObject("Scripting.FileSystemObject")
  'Use CreateTextFile(), to return a TextStream object handle
  Set objStream = objFso.CreateTextFile(strPath,True)
  'Three Write means: write characters in the text, write characters with line breaks, write 3 line breaks
  objStream.Write(strText)
  objStream.WriteLine(strText)
  objStream.WriteBlankLines 3
  'Close the TextStream object
  objStream.Close
End Sub

Call CreateFile("c:\test.txt", "This is Test ! " & vbCrLf & "hello word ! ")
 
Sub CreateFile(strPath,strText)
  Dim objFso,objStream
  'Create FileSystemObject object
  Set objFso = CreateObject("Scripting.FileSystemObject")
  'Use the FileSystemObject object CreateTextFile(), to return a TextStream object handle
  Set objStream = objFso.CreateTextFile(strPath,True)
  'Write characters
  objStream.WriteLine(strText)
  'Read string are: read the whole line, read all, read a specified number of characters
  Msgbox (objStream.ReadLine)
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  Msgbox (objStream.ReadAll)
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  Msgbox (objStream.Read(9))
  'Close the TextStream object
  objStream.Close
End Sub

Dim strPath,strText
strPath = "C:\test.txt"
'Call the function
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
  Dim objFso,objStream
  'Create FileSystemObject object
  Set objFso = CreateObject ("Scripting.FileSystemObject")
  'Use the FileSystemObject object CreateTextFile (), to return a TextStream object handle
  Set objStream = objFso.CreateTextFile(strPath,True)
  'Write characters in the text
  objStream.Write "This is Test ! " & vbCrLf & "hello word ! "
  'Open the file as read-only
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  'Skip 5 characters when reading the file; or skip the current line and read the next line
  objStream.Skip(5)
  Msgbox objStream.ReadAll
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  'Skip the first line
  objStream.SkipLine
  Msgbox objStream.ReadAll
  'Close the TextStream object
  objStream.Close
End Sub

Dim strPath,strText
strPath = "C:\test.txt"
'Call the function
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
  Dim objFso,objStream,str
  'Create FileSystemObject object
  Set objFso = CreateObject ("Scripting.FileSystemObject")
  'Open the file as read-only, or create it if it does not exist
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  'If the current pointer is not at the end of the line, then read the text content
  Do While objStream.AtEndOfLine <> true
    str = str + objStream.Read(1)
  Loop
  msgbox str
  str = ""
  Set objStream = objFso.OpenTextFile(strPath,1,true)
  'If the current pointer is not at the end of the text, then read the text content
  Do While objStream.AtEndOfStream <> true
    str = str + objStream.Read(1)
  Loop
  MsgBox str
  'Close the TextStream object
  objStream.Close
End Sub

Call TestTextStream("c:\test.txt")
 
Sub TestTextStream(strPath)
  Dim objFso,objTStream,str
  Set objFso = CreateObject("Scripting.FileSystemObject")
  'Open the file as read-only
  Set objTStream = objFso.OpenTextFile(strPath,1)
  'If the current pointer is not at the end of the entire document, read all the contents of the text
  Do While objTStream.AtEndOfStream <> true
    objTStream.ReadAll
    str = str + "Total" & objTStream.Line & "Line data, the last column number where the cursor is: " & objTStream.Column & vbCrLf
  Loop
  'Print message
  MsgBox str
End Sub  

Dim Fso,MyFile
Dim strLine
'Create FileSystemObject object
Set Fso = CreateObject("Scripting.FileSystemObject")
'Open the file as read-only
Set MyFile = Fso.OpenTextFile("C:\test.txt",1)
'Until you reach the end of the file
Do Until MyFile.AtEndOfStream
  'Read the entire current line of data
  strLine = MyFile.
Loop
MyFile.Close
MsgBox strLine

Dim Fso,MyFile
Dim strLine
'Create FileSystemObject object
Set Fso = CreateObject("Scripting.FileSystemObject")
'Open the file as read-only
Set MyFile = Fso.OpenTextFile("C:\test.txt",1)
Do Until MyFile.AtEndOfStream
  'Read the current whole line of string
  strNextLine = MyFile.ReadLine
  'Determine if the whole line read is a blank string
  If Len(strNextLine) > 0 Then
    'If it is not blank, then assign a value
    strLine = strNextLine
  End If
Loop
MyFile.Close
MsgBox strLine

MsgBox TestTextStream("c:\test.txt",1)
 
Function TestTextStream(strPath,IntLine)
  Dim Fso,MyFile
  Set Fso = CreateObject("Scripting.FileSystemObject")
  'Open the file as read-only
  Set MyFile = Fso.OpenTextFile(strPath,1)
  'If the current pointer is not at the end of the entire document, read the entire line of text
  Do Until MyFile.AtEndOfStream
    TestTextStream = MyFile.
    IntLine = IntLine - 1
    'determine whether the cursor has reached the specified line, to exit the function
    If IntLine = 0 Then
      Exit Function
    End If
  Loop
End Function