读取CSV文件内容到超级列表框呢

15910791922

如何读取CSV文件内容到超级列表框呢，大佬来个例子啊

走一回

csv文件,应该就是一个文本文件吧,只是能让excle直接读取而已

lianzuo123

到文本(读入文件("XXXXX.CSV"))
然后 以 #换行符 分割文本()
再然后 再以逗号(,) 分割文本()

逍遥一仙LSG

E2EE支持库，存取列表，从CSV载入。之后写列表框就行了

帅气与大侠

CSV就是正常的txt文本格式
你右键CSV格式文件，打开方式选择记事本打开，你看下里面是什么格式
通常CSV都是用小写逗号(,)分割数据的，你按照正常的文本进行分割写入超级列表框就可以了

大司命

https://www.eyuyan.la/post/1422.html

寒潮

20191208-Csv读取.rar (2.74 KB, 下载次数: 143)

2019-12-8 21:11 上传

点击文件名下载附件

nybmtc

寒潮 发表于 2019-12-8 21:11

为什么我加了个按钮改了文件目录就不行了？

nybmtc

nybmtc 发表于 2022-9-13 18:41
为什么我加了个按钮改了文件目录就不行了？

可以了，文件名前面那个目录不能是中文，中文就读不出来，奇怪了，为什么别的都可以

nybmtc

  

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

变量名	类 型	静态	数组	备 注
局_文件号	整数型
局_行内容	文本型
局_行内容_数组	文本型		0
局_计次	整数型
局_索引	整数型

' 局_文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.csv”, , )
' 局_文件号 ＝ 打开文件 (“E:\编程学习” ＋ “\test\1.csv”, , )
局_文件号 ＝ 打开文件 (“E:\编程学习” ＋ “\1.csv”, , )
如果真 (局_文件号 ＝ 0)
返回 ()
移到文件首 (局_文件号)
局_行内容 ＝ 读入一行 (局_文件号)  ' 第一行，为标题行
重定义数组 (局_行内容_数组, 假, 0)
局_行内容_数组 ＝ 分割文本 (局_行内容, “,”, )
计次循环首 (取数组成员数 (局_行内容_数组), 局_计次)
超级列表框1.插入列 (, 局_行内容_数组 [局_计次], 120, , , )
计次循环尾 ()
判断循环首 (是否在文件尾 (局_文件号, ) ＝ 假)
局_行内容 ＝ 读入一行 (局_文件号)  ' 第一行，为标题行
重定义数组 (局_行内容_数组, 假, 0)
局_行内容_数组 ＝ 分割文本 (局_行内容, “,”, )
局_索引 ＝ 超级列表框1.插入表项 (-1, , , , , )
计次循环首 (取数组成员数 (局_行内容_数组), 局_计次)
超级列表框1.置标题 (局_索引, 局_计次 － 1, 局_行内容_数组 [局_计次])
计次循环尾 ()
判断循环尾 ()
关闭文件 (局_文件号)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮6_被单击<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 局_行内容, 文本型<br /> .局部变量 局_行内容_数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> ' 局_文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.csv”, , )<br /> <br /> ' 局_文件号 ＝ 打开文件 (“E:\编程学习” ＋ “\test\1.csv”, , )<br /> 局_文件号 ＝ 打开文件 (“E:\编程学习” ＋ “\1.csv”, , )<br /> .如果真 (局_文件号 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 移到文件首 (局_文件号)<br /> 局_行内容 ＝ 读入一行 (局_文件号)  ' 第一行，为标题行<br /> 重定义数组 (局_行内容_数组, 假, 0)<br /> 局_行内容_数组 ＝ 分割文本 (局_行内容, “,”, )<br /> .计次循环首 (取数组成员数 (局_行内容_数组), 局_计次)<br />     超级列表框1.插入列 (, 局_行内容_数组 [局_计次], 120, , , )<br /> .计次循环尾 ()<br /> .判断循环首 (是否在文件尾 (局_文件号, ) ＝ 假)<br />     局_行内容 ＝ 读入一行 (局_文件号)  ' 第一行，为标题行<br />     重定义数组 (局_行内容_数组, 假, 0)<br />     局_行内容_数组 ＝ 分割文本 (局_行内容, “,”, )<br />     局_索引 ＝ 超级列表框1.插入表项 (-1, , , , , )<br />     .计次循环首 (取数组成员数 (局_行内容_数组), 局_计次)<br />         超级列表框1.置标题 (局_索引, 局_计次 － 1, 局_行内容_数组 [局_计次])<br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> 关闭文件 (局_文件号)

' 局_文件号 ＝ 打开文件 (“E:\编程学习” ＋ “\test\1.csv”, , )‘’‘可以
局_文件号 ＝ 打开文件 (“E:\编程学习” ＋ “\1.csv”, , )不行