查看: 11388|回复: 33	[昨夜星辰] 【源码】API操作配置文件(ini) [复制链接]

发送短消息 UID 728264 帖子 3502 精华 18 鲜花 1899 朵 铜币 27454 个 银币 1718 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-12-22 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3502 精华18 鲜花1899 朵 铜币27454 个 银币1718 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-10-02 14:38 | |只看楼主 函数名称： ReadIni 从配置文件中获取指定小节指定键的值 参数定义： Section 字符串型：小节名 Key 字符串型：键名 FilePath 字符串型：ini文件所在路径 返回值： 字符串型：读取到的内容 调用例子： Text = ReadIni("s", "k", "C:\cfg.ini") 函数名称： WriteIni 向配置文件中指定小节写入键及其值 参数定义： Section 字符串型：小节名 Key 字符串型：键名 Value 字符串型：键值 FilePath 字符串型：ini文件所在路径 返回值： 整数型：非0为成功，否则为失败。 调用例子： ret = WriteIni("s", "k", 1, "C:\cfg.ini") 函数名称： OverwriteIni 向配置文件中指定小节覆盖写入键及其值（写入前会清空指定小节下所有键及其值） 参数定义： Section 字符串型：小节名 Key 字符串型：键名和值，格式为"键=值"，多个内容用"|"进行连接，比如"k1=1|k2=2|k3=3" FilePath 字符串型：ini文件所在路径 返回值： 整数型：非0为成功，否则为失败。 调用例子： ret = OverwriteIni("s", "k1=1|k2=2|k3=3", "C:\cfg.ini") 函数名称： EnumIniSection 从配置文件中获取所有小节 参数定义： FilePath 字符串型：ini文件所在路径 返回值： 字符串型：读取到的内容，多个内容用"|"连接，比如"s1|s2|s3" 调用例子： Text = EnumIniSection("C:\cfg.ini") 函数名称： EnumIniKey 从配置文件中获取指定小节所有键 参数定义： Section 字符串型：小节名 FilePath 字符串型：ini文件所在路径 返回值： 字符串型：读取到的内容，多个内容用"|"连接，比如"k1|k2|k3" 调用例子： Text = EnumIniKey("s", "C:\cfg.ini") 函数名称： EnumIniKeyEx 从配置文件中获取指定小节所有键及其值 参数定义： Section 字符串型：小节名 FilePath 字符串型：ini文件所在路径 返回值： 字符串型：读取到的内容，格式为"键=值"，多个内容用"|"连接，比如"k1=1|k2=2|k3=3" 调用例子： Text = EnumIniKeyEx("s", "C:\cfg.ini") 函数名称： DeleteIni 从配置文件中删除指定小节的键及其值 参数定义： Section 字符串型：小节名 Key 字符串型：键名，若键名为空则删除小节下所有键及其值 FilePath 字符串型：ini文件所在路径 返回值： 整数型：非0为成功，否则为失败。 调用例子： ret = DeleteIni("s", "k", "C:\cfg.ini") ret = DeleteIni("s", "", "C:\cfg.ini") 代码调试： Dim Section, Key, Value, FilePath Section = "section" Key = "key" Value = "value" FilePath = "C:\test.ini" TracePrint "写入结果：" & WriteIni(Section, Key, Value, FilePath) TracePrint "覆盖写入结果：" & OverwriteIni(Section, "key=123|abc=456", FilePath) TracePrint "读取结果：" & ReadIni(Section, Key, FilePath) TracePrint "枚举小节结果：" & EnumIniSection(FilePath) TracePrint "枚举键结果：" & EnumIniKey(Section, FilePath) TracePrint "枚举键和值结果：" & EnumIniKeyEx(Section, FilePath) TracePrint "删除键结果：" & DeleteIni(Section, Key, FilePath) TracePrint "删除所有键结果：" & DeleteIni(Section, "", FilePath) 复制代码 调试结果： 脚本 利用API操作配置文件.Q ，第11行：写入结果：1 脚本 利用API操作配置文件.Q ，第12行：覆盖写入结果：1 脚本 利用API操作配置文件.Q ，第13行：读取结果：123 脚本 利用API操作配置文件.Q ，第14行：枚举小节结果：section 脚本 利用API操作配置文件.Q ，第15行：枚举键结果：key|abc 脚本 利用API操作配置文件.Q ，第16行：枚举键和值结果：key=123|abc=456 脚本 利用API操作配置文件.Q ，第17行：删除键结果：1 脚本 利用API操作配置文件.Q ，第18行：删除所有键结果：1 全部源码： Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpApplicationName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileSectionNames Lib "kernel32" Alias "GetPrivateProfileSectionNamesA" (ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpApplicationName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Dim Section, Key, Value, FilePath Section = "section" Key = "key" Value = "value" FilePath = "C:\test.ini" TracePrint "写入结果：" & WriteIni(Section, Key, Value, FilePath) TracePrint "覆盖写入结果：" & OverwriteIni(Section, "key=123|abc=456", FilePath) TracePrint "读取结果：" & ReadIni(Section, Key, FilePath) TracePrint "枚举小节结果：" & EnumIniSection(FilePath) TracePrint "枚举键结果：" & EnumIniKey(Section, FilePath) TracePrint "枚举键和值结果：" & EnumIniKeyEx(Section, FilePath) TracePrint "删除键结果：" & DeleteIni(Section, Key, FilePath) TracePrint "删除所有键结果：" & DeleteIni(Section, "", FilePath) Function ReadIni(Section, Key, FilePath) '从配置文件中获取指定小节指定键的值 str = space(32767) Dim ret ret = GetPrivateProfileString(Section, Key, "", str, Len(str), FilePath) If ret = 0 Then ReadIni = "" Else ReadIni = Left(str, ret) End If End Function Function WriteIni(Section, Key, Value, FilePath) '向配置文件中指定小节写入键及其值 WriteIni = WritePrivateProfileString(Section, Key, Value, FilePath) End Function Function OverwriteIni(Section, Key, FilePath) '向配置文件中指定小节覆盖写入键及其值 Key = Replace(Key, "|", Chr(0)) Key = Key & Chr(0) OverwriteIni = WritePrivateProfileSection(Section, Key, FilePath) End Function Function EnumIniSection(FilePath) '从配置文件中获取所有小节 str = space(32767) Dim ret ret = GetPrivateProfileSectionNames(str, Len(str), FilePath) If ret = 0 Then EnumIniSection = "" Else str = Replace(Left(str, InStr(str, Chr(0) & Chr(0))), Chr(0), "|") EnumIniSection = Left(str, Len(str) - 1) End If End Function Function EnumIniKey(Section, FilePath) '从配置文件中获取指定小节所有键 str = space(32767) Dim ret ret = GetPrivateProfileString(Section, vbNullString, "", str, Len(str), FilePath) If ret = 0 Then EnumIniKey = "" Else str = Replace(Left(str, InStr(str, Chr(0) & Chr(0))), Chr(0), "|") EnumIniKey = Left(str, Len(str) - 1) End If End Function Function EnumIniKeyEx(Section, FilePath) '从配置文件中获取指定小节所有键及其值 str = space(32767) Dim ret ret = GetPrivateProfileSection(Section, str, Len(str), FilePath) If ret = 0 Then EnumIniKeyEx = "" Else str = Replace(Left(str, InStr(str, Chr(0) & Chr(0))), Chr(0), "|") EnumIniKeyEx = Left(str, Len(str) - 1) End If End Function Function DeleteIni(Section, Key, FilePath) '从配置文件中删除指定小节的键及其值 If Key = "" Then DeleteIni = WritePrivateProfileString(Section, vbNullString, vbNullString, FilePath) Else DeleteIni = WritePrivateProfileString(Section, Key, vbNullString, FilePath) End If End Function 复制代码
	昨夜星辰 最后编辑于 2022-10-02 14:52:39 点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 7187776 帖子 15 精华 0 鲜花 8 朵 铜币 22 个 银币 12 个 性别 在线时间 0 注册时间 2019-11-25 最后登录 2024-11-08 查看公共资料 搜索主题 搜索帖子 DTS83988611 DTS83988611 组别小学一年级 UID7187776 帖子15 精华0 鲜花8 朵 铜币22 个 银币12 个 在线时间0 注册时间2019-11-25	2# 字体大小: t T 发表于 2022-10-02 15:01 | |只看该用户 沙发
	回顶部

发送短消息 UID 8274022 帖子 703 精华 0 鲜花 158 朵 铜币 714 个 银币 863 个 性别 在线时间 0 注册时间 2021-05-01 最后登录 2024-08-08 28306674 查看公共资料 搜索主题 搜索帖子 flash5435 农民秀才 组别高中三年级 UID8274022 帖子703 精华0 鲜花158 朵 铜币714 个 银币863 个 在线时间0 注册时间2021-05-01 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	3# 字体大小: t T 发表于 2022-10-04 07:12 | |只看该用户 学习啦！~感谢楼主分享！
	回顶部

发送短消息 UID 8267027 帖子 13 精华 0 鲜花 3 朵 铜币 17 个 银币 9 个 性别 在线时间 0 注册时间 2021-04-26 最后登录 2022-11-19 504557991 查看公共资料 搜索主题 搜索帖子 wujiangwei888 wujiangwei888 组别小学一年级 UID8267027 帖子13 精华0 鲜花3 朵 铜币17 个 银币9 个 在线时间0 注册时间2021-04-26	4# 字体大小: t T 发表于 2022-10-25 18:48 | |只看该用户 11111111111111111
	回顶部

发送短消息 UID 847605 帖子 68 精华 0 鲜花 36 朵 铜币 113 个 银币 45 个 性别 在线时间 780 注册时间 2011-10-30 最后登录 2024-06-24 759353000 查看公共资料 搜索主题 搜索帖子 qq759353000 qq759353000 组别小学三年级 UID847605 帖子68 精华0 鲜花36 朵 铜币113 个 银币45 个 在线时间780 注册时间2011-10-30	5# 字体大小: t T 发表于 2022-11-30 23:07 | |只看该用户 找了很久
	回顶部

发送短消息 UID 550662 帖子 45 精华 0 鲜花 17 朵 铜币 66 个 银币 21 个 性别 在线时间 3180 注册时间 2010-12-01 最后登录 2023-02-27 447996448 查看公共资料 搜索主题 搜索帖子 小米壳 小米壳 组别小学二年级 UID550662 帖子45 精华0 鲜花17 朵 铜币66 个 银币21 个 在线时间3180 注册时间2010-12-01 按键会员（月） 按键会员绑定账号后自动赠送	6# 字体大小: t T 发表于 2023-01-07 13:23 | |只看该用户 学习了一个
	回顶部

发送短消息 UID 8464576 帖子 21 精华 0 鲜花 12 朵 铜币 31 个 银币 21 个 性别 在线时间 0 注册时间 2021-09-15 最后登录 2023-03-10 12345 查看公共资料 搜索主题 搜索帖子 cw2232k cw2232k 组别小学一年级 UID8464576 帖子21 精华0 鲜花12 朵 铜币31 个 银币21 个 在线时间0 注册时间2021-09-15	7# 字体大小: t T 发表于 2023-01-22 22:59 | |只看该用户 回复有美女
	回顶部

发送短消息 UID 8849126 帖子 5 精华 0 鲜花 2 朵 铜币 6 个 银币 6 个 性别 在线时间 0 注册时间 2022-09-15 最后登录 2023-03-25 查看公共资料 搜索主题 搜索帖子 林风冰翼 组别小学一年级 UID8849126 帖子5 精华0 鲜花2 朵 铜币6 个 银币6 个 在线时间0 注册时间2022-09-15	8# 字体大小: t T 发表于 2023-01-22 23:00 | |只看该用户 累死了，不知道为什么我电脑上原生读取文件内容命令无法识别中文路径。我来看看楼主的
	回顶部

发送短消息 UID 5990245 帖子 60 精华 0 鲜花 28 朵 铜币 70 个 银币 60 个 性别 在线时间 0 注册时间 2019-01-05 最后登录 2024-12-13 查看公共资料 搜索主题 搜索帖子 123NK 123NK 组别小学三年级 UID5990245 帖子60 精华0 鲜花28 朵 铜币70 个 银币60 个 在线时间0 注册时间2019-01-05	9# 字体大小: t T 发表于 2023-01-23 21:28 | |只看该用户 感谢分享
	回顶部

发送短消息 UID 5667119 帖子 22 精华 0 鲜花 13 朵 铜币 32 个 银币 22 个 性别 在线时间 0 注册时间 2018-10-08 最后登录 2023-12-11 查看公共资料 搜索主题 搜索帖子 q916442926 q916442926 组别小学一年级 UID5667119 帖子22 精华0 鲜花13 朵 铜币32 个 银币22 个 在线时间0 注册时间2018-10-08	10# 字体大小: t T 发表于 2023-02-06 18:12 | |只看该用户 学习啦！~感谢楼主分享！
	回顶部

发送短消息 UID 186427 帖子 167 精华 0 鲜花 43 朵 铜币 213 个 银币 51 个 性别 在线时间 3720 注册时间 2008-07-20 最后登录 2024-12-21 ssl_19850814@hotmail.com 153222899 职业玩家 查看公共资料 搜索主题 搜索帖子 ys1101005 ys1101005 组别初中一年级 UID186427 帖子167 精华0 鲜花43 朵 铜币213 个 银币51 个 在线时间3720 注册时间2008-07-20	11# 字体大小: t T 发表于 2023-02-23 04:30 | |只看该用户 恭喜你
	回顶部

发送短消息 UID 157191 帖子 121 精华 0 鲜花 2 朵 铜币 885 个 银币 22 个 性别 在线时间 6540 注册时间 2007-11-22 最后登录 2023-10-09 查看公共资料 搜索主题 搜索帖子 hyj17 hyj17 组别小学六年级 UID157191 帖子121 精华0 鲜花2 朵 铜币885 个 银币22 个 在线时间6540 注册时间2007-11-22	12# 字体大小: t T 发表于 2023-03-27 12:38 | |只看该用户 怎么做到的？DeleteIni
	回顶部

发送短消息 UID 3025976 帖子 715 精华 0 鲜花 20 朵 铜币 4983 个 银币 983 个 性别 在线时间 9800 注册时间 2015-01-22 最后登录 2024-12-12 查看公共资料 搜索主题 搜索帖子 Hi~哐哐 Hi~哐哐 组别高中三年级 UID3025976 帖子715 精华0 鲜花20 朵 铜币4983 个 银币983 个 在线时间9800 注册时间2015-01-22 过大年勋章 俩小福娃给大家拜年啦！ 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com QUI设计大师 QUI设计大师 小红帽 对论坛提出良好建议（可向管理员申请）	13# 字体大小: t T 发表于 2023-03-27 14:18 | |只看该用户 学习啦！~感谢楼主分享！
	回顶部

发送短消息 UID 847605 帖子 68 精华 0 鲜花 36 朵 铜币 113 个 银币 45 个 性别 在线时间 780 注册时间 2011-10-30 最后登录 2024-06-24 759353000 查看公共资料 搜索主题 搜索帖子 qq759353000 qq759353000 组别小学三年级 UID847605 帖子68 精华0 鲜花36 朵 铜币113 个 银币45 个 在线时间780 注册时间2011-10-30	14# 字体大小: t T 发表于 2023-04-06 04:29 | |只看该用户 sas asasas
	回顶部

发送短消息 UID 146534 帖子 861 精华 0 鲜花 385 朵 铜币 906 个 银币 767 个 性别 在线时间 6360 注册时间 2007-08-09 最后登录 2024-01-14 查看公共资料 搜索主题 搜索帖子 hz_sg hz_sg 组别大学一年级 UID146534 帖子861 精华0 鲜花385 朵 铜币906 个 银币767 个 在线时间6360 注册时间2007-08-09	15# 字体大小: t T 发表于 2023-04-06 10:47 | |只看该用户 感谢楼主分享！
	回顶部

发送短消息 UID 759921 帖子 70 精华 0 鲜花 8 朵 铜币 188 个 银币 18 个 性别 在线时间 540 注册时间 2011-09-02 最后登录 2023-04-11 12291936 查看公共资料 搜索主题 搜索帖子 HN-Jerome HN-Jerome 组别小学三年级 UID759921 帖子70 精华0 鲜花8 朵 铜币188 个 银币18 个 在线时间540 注册时间2011-09-02	16# 字体大小: t T 发表于 2023-04-07 10:07 | |只看该用户 学习下
	回顶部

发送短消息 UID 1709872 帖子 94 精华 0 鲜花 36 朵 铜币 199 个 银币 57 个 性别 在线时间 760 注册时间 2013-03-31 最后登录 2024-12-02 316488793 查看公共资料 搜索主题 搜索帖子 cxz5381876 cxz5381876 组别小学五年级 UID1709872 帖子94 精华0 鲜花36 朵 铜币199 个 银币57 个 在线时间760 注册时间2013-03-31	17# 字体大小: t T 发表于 2023-04-16 14:16 | |只看该用户 test.ini 学习一下
	回顶部

发送短消息 UID 9000907 帖子 15 精华 0 鲜花 15 朵 铜币 16 个 银币 16 个 性别 在线时间 0 注册时间 2023-03-26 最后登录 2023-06-21 查看公共资料 搜索主题 搜索帖子 wjjzbt520 组别小学一年级 UID9000907 帖子15 精华0 鲜花15 朵 铜币16 个 银币16 个 在线时间0 注册时间2023-03-26	18# 字体大小: t T 发表于 2023-04-26 20:55 | |只看该用户 看看吧
	回顶部

发送短消息 UID 6866441 帖子 12 精华 0 鲜花 9 朵 铜币 22 个 银币 12 个 性别 在线时间 0 注册时间 2019-08-16 最后登录 2023-05-15 查看公共资料 搜索主题 搜索帖子 z81939925 z81939925 组别小学一年级 UID6866441 帖子12 精华0 鲜花9 朵 铜币22 个 银币12 个 在线时间0 注册时间2019-08-16	19# 字体大小: t T 发表于 2023-05-03 16:04 | |只看该用户 怎么调用多个键值呢 点评 昨夜星辰  使用下面两个函数，可以多个读取和写入。 EnumIniKeyEx OverwriteIni  发表于 2023/5/14 12:32:12
	回顶部

发送短消息 UID 2710584 帖子 331 精华 0 鲜花 -4 朵 铜币 890 个 银币 5 个 性别 在线时间 6400 注册时间 2014-08-29 最后登录 2023-05-31 442727055 查看公共资料 搜索主题 搜索帖子 zhendeai1 zhendeai1 组别初中二年级 UID2710584 帖子331 精华0 鲜花-4 朵 铜币890 个 银币5 个 在线时间6400 注册时间2014-08-29	20# 字体大小: t T 发表于 2023-05-13 19:56 | |只看该用户 学习啊 学习一下啊！
	回顶部