Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
OpenFileDialogを利用したファイルの読み取りが出来ません。
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10561#CommentId22070
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
カシミヤ
 (高校生)
投稿日時
2011/11/14 15:38:55
コードを乗せようかと思いましたが、出力・読み込みのしかたを全くといっていいほど理解できていないため、かなり適当なものであるかつ、ほぼ先ほどのサイトのコード・ここの「ファイル処理」にあるコードを試験的にほぼコピペしたもの、かつ、「動くわけがない。」といえるほどになってると思い敢えてのせませんでした。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim WriteStream As New StreamWriter("C:\Users\UserName\Desktop\test.txt")
WriteStream.WriteLine(TextBox1.Text)
WriteStream.WriteLine(TextBox2.Text)
WriteStream.Write(TextBox3.Text)
WriteStream.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'OpenFileDialogクラスのインスタンスを作成
Dim ofd As New OpenFileDialog()
'タイトルを設定する
ofd.Title = "開くファイルを選択してください"
'ダイアログボックスを閉じる前に現在のディレクトリを復元するようにする
ofd.RestoreDirectory = True
'ダイアログを表示する
If ofd.ShowDialog() = DialogResult.OK Then
'OKボタンがクリックされたとき
'選択されたファイル名を表示する
Console.WriteLine(ofd.FileName)
End If
Dim stream As System.IO.Stream
stream = ofd.OpenFile()
If Not (stream Is Nothing) Then
'内容を読み込み、表示する
Dim sr As New System.IO.StreamReader(stream)
Console.WriteLine(sr.ReadToEnd())
'閉じる
sr.Close()
stream.Close()
End If
'読み込んだファイルを表示させたい
Dim Reader As IO.StreamReader ←エラー・または警告が出る
TextBox1.Text = Reader.ReadLine
TextBox2.Text = Reader.ReadLine
TextBox3.Text = Reader.ReadLine
Reader.Close()
End Sub
End Class
「ダイアログを開く」以降どうすればいいのか全く分からないため、試行錯誤の嵐で混乱しています。
ヘルプを見ても案の定理解できません。。。