タイトル : Re^2: VB6.0でデータをバイナリ処理 投稿日 : 2010/02/22(Mon) 16:18 投稿者 : あかちん
早速の書き込みありがとうございます。 説明が不十分でした。 アプリケーションは複数のユーザーが閲覧、書き込みが出来ることを目的に作成してあります(簡易グルーウエア)。 データファイルは0.5Mバイト以下の小さいファイルなのでファイルを開いてすぐ閉じるようにしています。 実際のプログラム(浮浪箇所は省略) 標準モジュールで Public RW(0 To 367) As String Public Datafile As String 'データファイルパス名 Sub RWdata(Md As String) ' Select Case Md Case "Read" Open Datafile For Binary Access Read As #1 'If RWOkFlg = True Then Get #1, 1, RW() 'End If Close #1 Case "Write" Open Datafile For Binary Access Write Lock Write As #2 'If RWOkFlg = True Then Put #2, 1, RW() 'End If Close #2 End Select End Sub を作成して フォームモジュールでRW()を書き換えて(処理)して呼び出します。 当方は自己流(すみません)でリファレンスも勝手な解釈しているので上記のような手法は どこか大きなミスがあるのではないかと心配しています。一応動作はしているのですが |