[VBScript]FSO.OpenTextFileのSet,Closeタイミングによる速度の違いはありますか？

Question

質問

CSVファイルにテキストをAppendする際、ループの外と中でSet,Closeした場合で速度に違いはありますか？

コードの例

ループの中でSet,Closeする

変数のスコープを狭めたい場合

Const strCSVPath = "hoge.csv"
For Each str In Array("a","b","c")
    Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim TS: Set TS = FSO.OpenTextFile(strCSVPath, 8)
    
    TS.WriteLine str
    TS.Close
Next

ループの外でSet,Closeする

Set,Closeの回数を減らしたい場合

Const strCSVPath = "hoge.csv"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim TS: Set TS = FSO.OpenTextFile(strCSVPath, 8)

For Each str In Array("a","b","c")
    TS.WriteLine str

Next

TS.Close

Answer 1

ループの中でやる必要のない処理は、ループの外に出したほうが、実行する命令量が減るので実行時間は短くなります。

この場合もそうです。しかもディスクアクセスを含む処理なので、影響は比較的大きいです。
ただ、この例のように3回ループくらいでは有意な差は出ません。

Comments

[woria]

ありがとうございます。
今回は例として適当なArrayを用意しましたが、実際は3000回程度のループがあります。
該当のコードについて修正したいと思います。

Answer 2

ループの外と中でSet,Closeした場合で速度に違いはありますか？

あります。
ループの中でSet,Closeした場合、Scripting.FileSystemObjectの生成（ファイルのオープン）、書き込み、クロースが３回行われます。
ループの外でSet,Closeした場合、Scripting.FileSystemObjectの生成（ファイルのオープン）１回、書込み３回、クロース１回が行われます。

乱暴ですが単純に前者は９ステップ必要ですが、後者は５ステップです。

また、オブジェクトの生成(Scripting.FileSystemObjectの生成)、ファイルのオープン・クローズはコストが高い（速度が遅い）です。

Comments

[woria]

ありがとうございます。
今回は例として適当なArrayを用意しましたが、実際は3000回程度のループがあります。
該当のコードについて修正したいと思います。