超级列表框固定宽度导入数据

dkslel

将txt导入超级列表框类似于excel的固定宽度导入，非简单的分割导入
      123.TXT (15.35 KB, 下载次数: 3)

2018-7-23 11:28 上传

点击文件名下载附件
示例文本
阅读权限: 10

迷失回忆

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 处理空格
   
5. .参数 参数一, 文本型, 数组
   
6. .局部变量 计次, 整数型
   
7. .局部变量 总数, 整数型
   
8. 
   
9. 调试输出 (参数一)
   
10. 总数 ＝ 取数组成员数 (参数一)
    
11. 计次 ＝ 1
    
12. .判断循环首 (总数 ≥ 计次)
    
13.     .如果 (参数一 [计次] ＝ “”)
    
14.         删除成员 (参数一, 计次, )
    
15.         总数 ＝ 取数组成员数 (参数一)
    
16.         计次 ＝ 1
    
17.     .否则
    
18. 
    
19.     .如果结束
    
20.     计次 ＝ 计次 ＋ 1
    
21. .判断循环尾 ()
    
22. 调试输出 (参数一)
    

复制代码

希望能帮到你

dkslel

麻烦各位看到的给个思路，并不需要各位大神写代码

weixin168168

你最终要达到什么效果，

dkslel

weixin168168 发表于 2018-7-23 14:35
你最终要达到什么效果，

我想达到的效果就是将数据导入到超级列表框内，现在我之所以提出这个问题是因为分割这个文本不好分割，因为他们都是通过空格来补齐的数据长度，如果只是用空格来分割的话会出问题

dkslel

迷失回忆 发表于 2018-7-23 18:16
希望能帮到你

你的方式通过巧妙处理空格来实现，其实我也尝试过这种方式，只是因为有些参数中间是带空格的，所以这种方式并不可行，只能想办法用等宽的方式来进行

补充内容 (2018-7-24 08:54):
还是非常感谢你

迷失回忆

dkslel 发表于 2018-7-24 08:53
你的方式通过巧妙处理空格来实现，其实我也尝试过这种方式，只是因为有些参数中间是带空格的，所以这种方 ...

那，如果数据是有规律的话是不是可以把分错的再合在一起，你不是参数中间有空格么，如果是规律的话把他们合并一起，如果是不规律的话，我还没想到可行的方法

dkslel

迷失回忆 发表于 2018-7-24 12:45
那，如果数据是有规律的话是不是可以把分错的再合在一起，你不是参数中间有空格么，如果是规律的话把他们 ...

也是没啥好方法了，主要是不同的参数太多了，所以我最后没办法只能用长度来确定分割位置了，因为虽然参数不同但是他不同的列之间一定会补齐固定长度，所以只能针对文件用这么笨的方法了。。

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .局部变量 总文本, 文本型
   
5. .局部变量 去首行后文本, 文本型
   
6. .局部变量 行文本数组, 文本型, , "0"
   
7. .局部变量 i, 整数型
   
8. .局部变量 参数一, 文本型
   
9. .局部变量 参数二, 文本型
   
10. .局部变量 参数三, 文本型
    
11. .局部变量 参数四, 文本型
    
12. .局部变量 参数五, 文本型
    
13. .局部变量 参数六, 文本型
    
14. .局部变量 参数七, 文本型
    
15. .局部变量 参数八, 文本型
    
16. .局部变量 参数九, 文本型
    
17. .局部变量 参数十, 文本型
    
18. .局部变量 参数十一, 文本型
    
19. .局部变量 临时_表项, 整数型
    
20. .局部变量 x, 整数型
    
21. 
    
22. 总文本 ＝ 读入文本 (打开文件 (取运行目录 () ＋ “\sun0722.txt”, 1, 1), )
    
23. 去首行后文本 ＝ 文本_删除指定文本行 (总文本, 1)
    
24. ' 15 17 15 20  10 15 94 55 15  15  120
    
25. 
    
26. 行文本数组 ＝ 分割文本 (去首行后文本, #换行符, )
    
27. 
    
28. 超级列表框1.全部删除 ()
    
29. .计次循环首 (50, )
    
30.     超级列表框1.删除列 (0)
    
31. .计次循环尾 ()
    
32. 
    
33. .计次循环首 (11, x)
    
34.     超级列表框1.插入列 (-1, 到文本 (x), , , , )
    
35. .计次循环尾 ()
    
36. 
    
37. 
    
38. .计次循环首 (取数组成员数 (行文本数组), i)
    
39.     参数一 ＝ 取文本左边 (行文本数组 [i], 15)
    
40.     参数二 ＝ 取文本中间 (行文本数组 [i], 15, 17)
    
41.     参数三 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17, 15)
    
42.     参数四 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15, 20)
    
43.     参数五 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15 ＋ 20, 10)
    
44.     参数六 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15 ＋ 20 ＋ 10, 15)
    
45.     参数七 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15 ＋ 20 ＋ 10 ＋ 15, 94)
    
46.     参数八 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15 ＋ 20 ＋ 10 ＋ 15 ＋ 94, 55)
    
47.     参数九 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15 ＋ 20 ＋ 10 ＋ 15 ＋ 94 ＋ 55, 15)
    
48.     参数十 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15 ＋ 20 ＋ 10 ＋ 15 ＋ 94 ＋ 55 ＋ 15, 15)
    
49.     参数十一 ＝ 取文本中间 (行文本数组 [i], 15 ＋ 17 ＋ 15 ＋ 20 ＋ 10 ＋ 15 ＋ 94 ＋ 55 ＋ 15 ＋ 15, 120)
    
50.     临时_表项 ＝ 超级列表框1.插入表项 (-1, , , , , )
    
51.     超级列表框1.置标题 (临时_表项, 0, 删首尾空 (参数一))
    
52.     超级列表框1.置标题 (临时_表项, 1, 删首尾空 (参数二))
    
53.     超级列表框1.置标题 (临时_表项, 2, 删首尾空 (参数三))
    
54.     超级列表框1.置标题 (临时_表项, 3, 删首尾空 (参数四))
    
55.     超级列表框1.置标题 (临时_表项, 4, 删首尾空 (参数五))
    
56.     超级列表框1.置标题 (临时_表项, 5, 删首尾空 (参数六))
    
57.     超级列表框1.置标题 (临时_表项, 6, 删首尾空 (参数七))
    
58.     超级列表框1.置标题 (临时_表项, 7, 删首尾空 (参数八))
    
59.     超级列表框1.置标题 (临时_表项, 8, 删首尾空 (参数九))
    
60.     超级列表框1.置标题 (临时_表项, 9, 删首尾空 (参数十))
    
61.     超级列表框1.置标题 (临时_表项, 10, 删首尾空 (参数十一))
    
62. 
    
63. .计次循环尾 ()
    

复制代码

迷失回忆

dkslel 发表于 2018-7-24 15:44
也是没啥好方法了，主要是不同的参数太多了，所以我最后没办法只能用长度来确定分割位置了，因为虽然参数 ...

哈哈哈 棒棒哟