文本的创建和追加 就是往一个文本写内容

mp624183768

  

子程序名	返回值类型	公开	备 注
子程序_记录文本
参数名	类 型	参考	可空	数组	备 注
str	文本型

变量名	类 型	静态	数组	备 注
文件	文本型
路径	文本型

路径 ＝ 取运行目录 () ＋ “\” ＋ “2980邮箱.txt”
如果 (文件是否存在 (路径) ＝ 假)
写到文件 (路径, 到字节集 (str ＋ #换行符 ))
写到文件 (路径, 读入文件 (路径) ＋ 到字节集 (str ＋ #换行符 ))

.版本 2<br /> <br /> .子程序 子程序_记录文本<br /> .参数 str, 文本型<br /> .局部变量 文件, 文本型<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\” ＋ “2980邮箱.txt”<br /> <br /> <br /> .如果 (文件是否存在 (路径) ＝ 假)<br />     写到文件 (路径, 到字节集 (str ＋ #换行符))<br /> .否则<br />     写到文件 (路径, 读入文件 (路径) ＋ 到字节集 (str ＋ #换行符))

logK

学习先回复，分享祝长寿

ypcfly

        感谢分享，很给力！~

mp624183768

  

子程序名	返回值类型	公开	备 注
子程序_记录文本
参数名	类 型	参考	可空	数组	备 注
str	文本型
参数名称	文本型

变量名	类 型	静态	数组	备 注
路径	文本型

如果 (文件是否存在 (取运行目录 () ＋ “\胆码缓存\”) ＝ 假)
创建目录 (取运行目录 () ＋ “\胆码缓存\”)



路径 ＝ 取运行目录 () ＋ “\胆码缓存\” ＋ 参数名称 ＋ “.txt”
如果 (文件是否存在 (路径) ＝ 假)
写到文件 (路径, 到字节集 (str ＋ #换行符 ))
写到文件 (路径, 读入文件 (路径) ＋ 到字节集 (str ＋ #换行符 ))

子程序名	返回值类型	公开	备 注
子程序_读取文本	文本型
参数名	类 型	参考	可空	数组	备 注
参数名称	文本型

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 取运行目录 () ＋ “\胆码缓存\” ＋ 参数名称 ＋ “.txt”
如果 (文件是否存在 (路径) ＝ 假)
返回 (“”)
返回 (到文本 (读入文件 (路径)))

.版本 2<br /> <br /> .子程序 子程序_记录文本<br /> .参数 str, 文本型<br /> .参数 参数名称, 文本型<br /> .局部变量 路径, 文本型<br /> <br /> <br /> .如果 (文件是否存在 (取运行目录 () ＋ “\胆码缓存\”) ＝ 假)<br />     创建目录 (取运行目录 () ＋ “\胆码缓存\”)<br /> .否则<br /> <br /> .如果结束<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\胆码缓存\” ＋ 参数名称 ＋ “.txt”<br /> <br /> .如果 (文件是否存在 (路径) ＝ 假)<br />     写到文件 (路径, 到字节集 (str ＋ #换行符))<br /> .否则<br />     写到文件 (路径, 读入文件 (路径) ＋ 到字节集 (str ＋ #换行符))<br /> .如果结束<br /> <br /> <br /> .子程序 子程序_读取文本, 文本型<br /> .参数 参数名称, 文本型<br /> .局部变量 路径, 文本型<br /> <br /> <br /> 路径 ＝ 取运行目录 () ＋ “\胆码缓存\” ＋ 参数名称 ＋ “.txt”<br /> .如果 (文件是否存在 (路径) ＝ 假)<br />     返回 (“”)<br /> .否则<br />     返回 (到文本 (读入文件 (路径)))<br /> <br /> .如果结束

我又完善了一下~~~

pp2008

每天学习3小时！坚持坚持再坚持！