タイトル : Re^3: テキストを複数のtextboxに配置 投稿日 : 2008/08/12(Tue) 13:05 投稿者 : 魔界の仮面弁士
> vb6.0 誤記していました。。ご指摘ありがとうございます 正しいバージョンは何ですか? (VB6 板に書かれてはいますが、誤記ならば、本人が訂正するのが筋なので) > textbox1には1行目のアイウエオ > textbox2には2行目のカキクケコ > textbox3には3行目のサシスセソ > というように表示させたいのです > このTextBoxは18個ほどあります ファイルが 19 行あったり、10行しかなかった場合などの対応が 気になりますが、とりあえず手抜きコードでよければ、こんな感じかな。 Dim all As String = My.Computer.FileSystem.ReadAllText("D:\test001.txt", System.Text.Encoding.Default) Dim lines() As String = all.Split(vbNewLine) TextBox1.Text = lines(0).Split(","c)(2) TextBox2.Text = lines(1).Split(","c)(2) TextBox3.Text = lines(2).Split(","c)(2) 実際には、不正なデータ(カンマの数が足りない行など)も考慮すべきかと。 |