for テキスト書き込み

Question

Set sr = CreateObject("ADODB.Stream")
sr.Charset = "UTF-8"
sr.Open
For i = 0 To UBound(Arr)
sr.WriteText Arr(i), 1
Next
sr.SaveToFile TEXTFILE, 2
sr.Close

上記のようなコードでテキストファイルを作成しているのですが、for文の中の処理で’アプリケーション定義またはオブジェクト定義のエラーです’と表示されてしまいました。
for文の中で配列に格納してある情報をテキストに書き込んでいきたいのですが、どのようにしたらできるのでしょうか？

Answer 1

配列に空文字が入っているとエラーになるみたいです。自己解決しました。ありがとうございました。

Answer 2

配列Arrが突然出てくるように思えるのですが、これはどこかで定義していますでしょうか？
また、Arrが定義されているようなら以下をチェックしてはどうでしょうか。
・Arrの要素番号の最小値
・Arrの要素番号の最大値
・UBound(Arr)の値

Answer 3

sr.Openの前に ModeとTypeを指定してください。

sr.Mode = 3 '書き込みモード
sr.Type = 2 'テキストデータ

###追記：空文字列でも出力できますよ。
さすがにNull値ではエラーが出ます。

Set sr = CreateObject("ADODB.Stream") 
dim Arr(2)
Arr(0)="line 0"
Arr(1)=""
Arr(2)="line 2"

WScript.StdOut.WriteLine "--start--"

with sr
    .Charset = "UTF-8" 
    .Mode = 3 '書き込みモード
    .Type = 2 'テキストデータ
    .Open

    For i = 0 To UBound(Arr)
        WScript.StdOut.WriteLine Arr(i)
        .WriteText Arr(i), 1
    Next 
    .SaveToFile "d:\\temp\\out.txt", 2 
    .Close
End With
WScript.StdOut.WriteLine "--end--"

出力はBOM付きUTF-8になります。

D:\temp>cscript //B foo.vbs
--start--
line 0

line 2
--end--
D:\temp>type out.txt
・ｿline 0

line 2

Comments

[coko1]

同様のエラーが表示されます。