新しく発言する EXIT インデックスへ
2つのプログラムでのファイルの同時使用
　　2つのプログラムでのファイルの同時使用 白川 2004/12/21 21:24:25 
　　└どんなプログラムか、 哲 2004/12/22 08:59:14 
　　　└返信が遅くなってすいません 白川 2004/12/25 20:58:42 
　　　　└追加 白川 2004/12/25 21:02:01 
　　　　　└OPEN#f_no:NAMEpath$&fname$(f_no),ACCESSI... 哲 2004/12/26 11:49:14 
　　　　　　└あ、すいません。 白川 2004/12/26 20:13:09 
　　　　　　　└このプログラムはWAITDELAY無しで走っている... 哲 2004/12/26 20:39:07 
　　　　　　　　└無かったので加えてみましたが無理でした。 白川 2004/12/26 22:37:12 

　　2つのプログラムでのファイルの同時使用 白川 2004/12/21 21:24:25  ツリーへ

2つのプログラムでのファイルの同時使用 返事を書く
白川 2004/12/21 21:24:25
今、チャットのようなものを作ろうとしていますが、アクセス状況などを管理する常時書き換えるファイルが上手く働きません。
原因は片方で書き込んでいる時にもう片方で読み込んでいる為に起こるのだと思いますが、いまいちその打開策が出来ません。
何とかする方法はありますか?
尚、ファイルは”read”で読むために内部形式ファイルにしています。 

　　└どんなプログラムか、 哲 2004/12/22 08:59:14  ツリーへ

Re: 2つのプログラムでのファイルの同時使用 返事を書く
哲 2004/12/22 08:59:14
どんなプログラムか、
読み込み書きこみの部分だけでもUPして下さると検討できるのですが？ 

　　　└返信が遅くなってすいません 白川 2004/12/25 20:58:42  ツリーへ

Re: どんなプログラムか、 返事を書く
白川 2004/12/25 20:58:42
返信が遅くなってすいません
下のプログラムがプログラムのアクセスデータの読み込み書き込み部分です
name$(1)はアクセス管理データーのファイル名を示し、name$,ACCESS,READは名前、書き込み中か待機中かを示す値、どこまで読み込んだかを示します(この後者2つで中断などにより終了したら他の人がログを消すように使用と計画中)
sub read_access!アクセス状況読みこみ
let n=file_read(1)
READ #1:last_log,number
FOR i=1 TO number
READ #1: name$(i),ACCESS(i),READ(i)
NEXT i
CLOSE #1
END SUB
sub save_access!アクセス状況保存
LET n=file_read(1)
ERASE #1
write #1: last_log,number
FOR i=1 TO number
write #1 : name$(i),ACCESS(i),READ(i)
NEXT i
close #1
END SUB
FUNCTION file_read(f_no)!ファイル読みこみ
WHEN EXCEPTION IN
OPEN #f_no:NAME path$&fname$(f_no),ACCESS　INPUT,RECTYPE INTERNAL
LET file_read=1
USE
LET file_read=0
END WHEN
 

　　　　└追加 白川 2004/12/25 21:02:01  ツリーへ

Re: 返信が遅くなってすいません 返事を書く
白川 2004/12/25 21:02:01
追加
最後の”END WHEN”のあとEND FUNCTIONを追加してください
 

　　　　　└OPEN#f_no:NAMEpath$&fname$(f_no),ACCESSI... 哲 2004/12/26 11:49:14  ツリーへ

Re: 追加 返事を書く
哲 2004/12/26 11:49:14
OPEN #f_no:NAME path$&fname$(f_no),ACCESS　INPUT,RECTYPE INTERNAL
の部分は
LET n=file_read(1)
ERASE #1
write #1: last_log,number
でも呼び出しているようですが、ACCESS　INPUTは読み込み専用でOPENですから
省略するか、INとOUTを別に記述する必要があると思うのですが？ 

　　　　　　└あ、すいません。 白川 2004/12/26 20:13:09  ツリーへ

Re: OPEN#f_no:NAMEpath$&fname$(f_no),ACCESSI... 返事を書く
白川 2004/12/26 20:13:09
あ、すいません。
そこは変更していて直すのを忘れていました。
しかし、省略してもエラーが発生します。 

　　　　　　　└このプログラムはWAITDELAY無しで走っている... 哲 2004/12/26 20:39:07  ツリーへ

Re: あ、すいません。 返事を書く
哲 2004/12/26 20:39:07
このプログラムはWAIT DELAY　無しで走っているでしょうか？
save_accessを必要最低限の間隔で行うようにしても駄目でしょうか？
 

　　　　　　　　└無かったので加えてみましたが無理でした。 白川 2004/12/26 22:37:12  ツリーへ

Re: このプログラムはWAITDELAY無しで走っている... 返事を書く
白川 2004/12/26 22:37:12
無かったので加えてみましたが無理でした。
一応見てみるとかなり問題があることが分かったのでもう少し自分で練り直したいと思います
哲様ありがとうございました。
後に練り直した後の結果報告をします

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。