虚心求教保存文档怎么是空白的，求个例子

风情科技

怎么操作才能把里面的数据全部保存出来！求大哥解决

LWB666

风情科技 发表于 2023-8-18 18:47
改了保存还是空白

来远程吧......

补充内容 (2023-8-18 18:49):
QQ发出来

补充内容 (2023-8-18 18:50):
或者你加我 934483341

风情科技

麻烦大哥看一下怎么操作

wtflxk

需要循环组合在写出来。

蒙顺童

  

子程序名	返回值类型	公开	备 注
保存	逻辑型
参数名	类 型	参考	可空	数组	备 注
日志内容	文本型
日志名字	文本型				空 默认 名称 日志.txt
保存路径	文本型				例如：D:\日志.txt ,空 默认 取运行目录\日志.txt
文件后缀	文本型				如 .txt  空 默认 .txt
显示时间	逻辑型				格式 [2023-07-16 03:10:50] 真 显示  空 假 默认 不显示
区分	逻辑型				[2023-07-16 03:10:50] >   空 假 默认 不区分

变量名	类 型	静态	数组	备 注
局部内容	文本型
局部结果	逻辑型
局部区分	文本型
文件句柄	整数型

临界.进入 ()
如果真 (文件句柄 ＝ 0)
如果真 (是否为空 (日志名字))
日志名字 ＝ “日志”
如果真 (是否为空 (文件后缀))
文件后缀 ＝ “.txt”
如果 (是否为空 (保存路径))
保存路径 ＝ 取运行目录 () ＋ “\” ＋ 日志名字 ＋ 文件后缀
保存路径 ＝ 保存路径 ＋ “\” ＋ 日志名字 ＋ 文件后缀
如果真 (是否为空 (区分) ＝ 假 且 区分 ＝ 真)
局部区分 ＝ “ > ”
如果真 (文件是否存在 (保存路径) ＝ 假)
如果真 (写到文件 (保存路径, {  }) ＝ 假)
返回 (假)

文件句柄 ＝ 打开文件 (保存路径, #读写, )
如果真 (文件句柄 ＝ 0)
返回 (假)
移到文件尾 (文件句柄)
如果真 (文件句柄 ＝ 0)
返回 (假)
如果 (显示时间 ＝ 真)
局部内容 ＝ _格式化时间 (取现行时间 (), “[yyyy-MM-dd ”, “hh:mm:ss]” ＋ 局部区分, 真, )
局部内容 ＝ 局部内容 ＋ 日志内容
局部内容 ＝ 日志内容
局部结果 ＝ 写出文本 (文件句柄, 局部内容 ＋ #换行符 )
关闭文件 (文件句柄)
临界.退出 ()
返回 (局部结果)

.版本 2<br /> <br /> .子程序 保存, 逻辑型, 公开, <br /> .参数 日志内容, 文本型<br /> .参数 日志名字, 文本型, 可空, 空 默认 名称 日志.txt<br /> .参数 保存路径, 文本型, 可空, 例如：D:\日志.txt ,空 默认 取运行目录\日志.txt  <br /> .参数 文件后缀, 文本型, 可空, 如 .txt  空 默认 .txt<br /> .参数 显示时间, 逻辑型, 可空, 格式 [2023-07-16 03:10:50] 真 显示  空 假 默认 不显示<br /> .参数 区分, 逻辑型, 可空, [2023-07-16 03:10:50] >   空 假 默认 不区分<br /> .局部变量 局部内容, 文本型<br /> .局部变量 局部结果, 逻辑型<br /> .局部变量 局部区分, 文本型<br /> .局部变量 文件句柄, 整数型<br /> <br /> 临界.进入 ()<br /> .如果真 (文件句柄 ＝ 0)<br />     .如果真 (是否为空 (日志名字))<br />         日志名字 ＝ “日志”<br />     .如果真结束<br />     .如果真 (是否为空 (文件后缀))<br />         文件后缀 ＝ “.txt”<br />     .如果真结束<br />     .如果 (是否为空 (保存路径))<br />         保存路径 ＝ 取运行目录 () ＋ “\” ＋ 日志名字 ＋ 文件后缀<br />     .否则<br />         保存路径 ＝ 保存路径 ＋ “\” ＋ 日志名字 ＋ 文件后缀<br />     .如果结束<br />     .如果真 (是否为空 (区分) ＝ 假 且 区分 ＝ 真)<br />         局部区分 ＝ “ > ”<br />     .如果真结束<br />     .如果真 (文件是否存在 (保存路径) ＝ 假)<br />         .如果真 (写到文件 (保存路径, {  }) ＝ 假)<br />             返回 (假)<br />         .如果真结束<br /> <br />     .如果真结束<br />     文件句柄 ＝ 打开文件 (保存路径, #读写, )<br />     .如果真 (文件句柄 ＝ 0)<br />         返回 (假)<br />     .如果真结束<br />     移到文件尾 (文件句柄)<br /> .如果真结束<br /> .如果真 (文件句柄 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> .如果 (显示时间 ＝ 真)<br />     局部内容 ＝ _格式化时间 (取现行时间 (), “[yyyy-MM-dd ”, “hh:mm:ss]” ＋ 局部区分, 真, )<br />     局部内容 ＝ 局部内容 ＋ 日志内容<br /> .否则<br />     局部内容 ＝ 日志内容<br /> .如果结束<br /> 局部结果 ＝ 写出文本 (文件句柄, 局部内容 ＋ #换行符)<br /> 关闭文件 (文件句柄)<br /> 临界.退出 ()<br /> 返回 (局部结果)

风情科技

ncagzs 发表于 2023-8-18 18:05
需要循环组合在写出来。

求大哥出例子

b0y

风情科技 发表于 2023-8-18 18:04
麻烦大哥看一下怎么操作

n-0改成n-1   ,第几列看看对不对  5代表第六列
写到文件(保存的文件名,到字节集(临时文本))

风情科技

b0y 发表于 2023-8-18 18:07
n-0改成n-1   ,第几列看看对不对  5代表第六列
写到文件(保存的文件名,到字节集(临时文本)) ...

不得大哥

wtflxk

风情科技 发表于 2023-8-18 18:06
求大哥出例子

临时文件=临时文件+超级列表框1.取标题(n-1,5)+#换行符
写到文件（保存的文件名,到字节集（临时文件））
这样改一下就OK了

风情科技

蒙顺童 发表于 2023-8-18 18:06
[e=0].版本 2

.子程序 保存, 逻辑型, 公开,

这个搞不懂，但感谢大哥提供