[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: テキストを複数のtextboxに配置 投稿日 ： 2008/08/12(Tue) 12:30 投稿者 ： イチノセ
| > > VB6.0 winvista 32 環境でプログラムを作っています。 > こっちに移動してきてもなお、VB6 と言い切りますか…。(^_^;) > > > > この中のカナ部分のみを複数のテキストボックスへ配置したいのです。 > TextBox1 と TextBox2 に、それぞれどのように配置したいのでしょうか? > > 「1 行目を TextBox1 、2 行目を TextBox2 に配置」させたいなら、 > 行数に応じたボックスが必要でしょう。(今は 2 つ分しか無いですね) > > 「2 列目のひらがなを TextBox1 、3 列目のカタカナを TextBox2 に配置」なら、 > 前者は Item(1)、後者は Item(2) を使うべきでしょう。また、その場合、それぞれの > データを改行させて表示させていくのか、それとも区切り無く続けていくのかでも > 書き方が異なってきますね。 > > > > Dim reader As New System.IO.StreamReader("D:\test001.txt", System.Text.Encoding.Default) > Using ブロックを使うようにしましょう。 魔界の仮面弁士さま、vb6.0 誤記していました。。ご指摘ありがとうございます > TextBox1 と TextBox2 に、それぞれどのように配置したいのでしょうか? それぞれのTextBoxにカナの部分だけを配置していきたいのです textbox1には1行目のアイウエオ textbox2には2行目のカキクケコ textbox3には3行目のサシスセソ というようにカナの項目をそれぞれの TextBoxに表示させたいのです このTextBoxは18個ほどあります > Using ブロックを使うようにしましょう。 下記の記述方法でよろしいのでしょうか？ Dim Line As String Dim Item() As String Using reader As New System.IO.StreamReader("D:\test001.txt", System.Text.Encoding.Default) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() Do Until reader.EndOfStream Line = reader.ReadLine Item = Line.Split(",") TextBox1.AppendText(Item(2)) TextBox2.AppendText(Item(2)) TextBox3.AppendText(Item(2)) Loop End Using ※現在の状況はどのTextBoxにもカナの項目がすべて入ってしまいます。 Item=Line.Split(","&ControlChars.NewLine)と Item=Line.Split(","&ControlChars.CrLf)、を試しましたが見当違いでした。。 |
をクリックするとツリー全体を一括表示します） - テキストを複数のtextboxに配置 - イチノセ 08/08/12-10:57No.7935