ＶＢ６．０からＶＢ２００５に変換挑戦中のＳＵＺＵＫＩです
度々　お世話になっております
下記は試行錯誤しながらランダムファイルの読込を変換したコードです
苦労して変換しましたが、読込速度が遅く実用にならない事が判明しました

色々検索しましたがなかなか対策が見つかりません

　ＶＢ６互換を使うと遅い
　ＦＩＬＥＳＴＲＥＡＭを使うとよくなる
　（約１０年前のが多く、時代遅れという感じをますます強くしていますが、、、）

までで、ＦＩＬＥＳＴＲＥＡＭは何だと言うレベルです
それも固定長の例題が見つかりません
この後　どう進めたらよいかアドバイスお願いした方がよいのでは
思うようになりました
どうぞ、よろしくお願いします


   Structure FKANRI
        <VBFixedString(10)> Public 管理NO As String
        <VBFixedString(101)> Public AA As String
        Dim A As Short
        Dim B As Short
        Dim C As Short
        Dim D As Short
        <VBFixedString(41)> Public BB As String
    End Structure

    Private Sub Button1_Click()
        Dim RECORD_POS As Integer
        Dim KANRI_PATH As String
        Dim KANRI_FNUM As Integer
        Dim O As ValueType
        Dim KANRI As New FKANRI
        O = CType(KANRI, ValueType)
        KANRI_PATH = "C:\FKANRI.DAT"
        RECORD_POS = 0
        KANRI_FNUM = FreeFile()
        FileOpen(KANRI_FNUM, KANRI_PATH, OpenMode.Random, , , Len(KANRI))
        Seek(KANRI_FNUM, 1)
        Do
            If Not EOF(KANRI_FNUM) Then
                FileGet(KANRI_FNUM, O)
                RECORD_POS = RECORD_POS + 1
                KANRI = DirectCast(O, FKANRI)
                Debug.Print(KANRI.管理NO)
            End If
        Loop Until EOF(KANRI_FNUM)
        FileClose(KANRI_FNUM)
        MsgBox("正常に読み込めました" & RECORD_POS & "件")
    End Sub

Streamを使った方がよいとは思いますが
全レコード読み込むならそれほど変化はないのではと思います。
１度に読むレコード数を調整することで速度アップは出来るかも
しれません。
ランダムアクセスの良いところは全件読み込むのではなく
任意の１レコードを読み込むのにかかる時間に差がないことなので
ループ読みしている時点で意味がないです。

ファイル構成を変えられるなら
１レコード目に件数とか、トータルの情報を書いて置き
２レコード目からデータにするという構造にしておけば
件数を取得するのにかかる時間を節約できます。書き込むときに件数をうまく変更していく必要は
あります。

ファイル構成を変えられないなら
ファイルサイズ/レコード長で件数を求められます。

データの管理方法を変更できるならDBにしてしまうという方法もあります。

回答ありがとうございます
基本から考えるきかっけになりました

> ランダムアクセスの良いところは全件読み込むのではなく
> 任意の１レコードを読み込むのにかかる時間に差がないことなので
> ループ読みしている時点で意味がないです。
>

追加する時、データがあるかないか
どうしても全てのデータを読む必要があり
ＶＢ６．０のランダムアクセスファイルの欠点というか
うまく使っているとは言えませんでした


> ファイル構成を変えられるなら
> １レコード目に件数とか、トータルの情報を書いて置き
> ２レコード目からデータにするという構造にしておけば
> 件数を取得するのにかかる時間を節約できます。書き込むときに件数をうまく変更していく必要は
> あります。
>
例題を件数にしてしまってすいませんでした
追加するか修正するか判断する時、最悪追加するとなった時は
全てのデータを読んでいるという事で件数にしてしまいまいＳた　


>
> データの管理方法を変更できるならDBにしてしまうという方法もあります。


はい、方向性として３つ検討する事としました

１．キーだけのファイルを作って、追加？修正？　何番目かわかるようにする
２．読み書きの例題豊富なＣＳＶ形式にする(FILESTREAM採用)
　　（１をFILESTREAMにするのもありか。。。。）
３．ＤＢにする

こんな順序で検討したいと思います

> はい、方向性として３つ検討する事としました
>
> １．キーだけのファイルを作って、追加？修正？　何番目かわかるようにする
> ２．読み書きの例題豊富なＣＳＶ形式にする(FILESTREAM採用)
> 　　（１をFILESTREAMにするのもありか。。。。）
> ３．ＤＢにする
>
> こんな順序で検討したいと思います

１，３はよいですが
２はCSVにする意味はないのでBinaryReader,BinaryWriterを使って
実装するようにすればよいと思います。

> １，３はよいですが
> ２はCSVにする意味はないのでBinaryReader,BinaryWriterを使って
> 実装するようにすればよいと思います。

おっと、そうですか
実はBinaryについて読みあさっていたのですが
コード変換が実にやっかいであきらめたばっかりです
もう一度、再検討します