文本分割哪位大哥帮忙修改源码

四叔

  

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

变量名	类 型	静态	数组	备 注
原文本	文本型
行	文本型		0
n	整数型
列	文本型		0
输出文本	文本型
OY	文本型
i	整数型
想要保存多少列	整数型
局_行文本	文本型

OY ＝ 编辑框2.内容
原文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\测试文本.txt”))
调试输出 (原文本)
行 ＝ 分割文本 (原文本, #换行符, )
调试输出 (行)
计次循环首 (取数组成员数 (行), n)
列 ＝ 分割文本 (行 [n], , )
想要保存多少列 ＝ 2  ' // 这里自己改，写0就是根据源文本列数保存
如果真 (想要保存多少列 ＝ 0 或 想要保存多少列 ＞ 取数组成员数 (列))
想要保存多少列 ＝ 取数组成员数 (列)

计次循环首 (想要保存多少列, i)
如果 (i ＝ 想要保存多少列)
局_行文本 ＝ 局_行文本 ＋ 列 [i] ＋ #换行符
局_行文本 ＝ 局_行文本 ＋ 列 [i] ＋ “,”

计次循环尾 ()
输出文本 ＝ 输出文本 ＋ 局_行文本
计次循环尾 ()
编辑框1.内容 ＝ 输出文本
写到文件 (取运行目录 () ＋ “\输出文本.txt”, 到字节集 (输出文本))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原文本, 文本型<br /> .局部变量 行, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 列, 文本型, , "0"<br /> .局部变量 输出文本, 文本型<br /> .局部变量 OY, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 想要保存多少列, 整数型<br /> .局部变量 局_行文本, 文本型<br /> <br /> OY ＝ 编辑框2.内容<br /> 原文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\测试文本.txt”))<br /> 调试输出 (原文本)<br /> <br /> 行 ＝ 分割文本 (原文本, #换行符, )<br /> 调试输出 (行)<br /> .计次循环首 (取数组成员数 (行), n)<br />     列 ＝ 分割文本 (行 [n], , )<br /> <br />     想要保存多少列 ＝ 2  ' // 这里自己改，写0就是根据源文本列数保存<br /> <br />     .如果真 (想要保存多少列 ＝ 0 或 想要保存多少列 ＞ 取数组成员数 (列))<br />         想要保存多少列 ＝ 取数组成员数 (列)<br />     .如果真结束<br /> <br /> <br />     .计次循环首 (想要保存多少列, i)<br />         .如果 (i ＝ 想要保存多少列)<br />             局_行文本 ＝ 局_行文本 ＋ 列 <i> ＋ #换行符<br />         .否则<br />             局_行文本 ＝ 局_行文本 ＋ 列 <i> ＋ “,”<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> <br />     输出文本 ＝ 输出文本 ＋ 局_行文本<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 输出文本<br /> 写到文件 (取运行目录 () ＋ “\输出文本.txt”, 到字节集 (输出文本))

ljy559

sinewtec 发表于 2023-7-6 16:55

输出空白的，大佬

ljy559

ljy559 发表于 2023-7-6 17:02
输出空白的，大佬

只能6个字段，6以下的输出空白的老大

补充内容 (2023-7-6 17:06):
每次需要改测试txt的，不根据txt根据编辑框1.内容可以的？

四叔

  

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

变量名	类 型	静态	数组	备 注
原文本	文本型
行	文本型		0
n	整数型
列	文本型		0
输出文本	文本型
OY	文本型
i	整数型
想要保存多少列	整数型
局_行文本	文本型
保存列的顺序	整数型		0
初始化	整数型

OY ＝ 编辑框2.内容
原文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\测试文本.txt”))
行 ＝ 分割文本 (原文本, #换行符, )
调试输出 (原文本)
计次循环首 (取数组成员数 (行), n)
列 ＝ 分割文本 (行 [n], , )
如果真 (初始化 ＝ 0)
想要保存多少列 ＝ 3  ' // 保存多少列这里自己改，写0或者超出原列数就是原列数
如果真 (想要保存多少列 ＝ 0 或 想要保存多少列 ＞ 取数组成员数 (列))
想要保存多少列 ＝ 取数组成员数 (列)
重定义数组 (保存列的顺序, 假, 想要保存多少列)
保存列的顺序 ＝ { 1, 3, 2 }  ' // 顺序这里改
初始化 ＝ 1

计次循环首 (想要保存多少列, i)
如果 (i ＝ 想要保存多少列)
局_行文本 ＝ 局_行文本 ＋ 列 [保存列的顺序 [i]] ＋ #换行符
局_行文本 ＝ 局_行文本 ＋ 列 [保存列的顺序 [i]] ＋ “,”

计次循环尾 ()
输出文本 ＝ 输出文本 ＋ 局_行文本
计次循环尾 ()
编辑框1.内容 ＝ 输出文本
写到文件 (取运行目录 () ＋ “\输出文本.txt”, 到字节集 (输出文本))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原文本, 文本型<br /> .局部变量 行, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 列, 文本型, , "0"<br /> .局部变量 输出文本, 文本型<br /> .局部变量 OY, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 想要保存多少列, 整数型<br /> .局部变量 局_行文本, 文本型<br /> .局部变量 保存列的顺序, 整数型, , "0"<br /> .局部变量 初始化, 整数型<br /> <br /> OY ＝ 编辑框2.内容<br /> 原文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\测试文本.txt”))<br /> 行 ＝ 分割文本 (原文本, #换行符, )<br /> <br /> <br /> 调试输出 (原文本)<br /> <br /> <br /> .计次循环首 (取数组成员数 (行), n)<br />     列 ＝ 分割文本 (行 [n], , )<br /> <br />     .如果真 (初始化 ＝ 0)<br />         想要保存多少列 ＝ 3  ' // 保存多少列这里自己改，写0或者超出原列数就是原列数<br />         .如果真 (想要保存多少列 ＝ 0 或 想要保存多少列 ＞ 取数组成员数 (列))<br />             想要保存多少列 ＝ 取数组成员数 (列)<br />         .如果真结束<br />         重定义数组 (保存列的顺序, 假, 想要保存多少列)<br />         保存列的顺序 ＝ { 1, 3, 2 }  ' // 顺序这里改<br />         初始化 ＝ 1<br />     .如果真结束<br /> <br /> <br />     .计次循环首 (想要保存多少列, i)<br />         .如果 (i ＝ 想要保存多少列)<br />             局_行文本 ＝ 局_行文本 ＋ 列 [保存列的顺序 <i>] ＋ #换行符<br />         .否则<br />             局_行文本 ＝ 局_行文本 ＋ 列 [保存列的顺序 <i>] ＋ “,”<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> <br />     输出文本 ＝ 输出文本 ＋ 局_行文本<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 输出文本<br /> 写到文件 (取运行目录 () ＋ “\输出文本.txt”, 到字节集 (输出文本))

补充内容 (2023-7-6 17:10):
刚刚没看到你要自定义顺序，这个可以了

四叔

源码.e (5.35 KB, 下载次数: 1)

2023-7-6 17:18 上传

点击文件名下载附件

sinewtec

1.rar (1.7 KB, 下载次数: 0)

2023-7-6 17:18 上传

点击文件名下载附件