[リストへもどる]
一括表示

投稿時間:2004/06/30(Wed) 14:38
投稿者名:ちょう
Eメール:
URL :
タイトル:
write # ステートメント
すごく初心者な質問で恥ずかしいのですが、

"あ","い"

という感じでファイルに出力する場合

write #1, "あ"; "い"

となります。

この例で言うと2個のデータが書き出されていますが、
今回やりたいのは、書き出すデータの数はあらかじめわかっていないので、

Dim strBuff() as String
にRedimしながらデータを格納したものをwrite#ステートメントで書き出すという内容です。

ですが、どのように記述してよいのかわかりません。
一応色々やってみたのですがうまくいかないです。
どうやって記述すればこれが実現できますか?
よろしくお願いします。

投稿時間:2004/06/30(Wed) 15:25
投稿者名:いちゆ
Eメール:
URL :
タイトル:
Re: write # ステートメント
簡単な例を。

dim v as variant
open "test.txt" for output as #1
for each v in array("あ",123.345,"い","-49","う",False,"え","お")
  write #1,v;
next
close

投稿時間:2004/06/30(Wed) 16:40
投稿者名:LESIA
Eメール:
URL :
タイトル:
Re: write # ステートメント
動的配列の数はUBound関数で分かるので
For i = 0 To UBound(strBuff)
    If i = UBound(strBuff) Then
        Write #1, strBuff(i)
    Else
        Write #1, strBuff(i);
    End If
Next i

投稿時間:2004/07/01(Thu) 14:58
投稿者名:ちょう
Eメール:
URL :
タイトル:
Re: 大変助かりました!
お二人のを見てポイントがわりました。
;の扱い方がわかりました。
ありがとうございました!!!