|
发表于 2024-6-9 15:13:47
|
显示全部楼层
浙江省嘉兴市
|
子程序_同列分割 | 整数型 | | |
参数_文本 | 文本型 | | | | 参数_基数 | 整数型 | | | | 参数_表分割符 | 文本型 | | | | 参数_内分割符 | 文本型 | | | | 参数_列 | 整数型 | | | | 参数_接收域组 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 局_分割组 | 文本型 | | 0 | 局_分割组1 | 文本型 | | 0 | 局_调类_域组 | 类_域组 | | | 局_写入数组 | 文本型 | | 0 | 局_计数 | 整数型 | | | 局_计数1 | 整数型 | | | 局_记录位置 | 整数型 | | |
如果真 (是否为空 (参数_基数 ))  参数_基数 = 1 如果真 (是否为空 (参数_表分割符 ))  参数_表分割符 = #换行符 如果真 (是否为空 (参数_列 ))  参数_列 = 1 局_记录位置 = 1局_分割组 = 分割文本 (参数_文本, 参数_表分割符, )局_调类_域组. 定义 (参数_接收域组, 参数_基数, ) 变量循环首 (1, 取数组成员数 (局_分割组 ) ÷ 参数_基数, 参数_基数, 局_计数 ) 清除数组 (局_写入数组 ) 变量循环首 (局_记录位置, 局_记录位置 + 参数_基数 - 1, 1, 局_计数1 )  局_分割组1 = 分割文本 (局_分割组 [局_计数 ], 参数_内分割符, ) 加入成员 (局_写入数组, 局_分割组1 [参数_列 ]) 变量循环尾 () 局_调类_域组. 添加 (参数_接收域组, 局_写入数组, 参数_基数 ) 局_记录位置 = 局_计数1 变量循环尾 ()返回 (局_调类_域组. 取域数 (参数_接收域组, 参数_基数 ))
|
|