文本数据转表格 还请大神帮忙

浩浩001

把文本里面的数据转成表格比如11111   转到表格里面就是两行   两行总个数36

月下美孤

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
read_fnum			'配置文本 文件号
write_fnum	整数型		写出文件号
url_write_to_	文本型		写出路径

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

read_fnum ＝ 打开文件 (取运行目录 () ＋ “\read.txt”, , )
url_write_to_ ＝ 取运行目录 () ＋ “\writeto.csv”
如果真 (文件是否存在 (url_write_to_) ＝ 假)
写到文件 (url_write_to_, { 0 })
write_fnum ＝ 打开文件 (取运行目录 () ＋ “\writeto.csv”, , )
子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
linetext	文本型
arr_temp	文本型		0
write_text	文本型			‘欲写文
i	整数型

循环判断首 ()
linetext ＝ 读入一行 (read_fnum)
arr_temp ＝ 分割文本 (linetext, “-------”, )
调试输出 (arr_temp)
如果真 (取数组成员数 (arr_temp) ＝ 3)
write_text ＝ “”
计次循环首 (到整数 (arr_temp [2]), i)
write_text ＝ write_text ＋ arr_temp [1] ＋ “,”
计次循环尾 ()
计次循环首 (到整数 (arr_temp [3]), i)
写出文本 (write_fnum, write_text, #换行符 )
计次循环尾 ()

循环判断尾 (linetext ≠ “”)
关闭文件 (read_fnum)
关闭文件 (write_fnum)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 read_fnum, , , , '配置文本 文件号<br /> .程序集变量 write_fnum, 整数型, , , 写出文件号<br /> .程序集变量 url_write_to_, 文本型, , , 写出路径<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> read_fnum ＝ 打开文件 (取运行目录 () ＋ “\read.txt”, , )<br /> url_write_to_ ＝ 取运行目录 () ＋ “\writeto.csv”<br /> .如果真 (文件是否存在 (url_write_to_) ＝ 假)<br />     写到文件 (url_write_to_, { 0 })<br /> .如果真结束<br /> write_fnum ＝ 打开文件 (取运行目录 () ＋ “\writeto.csv”, , )<br /> <br /> 子程序1 ()<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 linetext, 文本型<br /> .局部变量 arr_temp, 文本型, , "0"<br /> .局部变量 write_text, 文本型, , , ‘欲写文<br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> .循环判断首 ()<br />     linetext ＝ 读入一行 (read_fnum)<br />     arr_temp ＝ 分割文本 (linetext, “-------”, )<br />     调试输出 (arr_temp)<br />     .如果真 (取数组成员数 (arr_temp) ＝ 3)<br />         write_text ＝ “”<br />         .计次循环首 (到整数 (arr_temp [2]), i)<br />             write_text ＝ write_text ＋ arr_temp [1] ＋ “,”<br />         .计次循环尾 ()<br /> <br />         .计次循环首 (到整数 (arr_temp [3]), i)<br />             写出文本 (write_fnum, write_text, #换行符)<br />         .计次循环尾 ()<br /> <br /> <br />     .如果真结束<br /> <br /> <br /> <br /> .循环判断尾 (linetext ≠ “”)<br /> 关闭文件 (read_fnum)<br /> 关闭文件 (write_fnum)

月下美孤

月下美孤 发表于 2024-3-2 00:04
[e=0].版本 2
.支持库 spec

多线程还能更快点

浩浩001

月下美孤 发表于 2024-3-2 00:04
[e=0].版本 2
.支持库 spec

你理解错了  是总数18个 不是一行18个