ユーザー定義のファイル保存読込するには (ID:81234)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

これでいけるかも。(ランダムアクセスと混同されましたか？)

Private Sub Form_Load()
    
    Dim FileNum As Integer
    Dim FileName As String
    Dim MyPath As String
    Dim i As Integer

FileNum = FreeFile
    
    MyPath = App.Path
    
    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If

FileName = MyPath & "ParaData.txt"

If Dir(FileName) = "" Then
        Open FileName For Output As #FileNum
        Close #FileNum
    End If

i = 1
    Open FileName For Input As #FileNum
        Do While Not EOF(FileNum)
            ReDim Preserve Para(i)
            Input #FileNum, Para(i).Name, Para(i).Kata, Para(i).X1, Para(i).X2, Para(i).X3
            i = i + 1
        Loop
        ParaMemNum = i - 1
    Close #FileNum

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    
    Dim FileNum As Integer
    Dim MyPath As String
    Dim FileName As String
    Dim i As Integer

FileNum = FreeFile
    
    MyPath = App.Path
    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If
    
    FileName = MyPath & "ParaData.txt"

Open FileName For Output As #FileNum
        For i = 1 To ParaMemNum
            Write #FileNum, Para(i).Name, Para(i).Kata, Para(i).X1, Para(i).X2, Para(i).X3
        Next i
    Close #FileNum

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る