递归火山软件开发平台

标题: @创世魂 给代码更新 合并 到官方代码 [打印本页]

---

作者: server    时间: 2024-4-8 20:06
标题: @创世魂 给代码更新 合并 到官方代码
刚好用到，而自身又不支持，我就给改了改。你把这个代码 合并进去，给加个参数 ： 是否多字节

测试了，没问题。

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 类 配置项 <公开 折叠>
   
4. {
   
5.     方法 test
   
6.     {
   
7.         变量 fileini <类型 = 文本型>
   
8.         fileini = 取特定目录 (特定目录类型.系统桌面) + "cg.ini"
   
9.         变量 index1 <类型 = 整数 值 = 0>
   
10.         变量 index2 <类型 = 整数 值 = 0>
    
11.         计次循环 (3)
    
12.         {
    
13.             index2 = 0
    
14.             计次循环 (3)
    
15.             {
    
16.                 配置项.写 (fileini, "aaa" + 到文本 (index1), "name" + 到文本 (index2), "val" + 到文本 (index2))
    
17.                 index2 = index2 + 1
    
18.             }
    
19.             index1 = index1 + 1
    
20.         }
    
21.         index1 = 0
    
22.         计次循环 (3)
    
23.         {
    
24.             index2 = 0
    
25.             计次循环 (3)
    
26.             {
    
27.                 调试输出 ("aaa" + 到文本 (index1), "name" + 到文本 (index2), 配置项.读 (fileini, "aaa" + 到文本 (index1), "name" + 到文本 (index2)))
    
28.                 index2 = index2 + 1
    
29.             }
    
30.             index1 = index1 + 1
    
31.         }
    
32. 
    
33.         调试输出 (配置项.取节名 (fileini))
    
34. 
    
35.     }
    
36. 
    
37.     方法 读 <公开 静态 类型 = 文本型 注释 = "读取并返回所指定配置文件中指定项目的文本内容" 折叠>
    
38.     参数 配置文件名 <类型 = 文本型 注释 = "指定配置文件的名称,通常以"ini"作为文件名后缀.">
    
39.     参数 节名称 <类型 = 文本型 注释 = "指定欲读入配置项所处节的名称">
    
40.     参数 配置项名称 <类型 = 文本型 注释 = "指定欲读入配置项在其节中的名称">
    
41.     参数 默认值 <类型 = 文本型 注释 = "如果所指定配置项不存在,将返回此默认值文本." @默认值 = "">
    
42.     {
    
43.         变量 结果变量 <静态 类型 = 字节集类>
    
44.         如果 (文本是否为空 (配置文件名) == 假 && 文本是否为空 (节名称) == 假 && 文本是否为空 (配置项名称) == 假)
    
45.         {
    
46.             结果变量.分配字节集 (10240, 真)
    
47.             @ GetPrivateProfileStringA (GetMbsText (@<节名称>.GetText (), CVolMem (), NULL), GetMbsText (@<配置项名称>.GetText (), CVolMem (), NULL), GetMbsText (@<默认值>.GetText (), CVolMem (), NULL), (LPSTR)@<结果变量>.GetPtr (), @<结果变量>.GetSize (),  GetMbsText (@<配置文件名>.GetText (), CVolMem (), NULL));
    
48.         }
    
49.         返回 (多字节到文本 (结果变量))
    
50.     }
    
51. 
    
52.     方法 写 <公开 静态 类型 = 逻辑型 注释 = "  将指定文本内容写入指定配置项中或者删除指定的配置项或节," 注释 = "如果指定配置文件不存在,将会自动创建." 返回值注释 = "返回是否成功"
    
53.             折叠 折叠2 @禁止流程检查 = 真>
    
54.     参数 配置文件名 <类型 = 文本型 注释 = "指定配置文件的名称,通常以"ini"作为文件名后缀.">
    
55.     参数 节名称 <类型 = 文本型 注释 = "指定欲写入配置项所处节的名称">
    
56.     参数 配置项名称 <类型 = 文本型 注释 = "指定欲写入配置项在其节中的名称.如果为空对象,则删除指定节及其下的所有配置项." @默认值 = 空对象>
    
57.     参数 欲写入值 <类型 = 文本型 注释 = "指定欲写入到指定配置项中的文本,如果为空对象,则删除所指定配置项." @默认值 = 空对象>
    
58.     {
    
59.         @ return WritePrivateProfileStringA (GetMbsText (@<节名称>.GetText (), CVolMem (), NULL), (@<配置项名称>.IsNullObject () ? NULL : GetMbsText (@<配置项名称>.GetText (), CVolMem (), NULL)), (@<欲写入值>.IsNullObject () ? NULL : GetMbsText (@<欲写入值>.GetText (), CVolMem (), NULL)), GetMbsText (@<配置文件名>.GetText (), CVolMem (), NULL));
    
60.     }
    
61. 
    
62.     方法 取节名 <公开 静态 类型 = 文本数组类 注释 = "返回指定配置文件中所有已有节名的文本数组" 折叠>
    
63.     参数 配置文件名 <类型 = 文本型 注释 = "指定配置文件的名称,通常以"ini"作为文件名后缀.">
    
64.     {
    
65.         变量 结果变量 <类型 = 文本数组类>
    
66.         变量 节名 <类型 = 字节集类>
    
67.         变量 节名组 <类型 = 字节集数组类>
    
68.         节名.分配字节集 (256 * 1024, 真)
    
69.         @ GetPrivateProfileSectionNamesA ((LPSTR)@<节名>.GetPtr (), @<节名>.GetSize (), GetMbsText (@<配置文件名>.GetText (), CVolMem (), NULL));
    
70.         节名.删除字节集尾部数据 (节名.寻找字节集 (创建字节集 (0, 0), ))
    
71.         分割字节集 (节名, 创建字节集 (0), 节名组, )
    
72.         节名组.枚举循环 ()
    
73.         {
    
74.             结果变量.加入成员 (多字节到文本 (节名组.取枚举值 ()))
    
75.         }
    
76.         返回 (结果变量)
    
77.     }
    
78. 
    
79.     #
    
80. }
    

复制代码

---

作者: a759077146    时间: 2024-4-8 23:18
:噜阿噜

---

作者: server    时间: 2024-4-9 13:06
配置项  还有其他函数，暂时用不上，不准备搞起了。
那位火友有兴趣可以搞一搞。

---

欢迎光临 递归火山软件开发平台 (https://bbs.voldp.com/)

Powered by Discuz! X3.4