tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： シーケンシャルファイルについて
投稿日： 2008/09/07(Sun) 00:26
投稿者： イチゴ
ファイルの保存は正常に保存できるのですが、読み込みが出来ません！！
プログラミング暦1ヶ月なので、このコードのどこがおかしいのかがわかりません。
よろしくお願いします。

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim a, b As Integer
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        TextBox3.Text = a + b
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim inifilepath, inifilename As String
        inifilepath = Application.StartupPath
        inifilename = inifilepath & "\inifile.txt"
        'シーケンシャルファイルのオープン
        FileOpen(1, inifilename, OpenMode.Output)
        'シーケンシャルファイルの出力
        Print(1, TextBox1.Text)
        Print(1, vbCrLf)
        Print(1, TextBox2.Text)
        Print(1, vbCrLf)
        Print(1, TextBox3.Text)
        FileClose(1)
        MsgBox("データを保存しました", MsgBoxStyle.Information, "Save")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim inifilepath, inifilename As String
        inifilepath = Application.StartupPath
        inifilename = inifilepath & "inifile.txt"
        If Dir(inifilename) <> "" Then
            'シーケンシャルファイルのオープン
            FileOpen(1, inifilename, OpenMode.Input)
            'シーケンシャルファイルの読み込み
            Input(1, TextBox1.Text)
            Input(1, TextBox2.Text)
            Input(1, TextBox3.Text)
            FileClose(1)
            MsgBox("データを読み込みました", MsgBoxStyle.Information, "Rode")
        Else
            MsgBox("データが見つかりません", MsgBoxStyle.Information, "Error")

        End If
    End Sub
End Class
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。