VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2007/08/09(Thu) 15:58
投稿者yama
Eメール
URL
タイトルRe: 条件文で悩んでいます。

ついでにお聞きしたいんですが、

現在下の様な記述でcsvに書き込んでいます。
For文を使ってスマートにしたいのですが可能でしょうか?

OpenFileNum = FreeFile
Open TargetFilePath(0) For Append As #OpenFileNum
Write #OpenFileNum, frm_Input.Text1.Text, frm_Input.Text2.Text, _
                    Name(0), Code(0), Count(0), Unit(0), Note(0), _
                    Name(1), Code(1), Count(1), Unit(1), Note(1), _
                    Name(2), Code(2), Count(2), Unit(2), Note(2), _
                    Name(3), Code(3), Count(3), Unit(3), Note(3), _
                    Name(4), Code(4), Count(4), Unit(4), Note(4), _
                    Name(5), Code(5), Count(5), Unit(5), Note(5), _
                    Name(6), Code(6), Count(6), Unit(6), Note(6), _
                    Name(7), Code(7), Count(7), Unit(7), Note(7), _
                    Name(8), Code(8), Count(8), Unit(8), Note(8), _
                    Name(9), Code(9), Count(9), Unit(9), Note(9), _
                    Name(10), Code(10), Count(10), Unit(10), Note(10), _
                    Name(11), Code(11), Count(11), Unit(11), Note(11), _
                    Name(12), Code(12), Count(12), Unit(12), Note(12), _
                    Name(13), Code(13), Count(13), Unit(13), Note(13), _
                    Name(14), Code(14), Count(14), Unit(14), Note(14)
Close #OpenFileNum
ぶら下がり連続質問ごめんなさい。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -