如何为聊天应用程序实时读取文件

Question

我正试图在Rebol中编写一个基于单个文本文件的简单聊天应用程序。"实时"读取该文件的最佳方式是什么？现在我已经用它工作了：

    t1: text 600x300 wrap green black font-name font-fixed  rate 1 feel[
    engage: func [face action event][
        if action = 'time [
            face/text: read chatText
            show face
        ] 
    ] 
] 

文本字段每秒都会根据文件的内容进行更新。即使对多个用户也是如此，但每个用户每秒都会读取整个文件。有更好的方法做这种事吗？

Answer 1

看看info?函数。你可以这样做：

REBOL []
chat-file: %file.txt
file-info: info? chat-file
update-date: file-info/date
view layout [
    t1: text read chat-file 600x300 wrap green black font-name font-fixed  rate 1 feel [
        engage: func [face action event] [
            if all [
                action = 'time
                file-info: info? chat-file
                update-date < file-info/date
            ] [
                update-date: file-info/date
                face/text: read chat-file
                show face
            ]
        ]
    ]
]

但如果要从多个应用程序写入文件，则需要小心。