组合框读配置项，内容分割换行

mytak9158

各位路过的大神，帮忙解决一下，怎么将组合框的项目分割

mytak9158

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. .判断开始 (文件是否存在 (取运行目录 () ＋ “\项目.ini”))
   
9. 
   
10. .默认
    
11.     写到文件 (取运行目录 () ＋ “\项目.ini”, 到字节集 (“[第一组]” ＋ #换行符 ＋ “客户名称=ccc” ＋ #换行符 ＋ “cp=333” ＋ #换行符 ＋ “ycl=1515” ＋ #换行符 ＋ “bj=336” ＋ #换行符 ＋ “db=669”))
    
12. 
    
13. .判断结束
    
14. 读配置项 (取运行目录 () ＋ “\项目.ini”, “第一组”, “客户名称”, )
    
15. ' 写配置项 (取运行目录 () ＋ “2项目.ini”, “第一组”, “客户名称”, “22”)
    
16. 
    
17. 
    
18. .子程序 _按钮1_被单击
    
19. 
    
20. 
    
21. 调试输出 (读配置项 (取运行目录 () ＋ “\项目.ini”, “第一组”, “客户名称”, ))
    
22. 
    
23. 
    
24. 
    
25. .子程序 _组合框1_将弹出列表
    
26. .局部变量 列表, 文本型, , "0"
    
27. .局部变量 i, 整数型
    
28. 
    
29. .如果真 (组合框1.内容 ＝ “”)
    
30.     列表 ＝ 分割文本 (到文本 (读配置项 (取运行目录 () ＋ “\项目.ini”, “第一组”, “客户名称”, )), “丨”, )
    
31.     .计次循环首 (取数组成员数 (列表), i)
    
32.         组合框1.加入项目 (列表 [i], )
    
33.     .计次循环尾 ()
    
34. .如果真结束
    
35. 
    

复制代码