用VB.net实现对.ini文件的读写操作的类
2011-09-27 15:52
381 查看
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
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读写xml(2)--实现datagrid与xml的沟通(原创)
- C#.net实现windows窗体程序对Excel文件的读写操作
- 在VB.NET中实现拖放操作
- [VB.NET]读写INI文件
- vb.net读写xml(2)--实现datagrid与xml的沟通
- 在vb.net 里面实现对sql server 存储过程的操作
- 让C#、VB.NET实现复杂的二进制操作
- vb.net 教程 4-12 ini文件操作 2 ini文件的写入
- 在VB.NET中实现拖放操作
- 让C#、VB.NET实现复杂的二进制操作
- vb.net 利用ADO实现数据库的删除、插入、修改操作(adodb)
- [VB.NET]利用vb.net创建一个完全可编辑的DataGrid,从而实现操作Access数据库进行增,删,改的功能,前提是不用任何其他的Button
- 在VB.NET中实现拖放操作 DragDrop
- C# + VB.NET 实现对SAP的操作
- 通过vb.net 和NPOI实现对excel的读操作
- VB.NET 中启动ADO.NET事务,实现对数据库操作的整体性。
- VB.Net读写操作INI文件类
- [VB.NET源码]文件读写与数据库操作示例
- vb.net 读写ini文件