TXT文档导入高级表格

小丸心°

就是把txt文档里面的导入到高级表格里面,
txt文档原件有制表符,有空值,平时编辑我都是直接复制到excel里面改的.现在想直接弄到高级表格里面操作,
实现能直接导入txt到高级表格里面,改其中的数据,然后保存,最好是能直接把txt拖到表格上直接加载

现在我遇到的问题是最后一列会跑到第一列里面去覆盖

就按附件里面的txt案例操作就行,

复制到excel里面是这个样子的,平时我就是复制在这里面编辑,高级表格里面我也希望实现这样的


test.txt (211 Bytes, 下载次数: 9)

2023-5-17 21:36 上传

点击文件名下载附件

拿铁777

  

子程序名	返回值类型	公开	备 注
导入Txt文档
参数名	类 型	参考	可空	数组	备 注
Txt	文本型

变量名	类 型	静态	数组	备 注
行数据	文本型		0
列数据	文本型		0
i	整数型
k	整数型

行数据 ＝ 分割文本 (Txt, #换行符, )
高级表格1.行数 ＝ 取数组成员数 (行数据)  ' 表头行数 = 0
计次循环首 (取数组成员数 (行数据), i)
列数据 ＝ 分割文本 (行数据 [i], 字符 ( #Tab键 ), )
如果真 (高级表格1.列数 ＜ 取数组成员数 (列数据))
高级表格1.列数 ＝ 取数组成员数 (列数据)  ' 表行列数 = 0

计次循环首 (取数组成员数 (列数据), k)
高级表格1.置数据 (i － 1, k － 1, 1, 列数据 [k])
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 导入Txt文档<br /> .参数 Txt, 文本型<br /> .局部变量 行数据, 文本型, , "0"<br /> .局部变量 列数据, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> <br /> 行数据 ＝ 分割文本 (Txt, #换行符, )<br /> 高级表格1.行数 ＝ 取数组成员数 (行数据)  ' 表头行数 = 0<br /> .计次循环首 (取数组成员数 (行数据), i)<br />     列数据 ＝ 分割文本 (行数据 <i>, 字符 (#Tab键), )<br />     .如果真 (高级表格1.列数 ＜ 取数组成员数 (列数据))<br />         高级表格1.列数 ＝ 取数组成员数 (列数据)  ' 表行列数 = 0<br />     .如果真结束<br /> <br /> <br />     .计次循环首 (取数组成员数 (列数据), k)<br />         高级表格1.置数据 (i － 1, k － 1, 1, 列数据 [k])<br />     .计次循环尾 ()<br /> .计次循环尾 ()

小丸心°

这个是我写的,还是有问题不行

  

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

变量名	类 型	静态	数组	备 注
数据	文本型
列数据	文本型		0
行数据	文本型		0
行数	整数型
列数	整数型
a1	整数型
a2	整数型
a3	整数型

数据 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\test.txt”))
列数据 ＝ 分割文本 (数据, 字符 (9) )
行数据 ＝ 分割文本 (数据, #换行符, )
行数 ＝ 取数组成员数 (行数据)
列数 ＝ 取数组成员数 (列数据) ÷ 行数
调试输出 (“总数据:” ＋ 到文本 (取数组成员数 (列数据)))
调试输出 (“列数:” ＋ 到文本 (列数))
调试输出 (“行数:” ＋ 到文本 (行数))
调试输出 (列数据)
调试输出 (行数据)
计次循环首 (行数, )
高级表格1.插入行 (, )
计次循环尾 ()
计次循环首 (列数 ＋ 1, )
高级表格1.插入列 (, )
计次循环尾 ()
计次循环首 (行数, )
a3 ＝ a3 ＋ 1
计次循环首 (列数, )
a2 ＝ a2 ＋ 1
a1 ＝ a1 ＋ 1
高级表格1.置数据 (a3, a2, 1, 列数据 [a1])
高级表格1.置列宽 (a2, 60)
计次循环尾 ()
如果 (a2 ≥ 列数)
a2 ＝ 0




计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
eGrid	高级表格支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eGrid<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数据, 文本型<br /> .局部变量 列数据, 文本型, , "0"<br /> .局部变量 行数据, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 a1, 整数型<br /> .局部变量 a2, 整数型<br /> .局部变量 a3, 整数型<br /> <br /> 数据 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\test.txt”))<br /> 列数据 ＝ 分割文本 (数据, 字符(9) )<br /> 行数据 ＝ 分割文本 (数据, #换行符, )<br /> 行数 ＝ 取数组成员数 (行数据)<br /> 列数 ＝ 取数组成员数 (列数据) ÷ 行数<br /> <br /> 调试输出 (“总数据:” ＋ 到文本 (取数组成员数 (列数据)))<br /> 调试输出 (“列数:” ＋ 到文本 (列数))<br /> 调试输出 (“行数:” ＋ 到文本 (行数))<br /> 调试输出 (列数据)<br /> 调试输出 (行数据)<br /> .计次循环首 (行数, )<br />     高级表格1.插入行 (, )<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (列数 ＋ 1, )<br />     高级表格1.插入列 (, )<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (行数, )<br />     a3 ＝ a3 ＋ 1<br />     .计次循环首 (列数, )<br />         a2 ＝ a2 ＋ 1<br />         a1 ＝ a1 ＋ 1<br />         高级表格1.置数据 (a3, a2, 1, 列数据 [a1])<br />         高级表格1.置列宽 (a2, 60)<br />     .计次循环尾 ()<br /> <br />     .如果 (a2 ≥ 列数)<br />         a2 ＝ 0<br /> <br />     .否则<br /> <br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()

空竹

计次循环首 (行数, )
高级表格1.插入行 (, )
计次循环尾 ()
计次循环首 (列数 ＋ 1, )
高级表格1.插入列 (, )
计次循环尾 ()

这部分不需要如此麻烦 直接置2个属性即可

小丸心°

空竹 发表于 2023-5-17 22:13
计次循环首 (行数, )
高级表格1.插入行 (, )
计次循环尾 ()

没有用,下标会提示错误,具体原因我发现使用制表符分割的时候每个空值数据会被忽略,比如总共有20条分割数据,有3个空值,但是取数组的时候只能算到17个

空竹

小丸心° 发表于 2023-5-17 22:17
没有用,下标会提示错误,具体原因我发现使用制表符分割的时候每个空值数据会被忽略,比如总共有20条分割数 ...

你直接

高级表格1.行数=12
高级表格1.列数=13

我是这个意思，具体你代码，我没看

空竹

你这代码写的比较混乱..

推荐思路：取得行数列数，然后2个变量循环完事

小丸心°

空竹 发表于 2023-5-17 22:18
你直接

高级表格1.行数=12

建议看一下,因为这个txt文档不可能每一个都一样多的数据

拿铁777

小丸心° 发表于 2023-5-17 22:19
建议看一下,因为这个txt文档不可能每一个都一样多的数据

因为每行数据数量不一样，所以要以每行数据数量为数组下标

空竹

  

JSON.Parse (jsonStr)
row_count ＝ JSON.get_int (“row_count”, )
col_count ＝ JSON.get_int (“col_count”, )
调试输出 (row_count, col_count)
高级表格1.列数 ＝ col_count
高级表格1.行数 ＝ row_count
高级表格1.置自动换行 (0, 0, row_count － 1, col_count － 1, 真)
变量循环首 (0, row_count － 1, 1, row)
变量循环首 (0, col_count － 1, 1, col)
高级表格1.置行高 (row, 90)
高级表格1.置列宽 (col, 120)
高级表格1.置数据 (row, col, 1, JSON.get_string (“data.” ＋ 到文本 (row) ＋ “.” ＋ 到文本 (col), 真, , ))
' 调试输出 (JSON.get_string (“data.” ＋ 到文本 (row) ＋ “.” ＋ 到文本 (col), 真, , ))
变量循环尾 ()
变量循环尾 ()
JSON.Clear ()

i支持库列表	支持库注释
spec	特殊功能支持库
eGrid	高级表格支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eGrid<br /> <br /> JSON.Parse (jsonStr)<br /> row_count ＝ JSON.get_int (“row_count”, )<br /> col_count ＝ JSON.get_int (“col_count”, )<br /> 调试输出 (row_count, col_count)<br /> 高级表格1.列数 ＝ col_count<br /> 高级表格1.行数 ＝ row_count<br /> 高级表格1.置自动换行 (0, 0, row_count － 1, col_count － 1, 真)<br /> .变量循环首 (0, row_count － 1, 1, row)<br />     .变量循环首 (0, col_count － 1, 1, col)<br />         高级表格1.置行高 (row, 90)<br />         高级表格1.置列宽 (col, 120)<br />         高级表格1.置数据 (row, col, 1, JSON.get_string (“data.” ＋ 到文本 (row) ＋ “.” ＋ 到文本 (col), 真, , ))<br />         ' 调试输出 (JSON.get_string (“data.” ＋ 到文本 (row) ＋ “.” ＋ 到文本 (col), 真, , ))<br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> JSON.Clear ()

上个代码你参考

补充内容 (2023-5-17 22:24):
个人觉得，简洁明了..