请大家帮忙 关于配置项

支持中文字

如配置文件a.ini
[1]
名称=易语言
站名=易语言论坛
地址=http://bbs.eyuyan.com
[2]
名称=易语言
站名=易语言资源下载
地址=http://www.wodesoft.com
[3]
名称=网站
站名=google
地址=http://g.cn
[4]
名称=网站
站名=网易
地址=http://www.163.com
[5]
名称=动漫
站名=海贼王
地址=http://
[6]
名称=动漫
站名=死神
地址=http://
[7]
名称=动漫
站名=火影
地址=http://

如上的配置 怎么在卷帘式菜单中 菜单中显示易语言 网站 动漫 3个菜单项 而不是7个.会的帮个忙 谢谢了.

exit11

[e].版本 2
.支持库 iext3

.子程序 _按钮1_被单击
.局部变量 x, 整数型
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 c, 文本型
.局部变量 y, 整数型
.局部变量 菜单名, 文本型
.局部变量 aa, 逻辑型

.计次循环首 (7, x)
    a ＝ 读配置项 (取运行目录 () ＋ “\a.ini”, 到文本 (x), “名称”, )
    b ＝ 读配置项 (取运行目录 () ＋ “\a.ini”, 到文本 (x), “站名”, )
    c ＝ 读配置项 (取运行目录 () ＋ “\a.ini”, 到文本 (x), “地址”, )

    .计次循环首 (卷帘式菜单1.取菜单数 (), y)
        菜单名 ＝ 卷帘式菜单1.取菜单名称 (y － 1)
        .如果真 (菜单名 ＝ a)
            卷帘式菜单1.加入项目 (b, y － 1, , , )
            aa ＝ 真
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()

    .如果真 (aa ＝ 假)
        卷帘式菜单1.加入菜单 (a, , )
        卷帘式菜单1.加入项目 (b, 卷帘式菜单1.取菜单数 () － 1, , , )
    .如果真结束

    aa ＝ 假
.计次循环尾 ()
[/e]

690089735

之后你都会


这是最简单的方法

支持中文字

我对别的配置项设置会 但就以上的配置文件不太会代码怎么写不清楚

62651345

没太明白你什么意思。读配置项然后滤除重复的？

支持中文字

回复 4# 62651345


    对就是这意思
[1]
名称=易语言
站名=易语言论坛
地址=http://bbs.eyuyan.com
[2]
名称=易语言
站名=易语言资源下载
地址=http://www.wodesoft.com
不是有两个易语言名称吗 如果直接读取到卷帘就会出现2个菜单 我现在的意思就是只要重复的就显示一个菜单

jtg827

回复 5# 支持中文字


    你的配置文件布局不好,节点你直接用你的栏目名称

[栏目名]
站名=地址

1. 
   
2. 
   

复制代码

1. .版本 2
   
2. .支持库 iext3
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 _按钮1_被单击
   
7. .局部变量 节名, 文本型, , "0"
   
8. .局部变量 配置项名, 文本型, , "0"
   
9. .局部变量 菜单名, 文本型
   
10. .局部变量 计次, 整数型
    
11. .局部变量 计次2, 整数型
    
12. 
    
13. 
    
14. 节名 ＝ 取配置节名 (取运行目录 () ＋ “\a.ini”)
    
15. .计次循环首 (取数组成员数 (节名), 计次)
    
16. 配置项名 ＝ 取配置项所有名称 (取运行目录 () ＋ “\a.ini”, 节名 [计次])
    
17. 卷帘式菜单1.加入菜单 (节名 [计次], , )
    
18. .计次循环首 (取数组成员数 (配置项名), 计次2)
    
19. 卷帘式菜单1.加入项目 (配置项名 [计次2], 卷帘式菜单1.取菜单数 () － 1, , , )
    
20. .计次循环尾 ()
    
21. .计次循环尾 ()
    
22. 
    
23. .子程序 取配置项所有名称, 文本型, 公开, 返回指定配置文件中指定的节中所有的配置名称，以“|”为分界，如果配置文件不存在或配置文件中指定节为空将返回空文本
    
24. .参数 配置文件名, 文本型
    
25. .参数 节名称, 文本型
    
26. .局部变量 a, 文本型, , "3"
    
27. .局部变量 b, 整数型, , "3"
    
28. .局部变量 c, 文本型, , "0"
    
29. 
    
30. .如果 (取反 (文件是否存在 (配置文件名)))
    
31. 返回 (“”)
    
32. .否则
    
33. a [1] ＝ 到文本 (读入文件 (配置文件名))
    
34. b [1] ＝ 寻找文本 (a [1], “[” ＋ 节名称 ＋ “]”, , 假)
    
35. .如果真 (b [1] ＞ -1)
    
36. b [2] ＝ 寻找文本 (a [1], “[”, b [1] ＋ 取文本长度 (节名称) ＋ 1, 假)
    
37. .如果真 (b [2] ＝ -1)
    
38. b [2] ＝ 取文本长度 (a [1])
    
39. .如果真结束
    
40. a [2] ＝ 取文本中间 (a [1], b [1] ＋ 取文本长度 (节名称) ＋ 4, b [2] － b [1] － 取文本长度 (节名称) － 4)
    
41. .如果真 (寻找文本 (a [2], “=”, , 假) ＞ -1)
    
42. c ＝ 分割文本 (a [2], “=”, )
    
43. .如果 (倒找文本 (c [1], #换行符, , 真) ＞ -1)
    
44. a [3] ＝ 取文本右边 (c [1], 取文本长度 (c [1]) － 倒找文本 (c [1], #换行符, , 真) － 1)
    
45. .否则
    
46. a [3] ＝ c [1]
    
47. .如果结束
    
48. 
    
49. .变量循环首 (2, 取数组成员数 (c) － 1, 1, b [3])
    
50. a [3] ＝ a [3] ＋ “|” ＋ 取文本右边 (c [b [3]], 取文本长度 (c [b [3]]) － 倒找文本 (c [b [3]], #换行符, , 真) － 1)
    
51. .变量循环尾 ()
    
52. .如果真结束
    
53. 
    
54. .如果真结束
    
55. 
    
56. 返回 (a [3])
    

复制代码

690089735

关注了两天，终于有人放代码了，有空学习下！

支持中文字

回复 2# exit11


    谢谢 测试成功 呵呵 非常感谢

支持中文字

回复 7# jtg827


    也很感谢你 不过代码出错了
配置项名 ＝ 取配置项所有名称 (取运行目录 () ＋ “\a.ini”, 节名 [计次])
正在编译...
错误(10044): 不能将“文本型”数据转换到“文本型 数组”数据。

谢谢你的代码 我好好研究研究