路径到表格问题 - 精易论坛

子程序名	返回值类型	公开	备注
_按钮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输出内容))