VB编程：ini配置文件的读写函数

最新推荐文章于 2025-08-22 13:05:49 发布

原创

最新推荐文章于 2025-08-22 13:05:49 发布 · 725 阅读

8 ·

CC 4.0 BY-SA版权

文章标签：

#java #前端 #javascript

本文介绍了VB编程中用于读写Ini配置文件的三个函数：ReadINI、WriteIni和DelIniKey。ReadINI函数能从Ini文件中读取指定信息，自动忽略键值周围的空格；WriteIni函数则能确保写入时保留值中的空格，通过添加单引号来处理；DelIniKey函数用于删除Ini文件中特定节下的键值。

'功能：从Ini中读取指定信息，INI文件要指明路径
'参数：optDefaultReturn,如果读到的值为空,则返回此默认值
'特别说明：有时为了对齐排版格式的需要，如文件：炭化室状态.txt，会在等号左右添加一些空格，测试发现，ReadINI会忽略掉这些空格，这是 GetPrivateProfileString API函数决定的，可理解为trim$(Key)后读取和 trim$(返回值)再返回
' 如果值中前后本身就有空格，正常也会过滤掉，所以为了保证读取到值中固有的空格，存键值时（WriteIni）在值前后会加上单引号，而读取时会自动忽略掉前后的单引号，无需再多余处理
'实例：Print ReadINI("WQMInfo", "BMF", "E:\DoCin\WQM.ini")
Public Function ReadINI(Section, key, FileName, Optional optDefaultReturn = "") As String
Dim buff1 As String '一定要有此语句，否则返回为空值
buff1 = String$(65534, Chr$(0)) '最长键值长度
If Left$(Section, 1) = "[" And Right$(Section, 1) = "]" Then
Section = Mid$(Section, 2, Len(Section) - 2)
End If
GetPrivateProfileString Section, key, "", buff1, Len(buff1), FileName
ReadINI = StripTerminator(buff1)
If ReadINI = "" Then
&

最低0.47元/天解锁文章