タイトル : Re^4: データの保存、読込み 投稿日 : 2005/12/15(Thu) 18:03 投稿者 : あ
[OSのVer]:Windows [VBのVer]:VB.NET 少し時間がたってしまいましたが、 現在、 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click '保存 Dim FileSaveName As String Dim sw As IO.StreamWriter Dim dlg_FileSave As DialogResult Dim i As Integer dlg_FileSave = SaveFileDialog1.ShowDialog SaveFileDialog1.RestoreDirectory = False If dlg_FileSave = DialogResult.Cancel Then Exit Sub End If FileSaveName = SaveFileDialog1.FileName sw = New IO.StreamWriter(FileSaveName, False, System.Text.Encoding.Default) '書込み sw.Write(a) (a,b(i)はIntegerです。) For i = 0 To 2 sw.Write(b(i)) Next ・(sw.Writeがたくさん続いてます) ・ sw.Close() SaveFileDialog1.Dispose() End Sub という感じになってまして、とりあえず、変数に入っているデータを書き込むことはできました。 ただ、これを読み込む場合、整合性は取れているのでしょうか? vb6では取れていたので、大丈夫だとは思うのですが。 そして、読込みのほうですが '読込み 'Dim FileOpenName As String 'Dim sr As IO.StreamReader 'Dim dlg_FileSave As DialogResult 'Dim i As Integer ' ファイルのフィルタを設定する 'OpenFileDialog1.Filter = "テキスト ファイル|*.txt;*.log|すべてのファイル|*.*&qu ot; ' ファイルの種類 の初期設定を 2 番目に設定する 'OpenFileDialog1.FilterIndex = 2 'dlg_FileSave = OpenFileDialog1.ShowDialog 'OpenFileDialog1.RestoreDirectory = False 'If dlg_FileSave = DialogResult.Cancel Then 'Exit Sub 'End If 'FileOpenName = OpenFileDialog1.FileName 'sr = New IO.StreamReader(FileOpenName, False, System.Text.Encoding.Default) と、同じような感じでやっていたところ、一番最後の 'sr = New IO.StreamReader(FileOpenName, False, System.Text.Encoding.Default) の()内のFileOpenNameところで問題がしました。 コモンダイアログから指定したファイルを読み込みたいのですが、どう直せばよいのでしょうか? それともこのやり方では無理のなのでしょうか?ご教授願います。 |