连续使用读入文件（）读入图片就会奔溃

1026360899

循环使用：读入文件（文件路径）

就会奔溃，请问怎么解决呢

读入的也不大，都是照片，连续读入二三十张一定会奔溃

是需要释放内存吗？
处理图片（）
关闭所有文件（）
都试过   都不行

是可可吖

用一个读入文件 读变量不行吗？

1026360899

是可可吖 发表于 2025-4-2 15:51
用一个读入文件 读变量不行吗？

图片在本地，读变量之前也得先把图片读进变量吧  那不还是一样了

1026360899

是可可吖 发表于 2025-4-2 15:51
用一个读入文件 读变量不行吗？

图片不是用一张  有很多张  每张图片读一次  就会崩

2wEn

上代码 上代码

是可可吖

1026360899 发表于 2025-4-2 15:53
图片在本地，读变量之前也得先把图片读进变量吧  那不还是一样了

没代码就一张图谁能猜的到？枚举不就行了

1026360899

2wEn 发表于 2025-4-2 16:00
上代码 上代码

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
局_当前客户目录	文本型
局_评价数量	整数型
计次	整数型
局_目录数组	文本型		0

如果真 (编辑框_天鹅好评路径.内容 ＝ “”)
信息框 (“还没有文件路径”, 0, , )
返回 ()

局_评价数量 ＝ 目录_枚举子目录 (编辑框_天鹅好评路径.内容, 局_目录数组, 真)
计次循环首 (局_评价数量, 计次)
局_当前客户目录 ＝ 局_目录数组 [计次]
开始生成 (局_当前客户目录)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
开始生成
参数名	类 型	参考	可空	数组	备 注
参_当前客户目录	文本型

变量名	类 型	静态	数组	备 注
局_当前图片文件夹	文本型
局_文本数组	文本型		0
局_文本个数	整数型
计次	整数型
局_评语	文本型
画板	内存画板
局_头像	字节集
局_字体	字体
昵称	文本型
局_位置	点坐标
c	字节集
局_定位	文本型
局_当前文件数量	整数型
局_横坐标	整数型
局_纵坐标	整数型
局_图片文件数组	文本型		0
图片	字节集
参_图片	字节集
局_文字数组	文本型		0
距离	整数型
画板宽度	双精度小数型
内容	文本型		0
i	整数型
行内容	文本型
局_输出高度	整数型
局_评语字节集	字节集

如果真 (目录_是否存在 (参_当前客户目录 ＋ “\图片”))
局_当前图片文件夹 ＝ 参_当前客户目录 ＋ “\图片”
日志 (“当前图片文件夹为：” ＋ 局_当前图片文件夹)

局_文本个数 ＝ 文件_枚举 (参_当前客户目录, “*.txt”, 局_文本数组, 真, , )
计次循环首 (局_文本个数, 计次)
如果真 (寻找文本 (局_文本数组 [计次], “评语”, , 假) ＞ 0)
局_评语字节集 ＝ 读入文件 (局_文本数组 [计次])
局_评语字节集 ＝ 子字节集替换 (局_评语字节集, { 10 }, { 13, 10 }, , )
局_评语 ＝ 到文本 (局_评语字节集)

计次循环尾 ()
' '''''''创建画板
日志 (“开始创建画板”)
如果真 (画板.创建 (678, 2000, #白色 ) ＝ 假)
信息框 (“画板创建失败”, 0, , )
返回 ()
' ''''''写上头像
日志 (“开始创建头像”)
局_头像 ＝ 图片_取圆形图片 (取随机头像 ())
画板.画图片 (画板.载入图片数据 (局_头像, ), 30, 2, 40, 40)
' ''''''写上X先生或则X女士
日志 (“开始写上姓名”)
局_字体.字体大小 ＝ 18
局_字体.字体名称 ＝ “方正兰亭中粗黑简体”
画板.字体 (局_字体)
画板.文本颜色 (取颜色值 (54, 54, 54))
画板.置写出位置 (79, 10)
昵称 ＝ 取随机姓氏 ()
画板.写文本行 (昵称, )
局_位置 ＝ 画板.取写出位置 ()
' ''''''写上五星
日志 (“开始画上五星”)
画板.画图片 (画板.载入图片数据 ( #五心, ), 89 ＋ 画板.取文本宽度 (昵称), 12, 118, 19)
' 画上定位logo
日志 (“开始写定位”)
画板.画图片 (画板.载入图片数据 ( #定位, ), 470, 0, 40, 40)
' '''写上定位
局_定位 ＝ 取随机定位 ()
局_字体.字体大小 ＝ 15
局_字体.字体名称 ＝ “方正兰亭中粗黑简体”
画板.字体 (局_字体)
画板.文本颜色 (取颜色值 (103, 103, 103))
画板.置写出位置 (510, 10)
画板.写文本行 (局_定位, )
' ’‘’‘判断有没有图片，有的话就写上图片
局_当前文件数量 ＝ 文件_枚举 (局_当前图片文件夹, “*.jpg”, 局_图片文件数组, 真)
日志 (“当前评论图片数量:” ＋ 到文本 (局_当前文件数量))
如果真 (局_当前文件数量 ＞ 0)
计次循环首 (局_当前文件数量, 计次)
如果真 (计次 ＝ 1)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])
局_横坐标 ＝ 30
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 2)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])
局_横坐标 ＝ 30 ＋ 200 ＋ 10
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 3)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])
局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 4)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图”)
局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10 ＋ 200 ＋ 10
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 5)
跳出循环 ()

计次循环尾 ()

' 判断有没有图片，有图片和没图片文字的位置是不同的
调试输出 (“开始判断图片数量，当前图片数量为：” ＋ 到文本 (局_当前文件数量))
如果真 (局_当前文件数量 ＞ 0)  ' 有图片
局_横坐标 ＝ 30
局_纵坐标 ＝ 50 ＋ 200 ＋ 32
日志 (“这个评价有图片”)
如果真 (局_当前文件数量 ＝ 0)  ' 没有图片
局_横坐标 ＝ 30
局_纵坐标 ＝ 50 ＋ 32
日志 (“这个评价没有图片”)

局_字体.字体大小 ＝ 15
局_字体.字体名称 ＝ “方正兰亭中粗黑简体”
画板宽度 ＝ 647 － 35
画板.文本颜色 (取颜色值 (102, 102, 102))
距离 ＝ 8
画板.字体 (局_字体)
局_文字数组 ＝ 分割文本 (局_评语, #换行符, )
画板.置写出位置 (30, 局_纵坐标)
计次循环首 (取数组成员数 (局_文字数组), 计次)
日志 (“点评文字开始循环添加中”)
文本_逐字分割 (局_文字数组 [计次], 内容)
计次循环首 (取数组成员数 (内容), i)
如果真 (画板.取文本宽度 (行内容 ＋ 内容 [i]) ＞ 画板宽度)
画板.写文本行 (行内容, 距离)
调试输出 (行内容)
行内容 ＝ “”
行内容 ＝ 行内容 ＋ 内容 [i]
如果真 (取数组成员数 (内容) ＝ i)
画板.写文本行 (行内容, 距离)
行内容 ＝ “”

计次循环尾 ()
计次循环尾 ()
日志 (“文字写入完毕”)
局_输出高度 ＝ 画板.取写出位置 ().Y
c ＝ 画板.取图片 (, , #白色 )
画板.销毁 ()
' c ＝ 图片_转换Ex (c, 1, , )
' c ＝ 图片_取图片区域 (c, 0, 0, 图片_取宽度 (c), 局_输出高度)
写到文件 (取特定目录 (3) ＋ “/好评/” ＋ 时间_到时间戳 (取现行时间 (), , ) ＋ “.jpg”, c)
处理事件 ()
关闭所有文件 ()

i支持库列表	支持库注释
A	(未知支持库)
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 A<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 局_当前客户目录, 文本型<br /> .局部变量 局_评价数量, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 局_目录数组, 文本型, , "0"<br /> <br /> .如果真 (编辑框_天鹅好评路径.内容 ＝ “”)<br />     信息框 (“还没有文件路径”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> 局_评价数量 ＝ 目录_枚举子目录 (编辑框_天鹅好评路径.内容, 局_目录数组, 真)<br /> <br /> .计次循环首 (局_评价数量, 计次)<br />     局_当前客户目录 ＝ 局_目录数组 [计次]<br />     开始生成 (局_当前客户目录)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 开始生成<br /> .参数 参_当前客户目录, 文本型<br /> .局部变量 局_当前图片文件夹, 文本型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_文本个数, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 局_评语, 文本型<br /> .局部变量 画板, 内存画板<br /> .局部变量 局_头像, 字节集<br /> .局部变量 局_字体, 字体<br /> .局部变量 昵称, 文本型<br /> .局部变量 局_位置, 点坐标<br /> .局部变量 c, 字节集<br /> .局部变量 局_定位, 文本型<br /> .局部变量 局_当前文件数量, 整数型<br /> .局部变量 局_横坐标, 整数型<br /> .局部变量 局_纵坐标, 整数型<br /> .局部变量 局_图片文件数组, 文本型, , "0"<br /> .局部变量 图片, 字节集<br /> .局部变量 参_图片, 字节集<br /> .局部变量 局_文字数组, 文本型, , "0"<br /> .局部变量 距离, 整数型<br /> .局部变量 画板宽度, 双精度小数型<br /> .局部变量 内容, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 行内容, 文本型<br /> .局部变量 局_输出高度, 整数型<br /> .局部变量 局_评语字节集, 字节集<br /> <br /> <br /> .如果真 (目录_是否存在 (参_当前客户目录 ＋ “\图片”))<br />     局_当前图片文件夹 ＝ 参_当前客户目录 ＋ “\图片”<br />     日志 (“当前图片文件夹为：” ＋ 局_当前图片文件夹)<br /> <br /> .如果真结束<br /> <br /> 局_文本个数 ＝ 文件_枚举 (参_当前客户目录, “*.txt”, 局_文本数组, 真, , )<br /> .计次循环首 (局_文本个数, 计次)<br />     .如果真 (寻找文本 (局_文本数组 [计次], “评语”, , 假) ＞ 0)<br />         局_评语字节集 ＝ 读入文件 (局_文本数组 [计次])<br />         局_评语字节集 ＝ 子字节集替换 (局_评语字节集, { 10 }, { 13, 10 }, , )<br />         局_评语 ＝ 到文本 (局_评语字节集)<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' '''''''创建画板<br /> 日志 (“开始创建画板”)<br /> <br /> .如果真 (画板.创建 (678, 2000, #白色) ＝ 假)<br />     信息框 (“画板创建失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> ' ''''''写上头像<br /> 日志 (“开始创建头像”)<br /> 局_头像 ＝ 图片_取圆形图片 (取随机头像 ())<br /> 画板.画图片 (画板.载入图片数据 (局_头像, ), 30, 2, 40, 40)<br /> <br /> ' ''''''写上X先生或则X女士<br /> 日志 (“开始写上姓名”)<br /> 局_字体.字体大小 ＝ 18<br /> 局_字体.字体名称 ＝ “方正兰亭中粗黑简体”<br /> 画板.字体 (局_字体)<br /> 画板.文本颜色 (取颜色值 (54, 54, 54))<br /> 画板.置写出位置 (79, 10)<br /> 昵称 ＝ 取随机姓氏 ()<br /> 画板.写文本行 (昵称, )<br /> 局_位置 ＝ 画板.取写出位置 ()<br /> <br /> ' ''''''写上五星<br /> 日志 (“开始画上五星”)<br /> 画板.画图片 (画板.载入图片数据 (#五心, ), 89 ＋ 画板.取文本宽度 (昵称), 12, 118, 19)<br /> <br /> ' 画上定位logo<br /> 日志 (“开始写定位”)<br /> 画板.画图片 (画板.载入图片数据 (#定位, ), 470, 0, 40, 40)<br /> ' '''写上定位<br /> 局_定位 ＝ 取随机定位 ()<br /> 局_字体.字体大小 ＝ 15<br /> 局_字体.字体名称 ＝ “方正兰亭中粗黑简体”<br /> 画板.字体 (局_字体)<br /> 画板.文本颜色 (取颜色值 (103, 103, 103))<br /> 画板.置写出位置 (510, 10)<br /> 画板.写文本行 (局_定位, )<br /> <br /> ' ’‘’‘判断有没有图片，有的话就写上图片<br /> 局_当前文件数量 ＝ 文件_枚举 (局_当前图片文件夹, “*.jpg”, 局_图片文件数组, 真)<br /> 日志 (“当前评论图片数量:” ＋ 到文本 (局_当前文件数量))<br /> <br /> .如果真 (局_当前文件数量 ＞ 0)<br />     .计次循环首 (局_当前文件数量, 计次)<br /> <br />         .如果真 (计次 ＝ 1)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])<br /> <br />             局_横坐标 ＝ 30<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br />         .如果真 (计次 ＝ 2)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])<br />             局_横坐标 ＝ 30 ＋ 200 ＋ 10<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br /> <br />         .如果真 (计次 ＝ 3)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])<br />             局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br />         .如果真 (计次 ＝ 4)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图”)<br />             局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10 ＋ 200 ＋ 10<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br />         .如果真 (计次 ＝ 5)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> ' 判断有没有图片，有图片和没图片文字的位置是不同的<br /> 调试输出 (“开始判断图片数量，当前图片数量为：” ＋ 到文本 (局_当前文件数量))<br /> <br /> .如果真 (局_当前文件数量 ＞ 0)  ' 有图片<br />     局_横坐标 ＝ 30<br />     局_纵坐标 ＝ 50 ＋ 200 ＋ 32<br />     日志 (“这个评价有图片”)<br /> .如果真结束<br /> .如果真 (局_当前文件数量 ＝ 0)  ' 没有图片<br />     局_横坐标 ＝ 30<br />     局_纵坐标 ＝ 50 ＋ 32<br />     日志 (“这个评价没有图片”)<br /> .如果真结束<br /> <br /> <br /> 局_字体.字体大小 ＝ 15<br /> 局_字体.字体名称 ＝ “方正兰亭中粗黑简体”<br /> 画板宽度 ＝ 647 － 35<br /> <br /> 画板.文本颜色 (取颜色值 (102, 102, 102))<br /> 距离 ＝ 8<br /> 画板.字体 (局_字体)<br /> 局_文字数组 ＝ 分割文本 (局_评语, #换行符, )<br /> <br /> <br /> 画板.置写出位置 (30, 局_纵坐标)<br /> <br /> .计次循环首 (取数组成员数 (局_文字数组), 计次)<br />     日志 (“点评文字开始循环添加中”)<br /> <br />     文本_逐字分割 (局_文字数组 [计次], 内容)<br /> <br /> <br />     .计次循环首 (取数组成员数 (内容), i)<br /> <br />         .如果真 (画板.取文本宽度 (行内容 ＋ 内容 <i>) ＞ 画板宽度)<br />             画板.写文本行 (行内容, 距离)<br />             调试输出 (行内容)<br /> <br />             行内容 ＝ “”<br />         .如果真结束<br />         行内容 ＝ 行内容 ＋ 内容 <i><br />         .如果真 (取数组成员数 (内容) ＝ i)<br />             画板.写文本行 (行内容, 距离)<br />             行内容 ＝ “”<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> 日志 (“文字写入完毕”)<br /> <br /> 局_输出高度 ＝ 画板.取写出位置 ().Y<br /> c ＝ 画板.取图片 (, , #白色)<br /> 画板.销毁 ()<br /> ' c ＝ 图片_转换Ex (c, 1, , )<br /> ' c ＝ 图片_取图片区域 (c, 0, 0, 图片_取宽度 (c), 局_输出高度)<br /> 写到文件 (取特定目录 (3) ＋ “/好评/” ＋ 时间_到时间戳 (取现行时间 (), , ) ＋ “.jpg”, c)<br /> 处理事件 ()<br /> 关闭所有文件 ()

1026360899

是可可吖 发表于 2025-4-2 16:03
没代码就一张图谁能猜的到？枚举不就行了

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
局_当前客户目录	文本型
局_评价数量	整数型
计次	整数型
局_目录数组	文本型		0

如果真 (编辑框_天鹅好评路径.内容 ＝ “”)
信息框 (“还没有文件路径”, 0, , )
返回 ()

局_评价数量 ＝ 目录_枚举子目录 (编辑框_天鹅好评路径.内容, 局_目录数组, 真)
计次循环首 (局_评价数量, 计次)
局_当前客户目录 ＝ 局_目录数组 [计次]
开始生成 (局_当前客户目录)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
开始生成
参数名	类 型	参考	可空	数组	备 注
参_当前客户目录	文本型

变量名	类 型	静态	数组	备 注
局_当前图片文件夹	文本型
局_文本数组	文本型		0
局_文本个数	整数型
计次	整数型
局_评语	文本型
画板	内存画板
局_头像	字节集
局_字体	字体
昵称	文本型
局_位置	点坐标
c	字节集
局_定位	文本型
局_当前文件数量	整数型
局_横坐标	整数型
局_纵坐标	整数型
局_图片文件数组	文本型		0
图片	字节集
参_图片	字节集
局_文字数组	文本型		0
距离	整数型
画板宽度	双精度小数型
内容	文本型		0
i	整数型
行内容	文本型
局_输出高度	整数型
局_评语字节集	字节集

如果真 (目录_是否存在 (参_当前客户目录 ＋ “\图片”))
局_当前图片文件夹 ＝ 参_当前客户目录 ＋ “\图片”
日志 (“当前图片文件夹为：” ＋ 局_当前图片文件夹)

局_文本个数 ＝ 文件_枚举 (参_当前客户目录, “*.txt”, 局_文本数组, 真, , )
计次循环首 (局_文本个数, 计次)
如果真 (寻找文本 (局_文本数组 [计次], “评语”, , 假) ＞ 0)
局_评语字节集 ＝ 读入文件 (局_文本数组 [计次])
局_评语字节集 ＝ 子字节集替换 (局_评语字节集, { 10 }, { 13, 10 }, , )
局_评语 ＝ 到文本 (局_评语字节集)

计次循环尾 ()
' '''''''创建画板
日志 (“开始创建画板”)
如果真 (画板.创建 (678, 2000, #白色 ) ＝ 假)
信息框 (“画板创建失败”, 0, , )
返回 ()
' ''''''写上头像
日志 (“开始创建头像”)
局_头像 ＝ 图片_取圆形图片 (取随机头像 ())
画板.画图片 (画板.载入图片数据 (局_头像, ), 30, 2, 40, 40)
' ''''''写上X先生或则X女士
日志 (“开始写上姓名”)
局_字体.字体大小 ＝ 18
局_字体.字体名称 ＝ “方正兰亭中粗黑简体”
画板.字体 (局_字体)
画板.文本颜色 (取颜色值 (54, 54, 54))
画板.置写出位置 (79, 10)
昵称 ＝ 取随机姓氏 ()
画板.写文本行 (昵称, )
局_位置 ＝ 画板.取写出位置 ()
' ''''''写上五星
日志 (“开始画上五星”)
画板.画图片 (画板.载入图片数据 ( #五心, ), 89 ＋ 画板.取文本宽度 (昵称), 12, 118, 19)
' 画上定位logo
日志 (“开始写定位”)
画板.画图片 (画板.载入图片数据 ( #定位, ), 470, 0, 40, 40)
' '''写上定位
局_定位 ＝ 取随机定位 ()
局_字体.字体大小 ＝ 15
局_字体.字体名称 ＝ “方正兰亭中粗黑简体”
画板.字体 (局_字体)
画板.文本颜色 (取颜色值 (103, 103, 103))
画板.置写出位置 (510, 10)
画板.写文本行 (局_定位, )
' ’‘’‘判断有没有图片，有的话就写上图片
局_当前文件数量 ＝ 文件_枚举 (局_当前图片文件夹, “*.jpg”, 局_图片文件数组, 真)
日志 (“当前评论图片数量:” ＋ 到文本 (局_当前文件数量))
如果真 (局_当前文件数量 ＞ 0)
计次循环首 (局_当前文件数量, 计次)
如果真 (计次 ＝ 1)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])
局_横坐标 ＝ 30
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 2)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])
局_横坐标 ＝ 30 ＋ 200 ＋ 10
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 3)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])
局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 4)
日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图”)
局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10 ＋ 200 ＋ 10
局_纵坐标 ＝ 50
图片 ＝ 读入文件 (局_图片文件数组 [计次])
图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)
画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)

如果真 (计次 ＝ 5)
跳出循环 ()

计次循环尾 ()

' 判断有没有图片，有图片和没图片文字的位置是不同的
调试输出 (“开始判断图片数量，当前图片数量为：” ＋ 到文本 (局_当前文件数量))
如果真 (局_当前文件数量 ＞ 0)  ' 有图片
局_横坐标 ＝ 30
局_纵坐标 ＝ 50 ＋ 200 ＋ 32
日志 (“这个评价有图片”)
如果真 (局_当前文件数量 ＝ 0)  ' 没有图片
局_横坐标 ＝ 30
局_纵坐标 ＝ 50 ＋ 32
日志 (“这个评价没有图片”)

局_字体.字体大小 ＝ 15
局_字体.字体名称 ＝ “方正兰亭中粗黑简体”
画板宽度 ＝ 647 － 35
画板.文本颜色 (取颜色值 (102, 102, 102))
距离 ＝ 8
画板.字体 (局_字体)
局_文字数组 ＝ 分割文本 (局_评语, #换行符, )
画板.置写出位置 (30, 局_纵坐标)
计次循环首 (取数组成员数 (局_文字数组), 计次)
日志 (“点评文字开始循环添加中”)
文本_逐字分割 (局_文字数组 [计次], 内容)
计次循环首 (取数组成员数 (内容), i)
如果真 (画板.取文本宽度 (行内容 ＋ 内容 [i]) ＞ 画板宽度)
画板.写文本行 (行内容, 距离)
调试输出 (行内容)
行内容 ＝ “”
行内容 ＝ 行内容 ＋ 内容 [i]
如果真 (取数组成员数 (内容) ＝ i)
画板.写文本行 (行内容, 距离)
行内容 ＝ “”

计次循环尾 ()
计次循环尾 ()
日志 (“文字写入完毕”)
局_输出高度 ＝ 画板.取写出位置 ().Y
c ＝ 画板.取图片 (, , #白色 )
画板.销毁 ()
' c ＝ 图片_转换Ex (c, 1, , )
' c ＝ 图片_取图片区域 (c, 0, 0, 图片_取宽度 (c), 局_输出高度)
写到文件 (取特定目录 (3) ＋ “/好评/” ＋ 时间_到时间戳 (取现行时间 (), , ) ＋ “.jpg”, c)
处理事件 ()
关闭所有文件 ()

i支持库列表	支持库注释
A	(未知支持库)
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 A<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 局_当前客户目录, 文本型<br /> .局部变量 局_评价数量, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 局_目录数组, 文本型, , "0"<br /> <br /> .如果真 (编辑框_天鹅好评路径.内容 ＝ “”)<br />     信息框 (“还没有文件路径”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> 局_评价数量 ＝ 目录_枚举子目录 (编辑框_天鹅好评路径.内容, 局_目录数组, 真)<br /> <br /> .计次循环首 (局_评价数量, 计次)<br />     局_当前客户目录 ＝ 局_目录数组 [计次]<br />     开始生成 (局_当前客户目录)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 开始生成<br /> .参数 参_当前客户目录, 文本型<br /> .局部变量 局_当前图片文件夹, 文本型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_文本个数, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 局_评语, 文本型<br /> .局部变量 画板, 内存画板<br /> .局部变量 局_头像, 字节集<br /> .局部变量 局_字体, 字体<br /> .局部变量 昵称, 文本型<br /> .局部变量 局_位置, 点坐标<br /> .局部变量 c, 字节集<br /> .局部变量 局_定位, 文本型<br /> .局部变量 局_当前文件数量, 整数型<br /> .局部变量 局_横坐标, 整数型<br /> .局部变量 局_纵坐标, 整数型<br /> .局部变量 局_图片文件数组, 文本型, , "0"<br /> .局部变量 图片, 字节集<br /> .局部变量 参_图片, 字节集<br /> .局部变量 局_文字数组, 文本型, , "0"<br /> .局部变量 距离, 整数型<br /> .局部变量 画板宽度, 双精度小数型<br /> .局部变量 内容, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 行内容, 文本型<br /> .局部变量 局_输出高度, 整数型<br /> .局部变量 局_评语字节集, 字节集<br /> <br /> <br /> .如果真 (目录_是否存在 (参_当前客户目录 ＋ “\图片”))<br />     局_当前图片文件夹 ＝ 参_当前客户目录 ＋ “\图片”<br />     日志 (“当前图片文件夹为：” ＋ 局_当前图片文件夹)<br /> <br /> .如果真结束<br /> <br /> 局_文本个数 ＝ 文件_枚举 (参_当前客户目录, “*.txt”, 局_文本数组, 真, , )<br /> .计次循环首 (局_文本个数, 计次)<br />     .如果真 (寻找文本 (局_文本数组 [计次], “评语”, , 假) ＞ 0)<br />         局_评语字节集 ＝ 读入文件 (局_文本数组 [计次])<br />         局_评语字节集 ＝ 子字节集替换 (局_评语字节集, { 10 }, { 13, 10 }, , )<br />         局_评语 ＝ 到文本 (局_评语字节集)<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' '''''''创建画板<br /> 日志 (“开始创建画板”)<br /> <br /> .如果真 (画板.创建 (678, 2000, #白色) ＝ 假)<br />     信息框 (“画板创建失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> ' ''''''写上头像<br /> 日志 (“开始创建头像”)<br /> 局_头像 ＝ 图片_取圆形图片 (取随机头像 ())<br /> 画板.画图片 (画板.载入图片数据 (局_头像, ), 30, 2, 40, 40)<br /> <br /> ' ''''''写上X先生或则X女士<br /> 日志 (“开始写上姓名”)<br /> 局_字体.字体大小 ＝ 18<br /> 局_字体.字体名称 ＝ “方正兰亭中粗黑简体”<br /> 画板.字体 (局_字体)<br /> 画板.文本颜色 (取颜色值 (54, 54, 54))<br /> 画板.置写出位置 (79, 10)<br /> 昵称 ＝ 取随机姓氏 ()<br /> 画板.写文本行 (昵称, )<br /> 局_位置 ＝ 画板.取写出位置 ()<br /> <br /> ' ''''''写上五星<br /> 日志 (“开始画上五星”)<br /> 画板.画图片 (画板.载入图片数据 (#五心, ), 89 ＋ 画板.取文本宽度 (昵称), 12, 118, 19)<br /> <br /> ' 画上定位logo<br /> 日志 (“开始写定位”)<br /> 画板.画图片 (画板.载入图片数据 (#定位, ), 470, 0, 40, 40)<br /> ' '''写上定位<br /> 局_定位 ＝ 取随机定位 ()<br /> 局_字体.字体大小 ＝ 15<br /> 局_字体.字体名称 ＝ “方正兰亭中粗黑简体”<br /> 画板.字体 (局_字体)<br /> 画板.文本颜色 (取颜色值 (103, 103, 103))<br /> 画板.置写出位置 (510, 10)<br /> 画板.写文本行 (局_定位, )<br /> <br /> ' ’‘’‘判断有没有图片，有的话就写上图片<br /> 局_当前文件数量 ＝ 文件_枚举 (局_当前图片文件夹, “*.jpg”, 局_图片文件数组, 真)<br /> 日志 (“当前评论图片数量:” ＋ 到文本 (局_当前文件数量))<br /> <br /> .如果真 (局_当前文件数量 ＞ 0)<br />     .计次循环首 (局_当前文件数量, 计次)<br /> <br />         .如果真 (计次 ＝ 1)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])<br /> <br />             局_横坐标 ＝ 30<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br />         .如果真 (计次 ＝ 2)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])<br />             局_横坐标 ＝ 30 ＋ 200 ＋ 10<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br /> <br />         .如果真 (计次 ＝ 3)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图” ＋ “当前图片路径为：” ＋ 局_图片文件数组 [计次])<br />             局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br />         .如果真 (计次 ＝ 4)<br />             日志 (“正在画第” ＋ 到文本 (计次) ＋ “张图”)<br />             局_横坐标 ＝ 30 ＋ 200 ＋ 10 ＋ 200 ＋ 10 ＋ 200 ＋ 10<br />             局_纵坐标 ＝ 50<br />             图片 ＝ 读入文件 (局_图片文件数组 [计次])<br />             图片 ＝ 图片四角圆角化 (图片, 图片_取宽度 (参_图片), 图片_取高度 (参_图片), 10)<br />             画板.画图片 (画板.载入图片数据 (图片, ), 局_横坐标, 局_纵坐标, 200, 200)<br />         .如果真结束<br /> <br />         .如果真 (计次 ＝ 5)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> ' 判断有没有图片，有图片和没图片文字的位置是不同的<br /> 调试输出 (“开始判断图片数量，当前图片数量为：” ＋ 到文本 (局_当前文件数量))<br /> <br /> .如果真 (局_当前文件数量 ＞ 0)  ' 有图片<br />     局_横坐标 ＝ 30<br />     局_纵坐标 ＝ 50 ＋ 200 ＋ 32<br />     日志 (“这个评价有图片”)<br /> .如果真结束<br /> .如果真 (局_当前文件数量 ＝ 0)  ' 没有图片<br />     局_横坐标 ＝ 30<br />     局_纵坐标 ＝ 50 ＋ 32<br />     日志 (“这个评价没有图片”)<br /> .如果真结束<br /> <br /> <br /> 局_字体.字体大小 ＝ 15<br /> 局_字体.字体名称 ＝ “方正兰亭中粗黑简体”<br /> 画板宽度 ＝ 647 － 35<br /> <br /> 画板.文本颜色 (取颜色值 (102, 102, 102))<br /> 距离 ＝ 8<br /> 画板.字体 (局_字体)<br /> 局_文字数组 ＝ 分割文本 (局_评语, #换行符, )<br /> <br /> <br /> 画板.置写出位置 (30, 局_纵坐标)<br /> <br /> .计次循环首 (取数组成员数 (局_文字数组), 计次)<br />     日志 (“点评文字开始循环添加中”)<br /> <br />     文本_逐字分割 (局_文字数组 [计次], 内容)<br /> <br /> <br />     .计次循环首 (取数组成员数 (内容), i)<br /> <br />         .如果真 (画板.取文本宽度 (行内容 ＋ 内容 <i>) ＞ 画板宽度)<br />             画板.写文本行 (行内容, 距离)<br />             调试输出 (行内容)<br /> <br />             行内容 ＝ “”<br />         .如果真结束<br />         行内容 ＝ 行内容 ＋ 内容 <i><br />         .如果真 (取数组成员数 (内容) ＝ i)<br />             画板.写文本行 (行内容, 距离)<br />             行内容 ＝ “”<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> 日志 (“文字写入完毕”)<br /> <br /> 局_输出高度 ＝ 画板.取写出位置 ().Y<br /> c ＝ 画板.取图片 (, , #白色)<br /> 画板.销毁 ()<br /> ' c ＝ 图片_转换Ex (c, 1, , )<br /> ' c ＝ 图片_取图片区域 (c, 0, 0, 图片_取宽度 (c), 局_输出高度)<br /> 写到文件 (取特定目录 (3) ＋ “/好评/” ＋ 时间_到时间戳 (取现行时间 (), , ) ＋ “.jpg”, c)<br /> 处理事件 ()<br /> 关闭所有文件 ()

aipca

其它没看出来，就是这个局_横坐标写法改一改，不用写一堆如果真。

局_横坐标 ＝ 30 ＋ (200 ＋ 10) × (计次 － 1)

补充内容 (2025-4-2 16:41):
估计是内存画板的问题 试着把内存画板画图片屏了看看

1026360899

aipca 发表于 2025-4-2 16:39
其它没看出来，就是这个局_横坐标写法改一改，不用写一堆如果真。

局_横坐标 ＝ 30 ＋ (200 ＋ 10) × (计 ...

好的   我先把内容画板弄了试试   横坐标那个不影响  我就懒得动了