TC官方合作论坛

标题: 枚举配置文件中的小节名和和Key [打印本页]
作者: fpx90    时间: 2016-4-3 12:15
标题: 枚举配置文件中的小节名和和Key
功能同大漠的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. 结束

  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    时间: 2016-4-3 13:36
不错,这也有win32 API可以调用的！
作者: 言术    时间: 2016-4-3 14:08
读TXT？
作者: fpx90    时间: 2016-4-3 20:47
sam7894604 发表于 2016-4-3 13:36
不错,这也有win32 API可以调用的！

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

GetPrivateProfileSection
GetPrivateProfileSectionNames
作者: fpx90    时间: 2016-4-3 20:50
言术 发表于 2016-4-3 14:08
读TXT？

就是，读文件，把每行有效的字符串添加到数组里，代码懒得贴了，也没多少人看
作者: fpx90    时间: 2016-4-3 20:54
sam7894604 发表于 2016-4-3 20:49
GetPrivateProfileSection
GetPrivateProfileSectionNames

Thanks
作者: fpx90    时间: 2016-4-3 21:22
sam7894604 发表于 2016-4-3 20:49
GetPrivateProfileSection
GetPrivateProfileSectionNames

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

是不是有问题啊
dllcall("kernel32", "long", "GetPrivateProfileSectionNames","wchar *",节名,"long",缓冲大小,"wchar *",系统获取进程路径() & "\\接收信息.ini")
作者: 18667006365    时间: 2016-4-4 08:19
fpx90 发表于 2016-4-3 21:22
大神帮忙看下
TC dllcall能调用吗

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

Thanks



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1