分享一个易语言自用的函数:自用_写文本
在开发易语言程序的过程中经常会用到想把一些数据写入到txt文本文件中,经常进行重复操作,烦不胜烦。于是就自己写了一个小函数,封装到模块中,这样就可以直接调用了。今天给大家分享一下,希望对大家有所帮助。
.版本 2
.子程序 自用_写文本, 逻辑型, 公开
.参数 文件名, 文本型, , 保存的文件名如"目录名\test.txt"
.参数 写入内容, 文本型, 可空, 写入的内容
.参数 是否覆盖, 逻辑型, 可空, 假为追加 真为覆盖
.局部变量 局_文件号, 整数型
.如果真 (写入内容 = “”)
返回 (假)
.如果真结束
局_文件号 = 打开文件 (取运行目录 () + “\” + 文件名, 6, )
.如果 (是否覆盖)
写出文本 (局_文件号, 写入内容)
.否则
插入文本行 (局_文件号, 写入内容)
.如果结束
关闭文件 (局_文件号)
返回 (真)