易语言实现 写到文件_追加 将字节集数据追加补充到指定文件尾部的位置 (返回逻辑型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. 删除文件 (“temp.txt”)
    
14. 输出调试文本 (写到文件_追加 (“temp.txt”, 到字节集 (“Hello World!”)))
    
15. 输出调试文本 (写到文件_追加 (“temp.txt”, 到字节集 (“中文测试”)))
    
16. 信息框 (到文本 (读入文件 (“temp.txt”)), 0, , )
    
17. 
    
18. .子程序 写到文件_追加, 逻辑型, 公开, 本命令用作将一个或数个字节集顺序追加到指定文件尾部的位置，文件原有内容保留。成功返回真，失败返回假。
    
19. .参数 文件名, 文本型
    
20. .参数 欲追加文件的数据, 字节集
    
21. .局部变量 文件号, 整数型
    
22. 
    
23. 文件号 ＝ 打开文件 (文件名, #改写, #禁止读写)
    
24. .如果真 (文件号 ≤ 0)
    
25.     返回 (假)
    
26. .如果真结束
    
27. .如果真 (移动读写位置 (文件号, #文件尾, 0) ＝ 假)
    
28.     返回 (假)
    
29. .如果真结束
    
30. .如果真 (写出字节集 (文件号, 欲追加文件的数据) ＝ 假)
    
31.     返回 (假)
    
32. .如果真结束
    
33. 关闭文件 (文件号)
    
34. 返回 (真)
    
35. 
    

复制代码