易语言统计在线人数代码：[3]上传统计

在前一篇的代码下增加如下代码：

FTP文件上传 (取运行目录 () ＋ “\人数.txt”, “在线人数.txt”, )

这里用到的命令就是FTP文件上传（）。

取运行目录 () ＋ “\人数.txt”为本地处理后的统计人数文件

“在线人数.txt”为服务器上的那个统计文件

这里原来是上传覆盖掉原来服务器的文件。

经过以上代码，算是简单的完成了统计人数的增加，你可以加上判断来决定这些代码是否重新执行，达到统计成功的目的！如下代码：

判断 (连接FTP服务器 (“FTP地址”, “FTP用户名”, “ftp密码”, , ) ＝ 真)    .如果 (FTP文件下载 (“在线人数.txt”, 取运行目录 () ＋ “\人数.txt”, ) ＝ 真)        在线人数 ＝ 到整数 (到文本 (读入文件 (取运行目录 () ＋ “\人数.txt”))) ＋ 1        .如果 (写到文件 (取运行目录 () ＋ “\人数.txt”, 到字节集 (到文本 (在线人数))) ＝ 真)            .如果 (FTP文件上传 (取运行目录 () ＋ “\人数.txt”, “在线人数.txt”, ) ＝ 真)                时钟1.时钟周期 ＝ 0

                断开FTP服务器 ()

PS：目的是当所有代码都返回真的时候，再让时钟1周期事件不再执行并断开服务器，周期变为0，否则继续会从FTP服务器下载“在线人数.txt”文件

当用户关闭退出软件时，减去一个1。这样我们便能完整的实现统计在在线人数了，

回到窗口界面，点击倒三角，添加一个处理事件的子程序，“__启动窗口_将被销毁”。

直接复制上面写的代码，改动后如下：

判断 (连接FTP服务器 (“FTP地址”, “用户名”, “密码”, , ) ＝ 真)    .如果 (FTP文件下载 (“在线人数.txt”, 取运行目录 () ＋ “\人数.txt”, ) ＝ 真)        在线人数 ＝ 到整数 (到文本 (读入文件 (取运行目录 () ＋ “\人数.txt”))) － 1        .如果 (写到文件 (取运行目录 () ＋ “\人数.txt”, 到字节集 (到文本 (在线人数))) ＝ 真)            .如果 (FTP文件上传 (取运行目录 () ＋ “\人数.txt”, “在线人数.txt”, ) ＝ 真)                断开FTP服务器 ()

PS：之前+1，现在变成减1，去掉“时钟1.时钟周期 ＝ 0”代码

这样便能让程序在退出的时候去改变FTP服务器中“在线人数.txt”这个文件的数据，让之前+1的数值减去1个。

注意：不要直接处理本地的“在线.txt”文件，不然会导致数据不准确！

最后增加一个对软件有益的代码，比如当上传完成“在线.txt”这个文件后删除本地的“在线.txt”文件。可以减少下次该用户使用程序时出错的几率！

当然！在程序被关闭后，我们也需要删除掉“在线.txt”这个统计人数的文件。

经过以上的步骤是不是完全掌握了如何统计在线人数呢？

作为作者本人的你是否会编写一个及时反馈在线人数的程序？

接下来我详细讲解如何编写一个动态反馈给作者在线人数的程序！