VB2008

質問

VB初心者です、よろしくお願いいたします。
現在、ＶＢ2008を使い、顧客名簿を作成しています。
前回の質問で、テキストファイルのファイル名だけを取得する方法は分かったのですが、そのファイルの内容をテキストボックスに表示する方法がうまくいきません。

ファイルの内容は
1行目→名前
2行目→メールアドレス
3行目→郵便番号
4行目→住所
5行目→購入した商品

をそれぞれ、textbox1～5に表示させたいと思っています。
書籍などで調べた結果

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim totalcount As Integer
Dim oneline As String
Dim sr As System.IO.StreamReader
sr = New System.IO.StreamReader("C:hogehoge\" & ComboBox1.Text & ".txt")
oneline = sr.ReadLine()
sr.Close()

Dim skipline As Integer
Dim r As Random = New Random()
skipline = r.Next(totalcount)
sr = New System.IO.StreamReader("C:hogehoge\" & ComboBox1.Text & ".txt")

Dim i As Integer = 0
Do While i < skipline

sr.ReadLine()
i += 1

Loop

oneline = sr.ReadLine()

sr.Close()

TextBox1.Text = oneline
TextBox2.Text = (skipline + 1).ToString()
End Sub

このような記述になりました。
textbox1には問題なく名前が表示されますが、textbox2には"1"と表示されてしまいます。

すみませんが、修正箇所を教えていただけませんか？
よろしくお願いいたします。

回答No.2

ProKaseifu · ベストアンサー

http://dobon.net/vb/dotnet/file/readfile.html

こっちでした、失礼。

お礼

早速のご回答ありがとうございます。

お教えいただいたＵＲＬを参考にしてみたのですが

Dim sr As New System.IO.StreamReader("C:\test.txt", _
System.Text.Encoding.GetEncoding(932))
'内容を一行ずつ読み込む
While sr.Peek() > -1
Console.WriteLine(sr.ReadLine())
End While

このような記述がありました。
当方一昨日からVBを始めたばかりで、これをどこに記述し、caseなどの配置をどこにしたら良いのかも分かりません、ご面倒だとは思いますが、もう少し詳しくお教えいただけませんでしょうか。

すみませんがよろしくお願いいたします。

回答No.4

ProKaseifu

Console.WriteLine(sr.ReadLine())

ああ、readlineしてるんですね、readlineすると1行読んで次の行にファイルポインタが移動してしまうので1行おきになっちゃいますね。

お礼

なるほど、readlineとは、そういう機能なんですね。。
ありがとうございました。
とても参考になりました^^

回答No.3

ProKaseifu

質問者さんのやりたいことは
ファイルの中身を1行ずつ読み込み、
1行目の内容をtextbox1
2行目の内容をtextbox2
3行目の内容をtextbox3
4行目の内容をtextbox4
5行目の内容をtextbox5
に表示したいということですよね？

例のソースでは
1行ずつ読み込んでその内容をコンソールに出力しています。

ですので、1行読み込んだ後にcase文で今何件目なのかを判定し、テキストボックスに読み込んだ内容を表示してやればいいわけです。
ここで今何件目なのかを判定するのに読み込んだ件数をカウントしてあげる変数が必要になります。

お礼

回答ありがとうございます。
あれからいろいろやってみた所、何とか出来ました。

ただ、例のソースをそのままコピーすると、なぜかテキストファイルの2・4・6行目しか読み取れなかったのです。
Console.WriteLine(sr.ReadLine())
このソースを消すと問題なく1行ずつ読み込むことが出来ました。

ともあれ、とても勉強になりました。
本当に助かりました、ありがとうございます^^

また質問をすることがあると思いますが、お時間が許されましたらよろしくお願いいたします。

回答No.1

ProKaseifu

http://dobon.net/vb/dotnet/string/readline.html

1.繰り返し回数をカウントする変数宣言(仮にi=1とする)
2.whileで1行読み込む
　case (i)
　1のときtextbox1に読み込んだ内容設定
　2のときtextbox2に読み込んだ内容設定
～以下略～
　5のときtextbox5に読み込んだ内容設定
　iのカウントを進める

こんな感じです。（text1～5を名称指定もできますが理解しやすい方法で書いてます)