路径到表格问题

学易未精

大佬们，下午好，下面的代码生成的表格在压缩包内，我当前遇到的问题是这样，浏览文件夹 (“请选择txt组的文件夹”, )，当前代码是选择两次txt组的文件夹，如果要选择5次或2次或8次，就是选择的次数让人为决定，不知道如何实现

表文件.rar (2.3 KB, 下载次数: 1)

6 天前 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
ini_文件夹路径	文本型
ini路径_文件数组	文本型		0
ini_计次	整数型
ini_模版	文本型
ini路径_数量	整数型
txt_文件夹路径	文本型
txt路径_文件数组	文本型		0
txt路径_数量	整数型
txt_计次	整数型
CSV输出内容	文本型
CSV文件路径	文本型
CSV表头	文本型
i	整数型
表头名称	文本型
txt组合路径	文本型
txt2_文件夹路径	文本型
txt2路径_文件数组	文本型		0
txt2路径_数量	整数型
标题1	文本型
标题2	文本型

' 获取样板文件
ini_文件夹路径 ＝ 浏览文件夹 (“请选择样板文件夹”, )
如果真 (ini_文件夹路径 ≠ “”)
文件_枚举 (ini_文件夹路径, “*.ini”, ini路径_文件数组, 真, 真, )
数组_排序1 (ini路径_文件数组, 假)
ini路径_数量 ＝ 取数组成员数 (ini路径_文件数组)

' 获取txt组文件
txt_文件夹路径 ＝ 浏览文件夹 (“请选择txt组的文件夹”, )
如果真 (txt_文件夹路径 ≠ “”)
文件_枚举 (txt_文件夹路径, “*.txt”, txt路径_文件数组, 真, 真, )
数组_排序1 (txt路径_文件数组, 假)
txt路径_数量 ＝ 取数组成员数 (txt路径_文件数组)
输入框 (“请输入一个表头标题”, “ ”, “”, 标题1, , )

' 获取txt组文件
txt2_文件夹路径 ＝ 浏览文件夹 (“请选择txt组的文件夹”, )
如果真 (txt2_文件夹路径 ≠ “”)
文件_枚举 (txt2_文件夹路径, “*.txt”, txt2路径_文件数组, 真, 真, )
数组_排序1 (txt2路径_文件数组, 假)
txt2路径_数量 ＝ 取数组成员数 (txt2路径_文件数组)
输入框 (“请输入一个表头标题”, “ ”, “”, 标题2, , )

' 检查是否选择了文件夹
如果真 (ini路径_数量 ＝ 0 或 txt路径_数量 ＝ 0 或 txt2路径_数量 ＝ 0)
信息框 (“请选择有效的文件夹路径！”, 0, , )
返回 ()

表头名称 ＝ 标题1 ＋ “,” ＋ 标题2  ' 这里的表头名称随便都行
' 创建CSV表头
CSV表头 ＝ “样板”  ' 样板的标题是固定的
计次循环首 (txt路径_数量, i)
CSV表头 ＝ CSV表头 ＋ “,” ＋ 表头名称
计次循环尾 ()
CSV输出内容 ＝ CSV表头 ＋ #换行符  ' 这里是组合的表头
计次循环首 (ini路径_数量, ini_计次)
CSV输出内容 ＝ CSV输出内容 ＋ ini路径_文件数组 [ini_计次]  ' 样板文件夹路径
计次循环首 (txt路径_数量, txt_计次)
CSV输出内容 ＝ CSV输出内容 ＋ “,” ＋ txt路径_文件数组 [txt_计次] ＋ “,” ＋ txt2路径_文件数组 [txt_计次]  ' 样板和组路径开始组合为表列
' 调试输出 (CSV输出内容)
计次循环尾 ()
CSV输出内容 ＝ CSV输出内容 ＋ #换行符
计次循环尾 ()
写到文件 (取特定目录 (3) ＋ “\表格生成.csv”, 到字节集 (CSV输出内容))

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 ini_文件夹路径, 文本型<br /> .局部变量 ini路径_文件数组, 文本型, , "0"<br /> .局部变量 ini_计次, 整数型<br /> .局部变量 ini_模版, 文本型<br /> .局部变量 ini路径_数量, 整数型<br /> .局部变量 txt_文件夹路径, 文本型<br /> .局部变量 txt路径_文件数组, 文本型, , "0"<br /> .局部变量 txt路径_数量, 整数型<br /> .局部变量 txt_计次, 整数型<br /> .局部变量 CSV输出内容, 文本型<br /> .局部变量 CSV文件路径, 文本型<br /> .局部变量 CSV表头, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 表头名称, 文本型<br /> .局部变量 txt组合路径, 文本型<br /> .局部变量 txt2_文件夹路径, 文本型<br /> .局部变量 txt2路径_文件数组, 文本型, , "0"<br /> .局部变量 txt2路径_数量, 整数型<br /> .局部变量 标题1, 文本型<br /> .局部变量 标题2, 文本型<br /> <br /> ' 获取样板文件<br /> ini_文件夹路径 ＝ 浏览文件夹 (“请选择样板文件夹”, )<br /> .如果真 (ini_文件夹路径 ≠ “”)<br />     文件_枚举 (ini_文件夹路径, “*.ini”, ini路径_文件数组, 真, 真, )<br />     数组_排序1 (ini路径_文件数组, 假)<br />     ini路径_数量 ＝ 取数组成员数 (ini路径_文件数组)<br /> .如果真结束<br /> <br /> ' 获取txt组文件<br /> txt_文件夹路径 ＝ 浏览文件夹 (“请选择txt组的文件夹”, )<br /> .如果真 (txt_文件夹路径 ≠ “”)<br />     文件_枚举 (txt_文件夹路径, “*.txt”, txt路径_文件数组, 真, 真, )<br />     数组_排序1 (txt路径_文件数组, 假)<br />     txt路径_数量 ＝ 取数组成员数 (txt路径_文件数组)<br />     输入框 (“请输入一个表头标题”, “ ”, “”, 标题1, , )<br /> .如果真结束<br /> <br /> ' 获取txt组文件<br /> txt2_文件夹路径 ＝ 浏览文件夹 (“请选择txt组的文件夹”, )<br /> .如果真 (txt2_文件夹路径 ≠ “”)<br />     文件_枚举 (txt2_文件夹路径, “*.txt”, txt2路径_文件数组, 真, 真, )<br />     数组_排序1 (txt2路径_文件数组, 假)<br />     txt2路径_数量 ＝ 取数组成员数 (txt2路径_文件数组)<br />     输入框 (“请输入一个表头标题”, “ ”, “”, 标题2, , )<br /> .如果真结束<br /> <br /> <br /> ' 检查是否选择了文件夹<br /> .如果真 (ini路径_数量 ＝ 0 或 txt路径_数量 ＝ 0 或 txt2路径_数量 ＝ 0)<br />     信息框 (“请选择有效的文件夹路径！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 表头名称 ＝ 标题1 ＋ “,” ＋ 标题2  ' 这里的表头名称随便都行<br /> <br /> ' 创建CSV表头<br /> CSV表头 ＝ “样板”  ' 样板的标题是固定的<br /> <br /> .计次循环首 (txt路径_数量, i)<br />     CSV表头 ＝ CSV表头 ＋ “,” ＋ 表头名称<br /> .计次循环尾 ()<br /> CSV输出内容 ＝ CSV表头 ＋ #换行符  ' 这里是组合的表头<br /> <br /> .计次循环首 (ini路径_数量, ini_计次)<br />     CSV输出内容 ＝ CSV输出内容 ＋ ini路径_文件数组 [ini_计次]  ' 样板文件夹路径<br /> <br />     .计次循环首 (txt路径_数量, txt_计次)<br />         CSV输出内容 ＝ CSV输出内容 ＋ “,” ＋ txt路径_文件数组 [txt_计次] ＋ “,” ＋ txt2路径_文件数组 [txt_计次]  ' 样板和组路径开始组合为表列<br />         ' 调试输出 (CSV输出内容)<br />     .计次循环尾 ()<br />     CSV输出内容 ＝ CSV输出内容 ＋ #换行符<br /> .计次循环尾 ()<br /> 写到文件 (取特定目录 (3) ＋ “\表格生成.csv”, 到字节集 (CSV输出内容))

1173847128

选那么多次要干嘛，别是巴不得不选你是巴不得多选几次.....

学易未精

1173847128 发表于 2025-6-29 17:54
选那么多次要干嘛，别是巴不得不选你是巴不得多选几次.....

因为文件夹是分开的，需要把每个文件夹的路径都提取到表格里面