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

タイトル 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()を書き換えて(処理)して呼び出します。

当方は自己流(すみません)でリファレンスも勝手な解釈しているので上記のような手法は
どこか大きなミスがあるのではないかと心配しています。一応動作はしているのですが

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

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