超级列表框读表格问题

学易未精

  

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

变量名	类 型	静态	数组	备 注
CSV文件内容	快速文本对象
当前行索引	整数型
最大列数	整数型
当前列索引	整数型
新表项索引	整数型
当前列数	整数型
文件行数组	文本型		0
当前行列数组	文本型		0

如果真 (CSV文件内容.从文件读 (取运行目录 () ＋ “\01.CSV”))
文件行数组 ＝ CSV文件内容.分割文本 ( #换行符, )
计次循环首 (取数组成员数 (文件行数组), 当前行索引)
当前行列数组 ＝ 分割文本 (文件行数组 [当前行索引], “,”, )
如果 (当前行索引 ＝ 1)
最大列数 ＝ 取数组成员数 (当前行列数组)
计次循环首 (最大列数, 当前列索引)
超级列表框1.插入列 (, 到文本 (当前行列数组 [当前列索引]), 120, , , )
计次循环尾 ()


当前列数 ＝ 取数组成员数 (当前行列数组)
新表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (选择 (当前列数 ＞ 最大列数, 最大列数, 当前列数), 当前列索引)
超级列表框1.置标题 (新表项索引, 当前列索引 － 1, 到文本 (当前行列数组 [当前列索引]))
计次循环尾 ()

计次循环尾 ()

i支持库列表	支持库注释
commobj	通用对象支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 commobj<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 CSV文件内容, 快速文本对象<br /> .局部变量 当前行索引, 整数型<br /> .局部变量 最大列数, 整数型<br /> .局部变量 当前列索引, 整数型<br /> .局部变量 新表项索引, 整数型<br /> .局部变量 当前列数, 整数型<br /> .局部变量 文件行数组, 文本型, , "0"<br /> .局部变量 当前行列数组, 文本型, , "0"<br /> <br /> .如果真 (CSV文件内容.从文件读 (取运行目录 () ＋ “\01.CSV”))<br />     文件行数组 ＝ CSV文件内容.分割文本 (#换行符, )<br />     .计次循环首 (取数组成员数 (文件行数组), 当前行索引)<br />         当前行列数组 ＝ 分割文本 (文件行数组 [当前行索引], “,”, )<br />         .如果 (当前行索引 ＝ 1)<br />             最大列数 ＝ 取数组成员数 (当前行列数组)<br />             .计次循环首 (最大列数, 当前列索引)<br />                 超级列表框1.插入列 (, 到文本 (当前行列数组 [当前列索引]), 120, , , )<br />             .计次循环尾 ()<br />         .否则<br /> <br />             当前列数 ＝ 取数组成员数 (当前行列数组)<br />             新表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />             .计次循环首 (选择 (当前列数 ＞ 最大列数, 最大列数, 当前列数), 当前列索引)<br />                 超级列表框1.置标题 (新表项索引, 当前列索引 － 1, 到文本 (当前行列数组 [当前列索引]))<br />             .计次循环尾 ()<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束

1.rar (233 Bytes, 下载次数: 4)

前天 21:13 上传

点击文件名下载附件

这个超级列表框的内容是我手动填入的

这个是表格的内容大概就是这样的，附件里面就是表格文件

上面的易语言代码可以正常读取CSV文件的内容，我想实现图片中的效果，我问遍了AI，找不到方法，也可能是我太笨了，所以只好在论坛求助大佬们，如何把表格的内容读取实现图片中的效果，就是在换行的位置加入一个符号，

519948746

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 commobj
.支持库 shell
.支持库 iext

.子程序 _按钮2_被单击
.局部变量 CSV文件内容, 快速文本对象
.局部变量 当前行索引, 整数型
.局部变量 最大列数, 整数型
.局部变量 当前列索引, 整数型
.局部变量 新表项索引, 整数型
.局部变量 当前列数, 整数型
.局部变量 文件行数组, 文本型, , "0"
.局部变量 当前行列数组, 文本型, , "0"

.如果真 (CSV文件内容.从文件读 (取特定目录 (3) ＋ “\01.CSV”))
    文件行数组 ＝ CSV文件内容.分割文本 (#换行符, )
    .计次循环首 (取数组成员数 (文件行数组), 当前行索引)
        当前行列数组 ＝ 分割文本 (文件行数组 [当前行索引], “,”, )
        .如果 (当前行索引 ＝ 1)
            最大列数 ＝ 取数组成员数 (当前行列数组)
            .计次循环首 (最大列数, 当前列索引)
                超级列表框1.插入列 (, 到文本 (当前行列数组 [当前列索引]), 120, , , )
            .计次循环尾 ()
        .否则

            当前列数 ＝ 取数组成员数 (当前行列数组)
            新表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
            .计次循环首 (选择 (当前列数 ＞ 最大列数, 最大列数, 当前列数), 当前列索引)
                超级列表框1.置标题 (新表项索引, 当前列索引 － 1, 到文本 (子字节集替换 (到字节集 (当前行列数组 [当前列索引]), { 10 }, 到字节集 (“|”), , )))
            .计次循环尾 ()
        .如果结束

    .计次循环尾 ()
.如果真结束

你没搞定时因为这个CSV用的是unix LF  而易语言的换行符基于windows CR LF。 两者缺少一个0x0D

cunanhai

https://bbs.125.la/forum.php?mod ... B%E6%8D%A2%E8%A1%8C

补充内容 (2025-7-18 21:26):
看错了

补充内容 (2025-7-18 21:26):
看错了 还是用高级表格吧

学易未精

cunanhai 发表于 2025-7-18 21:25
https://bbs.125.la/forum.php?mod=viewthread&tid=14717813&highlight=%E8%B6%85%E7%BA%A7%E5%88%97%E8%A1 ...

麻烦您了，谢谢

学易未精

519948746 发表于 2025-7-18 21:54
[mw_shl_code=javascript,true].版本 2
.支持库 commobj
.支持库 shell

谢谢，但是首尾有双引号，表格内并没有，如果用子文本替换，假设表格里面本身就有双引号的情况下，会被误替换，请教一下如何解决呢

学易未精

  

子程序名	返回值类型	公开	备 注
删除首尾引号	文本型
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型

变量名	类 型	静态	数组	备 注
文本长度	整数型

文本长度 ＝ 取文本长度 (原始文本)
如果 (文本长度 ≥ 2 且 取文本左边 (原始文本, 1) ＝ #引号 且 取文本右边 (原始文本, 1) ＝ #引号 )
返回 (取文本中间 (原始文本, 2, 文本长度 － 2))  ' 去掉首尾各1个引号
返回 (原始文本)  ' 不符合条件则原样返回

.版本 2<br /> <br /> .子程序 删除首尾引号, 文本型<br /> .参数 原始文本, 文本型<br /> .局部变量 文本长度, 整数型<br /> <br /> 文本长度 ＝ 取文本长度 (原始文本)<br /> .如果 (文本长度 ≥ 2 且 取文本左边 (原始文本, 1) ＝ #引号 且 取文本右边 (原始文本, 1) ＝ #引号)<br />     返回 (取文本中间 (原始文本, 2, 文本长度 － 2))  ' 去掉首尾各1个引号<br /> .否则<br />     返回 (原始文本)  ' 不符合条件则原样返回

解决了，分享一下