|
发表于 2010-11-29 17:16:38
|
显示全部楼层
广东省广州市
本帖最后由 jtg827 于 2010-11-29 17:57 编辑
回复 5# 支持中文字
你的配置文件布局不好,节点你直接用你的栏目名称
[栏目名]
站名=地址
- .版本 2
- .支持库 iext3
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 节名, 文本型, , "0"
- .局部变量 配置项名, 文本型, , "0"
- .局部变量 菜单名, 文本型
- .局部变量 计次, 整数型
- .局部变量 计次2, 整数型
- 节名 = 取配置节名 (取运行目录 () + “\a.ini”)
- .计次循环首 (取数组成员数 (节名), 计次)
- 配置项名 = 取配置项所有名称 (取运行目录 () + “\a.ini”, 节名 [计次])
- 卷帘式菜单1.加入菜单 (节名 [计次], , )
- .计次循环首 (取数组成员数 (配置项名), 计次2)
- 卷帘式菜单1.加入项目 (配置项名 [计次2], 卷帘式菜单1.取菜单数 () - 1, , , )
- .计次循环尾 ()
- .计次循环尾 ()
- .子程序 取配置项所有名称, 文本型, 公开, 返回指定配置文件中指定的节中所有的配置名称,以“|”为分界,如果配置文件不存在或配置文件中指定节为空将返回空文本
- .参数 配置文件名, 文本型
- .参数 节名称, 文本型
- .局部变量 a, 文本型, , "3"
- .局部变量 b, 整数型, , "3"
- .局部变量 c, 文本型, , "0"
- .如果 (取反 (文件是否存在 (配置文件名)))
- 返回 (“”)
- .否则
- a [1] = 到文本 (读入文件 (配置文件名))
- b [1] = 寻找文本 (a [1], “[” + 节名称 + “]”, , 假)
- .如果真 (b [1] > -1)
- b [2] = 寻找文本 (a [1], “[”, b [1] + 取文本长度 (节名称) + 1, 假)
- .如果真 (b [2] = -1)
- b [2] = 取文本长度 (a [1])
- .如果真结束
- a [2] = 取文本中间 (a [1], b [1] + 取文本长度 (节名称) + 4, b [2] - b [1] - 取文本长度 (节名称) - 4)
- .如果真 (寻找文本 (a [2], “=”, , 假) > -1)
- c = 分割文本 (a [2], “=”, )
- .如果 (倒找文本 (c [1], #换行符, , 真) > -1)
- a [3] = 取文本右边 (c [1], 取文本长度 (c [1]) - 倒找文本 (c [1], #换行符, , 真) - 1)
- .否则
- a [3] = c [1]
- .如果结束
- .变量循环首 (2, 取数组成员数 (c) - 1, 1, b [3])
- a [3] = a [3] + “|” + 取文本右边 (c [b [3]], 取文本长度 (c [b [3]]) - 倒找文本 (c [b [3]], #换行符, , 真) - 1)
- .变量循环尾 ()
- .如果真结束
- .如果真结束
- 返回 (a [3])
复制代码 |
|