易语言将INI配置项拆分多个文件分卷读写，1分钟处理上万条参数，比单文件快N倍

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. .支持库 EThread
   
5. .支持库 YunReg
   
6. 
   
7. .程序集 程序集1
   
8. .程序集变量 计数2, 整数型
   
9. .程序集变量 模式, 文本型
   
10. 
    
11. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
    
12. 
    
13. ' 由于分卷的INI文件，是分散在多个文件上的，通过配置项名称计算出一个编号并写入该编号的文件名中，读写文件往往较快，单文件只要不太大，速度基本不会有多大变化。
    
14. ' 而单个INI文件的读写一次，需要读入整个内存，送入CPU进行逐行分析修改，非常费时，文件越大读写越慢，上百MB就容易崩溃，读写完需要数天的时间。
    
15. ' 如果需要频繁读写的INI文件超过10Mb，那么就需要用本方法进行分卷读写，否则会严重影响到程序运行效率。
    
16. 
    
17. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
18. 返回 (0)  ' 可以根据您的需要返回任意数值
    
19. 
    
20. .子程序 _临时子程序
    
21. .局部变量 配置项目录, 文本型
    
22. .局部变量 计数, 整数型
    
23. .局部变量 时间, 整数型
    
24. .局部变量 MD5, 文本型
    
25. .局部变量 配置项文件, 文本型
    
26. .局部变量 测试条数, 整数型
    
27. 
    
28. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
29. 调试输出 (“程序开始”)
    
30. 创建目录 (“data”)
    
31. 配置项目录 ＝ 取运行目录 () ＋ “/data”
    
32. 配置项文件 ＝ 取运行目录 () ＋ “/data.ini”
    
33. 测试条数 ＝ 100000
    
34. 启动线程 (&频率统计, , )
    
35. 时间 ＝ 取启动时间 ()
    
36. 计数2 ＝ 0
    
37. 模式 ＝ “分卷写”
    
38. 
    
39. .计次循环首 (测试条数, 计数)
    
40.     计数2 ＝ 计数2 ＋ 1
    
41.     写配置项_分卷 (配置项目录, “data”, 到文本 (计数), 到文本 (计数), 100)
    
42. .计次循环尾 ()
    
43. 调试输出 (模式 ＋ 到文本 (测试条数) ＋ “条INI时间(秒)”, (取启动时间 () － 时间) ÷ 1000)
    
44. 
    
45. 模式 ＝ “分卷读”
    
46. 计数2 ＝ 0
    
47. 时间 ＝ 取启动时间 ()
    
48. .计次循环首 (测试条数, 计数)
    
49.     计数2 ＝ 计数2 ＋ 1
    
50.     读配置项_分卷 (配置项目录, “data”, 到文本 (计数), , 100)
    
51. .计次循环尾 ()
    
52. 调试输出 (模式 ＋ 到文本 (测试条数) ＋ “条INI时间(秒)”, (取启动时间 () － 时间) ÷ 1000)
    
53. 
    
54. 模式 ＝ “传统写”
    
55. 计数2 ＝ 0
    
56. 时间 ＝ 取启动时间 ()
    
57. .计次循环首 (测试条数, 计数)
    
58.     计数2 ＝ 计数2 ＋ 1
    
59.     写配置项 (配置项文件, “data”, 到文本 (计数), 到文本 (计数))
    
60. .计次循环尾 ()
    
61. 调试输出 (模式 ＋ 到文本 (测试条数) ＋ “条INI时间(秒)”, (取启动时间 () － 时间) ÷ 1000)
    
62. 
    
63. 模式 ＝ “传统读”
    
64. 计数2 ＝ 0
    
65. 时间 ＝ 取启动时间 ()
    
66. .计次循环首 (测试条数, 计数)
    
67.     计数2 ＝ 计数2 ＋ 1
    
68.     写配置项 (配置项文件, “data”, 到文本 (计数), 到文本 (计数))
    
69. .计次循环尾 ()
    
70. 调试输出 (模式 ＋ 到文本 (测试条数) ＋ “条INI时间(秒)”, (取启动时间 () － 时间) ÷ 1000)
    
71. 
    
72. ' 调试输出 (读配置项_分卷 (配置项目录, “data”, “99c5e07b4d5de9d18c350cdf64c5aa3d”, “失败”, 100))
    
73. 
    
74. 
    
75. 
    
76. 
    
77. .子程序 读配置项_分卷, 文本型, 公开, 将配置文件中的大量配置项拆分成多个INI文件以提高读写性能。
    
78. .参数 配置项目录, 文本型, , 目录中将包含若干个 0以上数字.ini 这些文件。
    
79. .参数 节名称, 文本型, , 包含欲写入配置项所处节的名称，详见 读配置项()
    
80. .参数 配置项名称, 文本型, , 通过配置项名称，读出配置项对应的值，详见 读配置项()
    
81. .参数 默认文本, 文本型, 可空, 配置项读入失败返回的文本，详见 读配置项()
    
82. .参数 分卷数, 整数型, , 范围在2~1073741824之间，数据越大则分卷数应越多，读写的分卷数不一致将读不出或出现错乱。
    
83. .局部变量 配置项目录2, 文本型
    
84. .局部变量 文件名, 文本型
    
85. .局部变量 文件编号, 整数型
    
86. 
    
87. .如果真 (分卷数 ＜ 2 或 分卷数 ＞ 1073741824)
    
88.     返回 (“”)
    
89. .如果真结束
    
90. 文件编号 ＝ 取绝对值 (取数据CRC较验码 (到字节集 (配置项名称))) ％ 分卷数
    
91. 配置项目录2 ＝ 子文本替换 (配置项目录, “/”, “\”, , , 真)
    
92. 文件名 ＝ 配置项目录2 ＋ “\” ＋ 到文本 (文件编号) ＋ “.ini”
    
93. 返回 (读配置项 (文件名, 节名称, 配置项名称, 默认文本))
    
94. 
    
95. 
    
96. .子程序 写配置项_分卷, 逻辑型, 公开, 与 读配置项_分卷() 配套使用。
    
97. .参数 配置项目录, 文本型, , 详见 读配置项_分卷()
    
98. .参数 节名称, 文本型, , 详见 写配置项()
    
99. .参数 配置项名称, 文本型, , 详见 写配置项()
    
100. .参数 欲写入值, 文本型, , 详见 写配置项()
     
101. .参数 分卷数, 整数型, , 详见 读配置项_分卷()
     
102. .局部变量 配置项目录2, 文本型
     
103. .局部变量 文件名, 文本型
     
104. .局部变量 文件编号, 整数型
     
105. 
     
106. .如果真 (分卷数 ＜ 2 或 分卷数 ＞ 1073741824)
     
107.     返回 (假)
     
108. 
     
109. .如果真结束
     
110. 配置项目录2 ＝ 子文本替换 (配置项目录, “/”, “\”, , , 真)
     
111. 文件编号 ＝ 取绝对值 (取数据CRC较验码 (到字节集 (配置项名称))) ％ 分卷数
     
112. 文件名 ＝ 配置项目录2 ＋ “\” ＋ 到文本 (文件编号) ＋ “.ini”
     
113. 返回 (写配置项 (文件名, 节名称, 配置项名称, 欲写入值))
     
114. 
     
115. 
     
116. .子程序 频率统计
     
117. 
     
118. .判断循环首 (真)
     
119.     延时 (10 × 1000)
     
120.     调试输出 (模式 ＋ “频率(hz)”, 计数2 ÷ 10)
     
121.     计数2 ＝ 0
     
122. .判断循环尾 ()
     

复制代码

520

占个沙发，帖子底的亮了...