タイトル : テキストをtextboxに配置 投稿日 : 2008/08/12(Tue) 00:37 投稿者 : イチノセ
みなさん、はじめまして。 VB6.0 winvista 32 環境でプログラムを作っています。 テキストファイルの中から特定の文字列(項目名)を複数のテキストボックスに 配置しようとしているのですが、テキストボックスに表示されるのは すべての行の項目名が入ってしまいます。 これを一行ずつテキストボックスに収めるにはどうすれば良いのでしょうか? ※テキストの中身(test001.txt) 0001,あいうえお,アイウエオ,aiueo 0002,かきくけこ,カキクケコ,kakikukeko 0003,さしすせそ,サアシスセソ,sashisuseso ・ ・ ・ この中のカナ部分のみを複数のテキストボックスへ配置したいのです。 試したコード Dim line As String Dim Item() As String Dim reader As New System.IO.StreamReader("D:\test001.txt", System.Text.Encoding.Default) TextBox1.Clear() Do Until reader.EndOfStream line = reader.ReadLine Item = line.Split(",") 'TextBox1.AppendText(line.Substring(3) & ControlChars.CrLf) TextBox1.AppendText(Item(2)) TextBox2.AppendText(Item(2)) Loop reader.Close() 実際の動作は、TextBox1と2も同じく[アイウエオカキクケコサシスセソ・・・・] になってしまいます。 どれが一行目でどれが2行目なのか等記入すれば思いどおりに表示できるのでしょうか? その記述方法がわからないのですが、どなたか知恵を貸していただけませんでしょうか? |