Option Explicit On
Module INI
'INICont.bas Ver 1.0+a INI '====================================================================
'GetIntFromINI( sectionName , keyName , defaultValue, iniPath )
'
' sectionName:节点名
' keyName :配置项名
' defaultValue:默认值
' iniPath :INI配置文件的路径
'
'====================================================================
//声明从INI配置文件中获取类型为Int的配置项的值的系统函数
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
//声明从INI配置文件中获取类型为string的配置项的值的系统函数
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName
As String) As Integer
//声明向INI配置文件中写入类型为string的配置项的值的系统函数
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
//从INI配置文件中获取类型为Int的配置项的值
Public Function GetIntFromINI(ByVal sectionName As String, ByVal keyName As String, ByVal defaultValue As Integer, ByVal iniPath As String) As Integer
GetIntFromINI = GetPrivateProfileInt(sectionName, keyName, defaultValue, iniPath)
End Function
//从INI配置文件中获取类型为string的配置项的值
Public Function GetStrFromINI(ByVal sectionName As String, ByVal keyName As String, ByVal defaultValue As String, ByVal iniPath As String) As String
Dim buffer As String
Dim rc As Integer
buffer = Space(256)
rc = GetPrivateProfileString(sectionName, keyName, defaultValue, buffer, buffer.Length, iniPath)
GetStrFromINI = Left(buffer, InStr(buffer, vbNullChar) - 1)
End Function
//向INI配置文件中写入类型为string的配置项的值
Public Function WriteStrINI(ByVal sectionName As String, ByVal keyName As String, ByVal setValue As String, ByVal iniPath As String) As Integer
Dim rc As Integer
rc = WritePrivateProfileString(sectionName, keyName, setValue, iniPath)
If rc Then
rc = 1
End If
WriteStrINI = rc
End Function
End Module
分享到:
相关推荐
在VB.NET中对INI文件进行读写操作
VB.NET]读写INI文件。在本实例中,我们将应用VB.NET制作一个能够实现读写INI文件的应用程序
VB.NET读写ini配置文件.zip
将附件的内容全部复制到一个新类中,解决以前读写INI文件的类GetSection出错
读写INI文件的类 分别用VB.NET和C#分别来实现的简单编程 更具体内容请访问微软MSDN
在 VB.Net 下读写 Ini 文件。必要的 WinAPI声明如下: Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ...
读写INI配置文件类,直接调用,内有注解说明,非常方便。
vb.net中读写ini文件,解决GetSection问题.zip
vb.net中读写ini文件,解决GetSection问题.rar
提供对ini文件的较完善操作: 读写文件 单元、属性多种方式搜索 属性值修改 插入、追加单元、属性 删除单元、属性 .... 附实例代码
在.net中读写INI文件 使用VB.net做的
用VB.net实现INI文件的读写。程序中还有自定义按钮、文本框控件,创建小键盘的写法,登录框与ACCESS数据库的写法,是不可多得示例源码
以前发了一个读写INI文件的模块,现在再发一个读写INI文件的DLL,这样大家就可以使用其他语言来读写INI文件了。内含详细使用说明,请参阅Readme.txt文件。在写软件时将一些参数放到INI文件里是非常方便更改的,我...
读写VB.NET和VBScript中的INI文件
可加密读写INI文件 测试环境 win7+vs2013 关于加密方式可参考 http://download.csdn.net/detail/qq51023578/7712047
在Windows PC上用程序实现读写INI文件很方便,因为在Windows PC上用API可以使用。 但是在Pocket PC和Windows CE上就没有那么幸运了。 此程序实现了在P-PC和W-CE上对INI文件结构的基本操作。(包括删除节点、...
以前发了一个用VB6.0编写的读写INI文件的DLL,现在公布两个使用此DLL的例程。内含详细使用说明,请参阅Readme.txt文件。DLL下载地址:http://download.csdn.net/source/669094
4.INI配置文件读写操作(保存所有信息,方便下一次启用) 5.中文乱码需加 RS232.Encoding = System.Text.Encoding.GetEncoding("UTF-8") 里头有两种读取模式, 第一种立即读取可用字节,第二种是不断读取(直到换行) 这...
ini读写操作,VB.net的代码,作配置文件用到的拿走
从vb.net转过来的,刚学习java,编写ini读写文件,在网上找了不少,都不能用,只有https://www.iteye.com/blog/bdk82924-1287930只能改写,不能创建新键值。研究了以后终于完成了。希望对大家有所帮助,第一次写,请...