Function  TextStream::ReadAll() as string

テキストストリームから全て取り出します。

【引数】

返り値

テキストストリームから取り出した内容

2MB 以上であっても取得できます。

返り値は、Len でサイズを取得してもファイルサイズではありません。
0x0D 0x0A を 0x0D に変換しません。
0x00 も取得できます。
0xEAEB は、0x8145 に変わります。

(Web)

Sub  TextStream::Skip( n as integer )

テキストストリームを指定した文字数だけスキップします。

(Web)

Sub  TextStream::SkipLine()

テキストストリームを１行スキップします。

(Web)

指定した行へ移動するサンプル：

Property Get  TextStream::Line() as integer

テキストストリームの現在の行番号。（１〜）
次にアクセスする行番号。

(Web)

１行目をリード/ライトしたら、Line = 2 になります。

ファイルの最後の行をリードしたときは、＋１されません。

関連

→ GetLineCount

Dim  TextStream::AtEndOfStream  as boolean

ストリームの最後なら True

(Web)

Shell:Exec で起動したプログラムから出力される標準出力ストリームに
バッファリングされた文字がないときは、False を返します。

標準入力ストリームにバッファリングされた文字がないときは、待ち状態に
入ります。改行文字がバッファリングされ、改行文字の前に文字が入力されて
いなかったら True、文字が入力されていたら False を返します。

ファイルの最後が改行文字のとき、その改行文字をリードしたら、AtEndOfStream
= True になります。

Sub  TextStream::Write( Text as string )

テキストストリームに出力します。

(Web)

Sub  TextStream::WriteLine( Text as string )

テキストストリームにテキストと改行を出力します。

Sub  TextStream::WriteBlankLines( LengthOfLine as integer )

テキストストリームに複数の改行を出力します。

'********************************************************************************
'  <<< [EchoStream] echo supported No vbCRLF >>>
'********************************************************************************
Dim  g_EchoStreamBuf
Sub  EchoStream( StreamIn, StreamOut )
  Dim  s, c

  Do Until StreamIn.AtEndOfStream
    c = StreamIn.Read(1)
If g_EchoStreamBuf="続行するには何かキーを押してください . . ." Then
 Stop
End If
    If c <> vbCR and c <> vbLF Then _
      g_EchoStreamBuf = g_EchoStreamBuf + c
    If c = vbLF Then
      WScript.Echo  vbCR + g_EchoStreamBuf : g_EchoStreamBuf = ""
    Else
      StreamOut.Write  c
    End If
  Loop
End Sub

Shell::Exec

で起動したコマンドライン・プログラムでは、バッチファイルの pause が正しく

動きません。

WshScriptExec::StdIn.ReadLine を呼ぶと、改行コードが入力されるまで戻ってきません。
WshScriptExec::StdIn.AtEndOfStream や、Read、ReadAll もなぜか戻ってきません。
このため、pause で表示される「続きを実行するとき…」のメッセージは表示されません。
１文字ずつ表示しても、文字の終了が AtEndOfStream で判定しようとすると戻ってこなく
なるので、使えません。

１文字ずつ表示する echo だが、AtEndOfStream で止まることの実証コード：

2&>1 で標準エラー出力を標準出力にリダイレクトすると、止まらないことがあります。

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "public", "dst\public", True
Set fs = Nothing

フォルダをコピーする

Dim g_fs, folder, file
Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
Set folder = g_fs.GetFolder( "C:\folder" )
For Each  file  In  folder.Files
    file.Name,  file.Path  '// ここに処理を書く
Next
folder = Empty
g_fs = Empty

    Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
    Set file = g_fs.CreateTextFile( path ******, True, False )

    file.Write  "改行なし。"
    file.WriteLine "ファイル= " & path  '// 最後に 0x0D, 0x0A を出します
    file.WriteBlankLines 1  '// ブランク行を1行書き込む

    file.Close  '// 必要
    file = Empty
    g_fs = Empty

テキストファイルを作成する (Write)

'***********************************************************************
'  <<< [DeleteFolderR] リードオンリーファイルを含むフォルダでも削除する >>>
'************************************************************************/
Sub DeleteFolderR( path )

  Set fs = CreateObject( "Scripting.FileSystemObject" )

  If fs.FolderExists( path ) Then Exit Sub

  path2 = path  ' 末尾の \ 記号を取る
  If Right( path2, 1 ) = "\" Then  path2 = Left( path2, Len( path2 ) - 1 )

  nFolder = 1
  ReDim folderPathes(nFolder)
  folderPathes(nFolder) = path2

  ' サブフォルダを列挙する
  iFolder = 1
  While iFolder <= nFolder
    Set fo = fs.GetFolder( folderPathes(iFolder) )
    For Each sub in fo.SubFolders
      nFolder = nFolder + 1
      ReDim folderPathes(nFolder)
      folderPathes(nFolder) = sub.Path
    Next
    Set fo = Nothing
    iFolder = iFolder + 1
  WEnd

  ' すべてのサブフォルダにあるファイルのリードオンリー属性を外す
  For iFolder = 1 To nFolder
    Set fo = fs.GetFolder( folderPathes(iFolder) )
    For Each f in fo.Files
      Set file = fs.GetFile( f.Path )
      file.Attributes = file.Attributes And Not ReadOnly
      Set file = Nothing
    Next
    Set fo = Nothing
  Next

  ' フォルダを削除する
  fs.DeleteFolder( path )

  Set fs = Nothing

End Sub



 

CreateFolder

→ FileSystemObject::CreateFolder

Option Explicit
Dim  v1, v2
Set  v1 = CreateObject(...)
  :
fs = Empty

Option Explicit は、変数宣言が必要である
ようにします。

Set する前に Dim で宣言する必要があります。