枚举配置文件中的小节名和和Key

fpx90

功能同大漠的EnumIniSection(file) 和EnumIniKey(section,file)，免费的版本里没这个函数

1. 功能 枚举小节(文件路径)
   
2.     变量 小节数组 = 数组()
   
3.     变量 文件信息 = 读TXT(文件路径, "\r\n")
   
4.     调试输出(文件信息)
   
5.     如果(是否数组(文件信息))
   
6.         变量 个数 = 数组大小(文件信息)
   
7.         遍历(变量 i = 0; i < 个数; i ++)
   
8.             如果(字符串查找(文件信息[i], "[") != -1)
   
9.                 数组追加元素(小节数组, 文件信息[i], null)
   
10.             结束
    
11.         结束
    
12.         返回 小节数组
    
13.     否则
    
14.         返回 0
    
15.     结束
    
16. 结束
    
17. 
    
18. 功能 枚举Key(小节, 文件路径)
    
19.     变量 Key数组 = 数组(), key值, key字符串
    
20.     变量 文件信息 = 读TXT(文件路径, "\r\n")
    
21.     如果(是否数组(文件信息))
    
22.         变量 个数 = 数组大小(文件信息)
    
23.         遍历(变量 i = 0; i < 个数; i ++)
    
24.             调试输出(文件信息[i])
    
25.             如果(字符串查找(文件信息[i], 小节) != -1)
    
26.                 循环(真)
    
27.                     字符串分割(文件信息[i + 1], "=", key字符串)
    
28.                     调试输出(key字符串[0])
    
29.                     数组追加元素(Key数组, key字符串[0], null)
    
30.                     i ++
    
31.                     调试输出(文件信息[i + 1])
    
32.                     如果((字符串查找(文件信息[i + 1], "[") != -1) || (字符串长度(文件信息[i + 1]) == 0) || (i == 个数))
    
33.                         返回 Key数组
    
34.                     结束
    
35.                 结束
    
36.                
    
37.             结束
    
38.         结束
    
39.     否则
    
40.         返回 0
    
41.     结束
    
42. 结束

复制代码

sam7894604

不错,这也有win32 API可以调用的！

言术

读TXT？

fpx90

sam7894604 发表于 2016-4-3 13:36
不错,这也有win32 API可以调用的！

百度了下，只有Delphi 的一个类有这种函数，win32 API 没找到

sam7894604

fpx90 发表于 2016-4-3 20:47
百度了下，只有Delphi 的一个类有这种函数，win32 API 没找到

GetPrivateProfileSection
GetPrivateProfileSectionNames

fpx90

言术 发表于 2016-4-3 14:08
读TXT？

就是，读文件，把每行有效的字符串添加到数组里，代码懒得贴了，也没多少人看

fpx90

sam7894604 发表于 2016-4-3 20:49
GetPrivateProfileSection
GetPrivateProfileSectionNames

Thanks

fpx90

sam7894604 发表于 2016-4-3 20:49
GetPrivateProfileSection
GetPrivateProfileSectionNames

大神帮忙看下
TC dllcall能调用吗

是不是有问题啊
dllcall("kernel32", "long", "GetPrivateProfileSectionNames","wchar *",节名,"long",缓冲大小,"wchar *",系统获取进程路径() & "\\接收信息.ini")

18667006365

fpx90 发表于 2016-4-3 21:22
大神帮忙看下
TC dllcall能调用吗

哈哈,昨天写出来了.你去看看.http://bbs.tyuyan.net/thread-59829-1-1.html

fpx90

18667006365 发表于 2016-4-4 08:19
哈哈,昨天写出来了.你去看看.http://bbs.tyuyan.net/thread-59829-1-1.html

Thanks