Question

我试图在Rebol中编写一个基于单个文本文件的简单聊天应用程序。什么是阅读该文件的最佳方式＆＃34;实时＆＃34;？现在我已经解决了这个问题：

    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
            ]
        ]
    ]
]

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

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

1 个答案: