ini文件读写模块（可以穷举一个ini文件里的所有段名和指定段的键名/键值）

自动换行  【由 孤帆代码着色器1.1.0.0  着色】  孤帆Blog

 
 
 
Attribute VB_Name = "mIni"
'*************************************************************************
'**模 块 名：mIni
'**说    明：孤帆 版权所有2005 - 2006(C)
'**创 建 人：孤帆
'**日    期：2005-5-25 13:16:33
'**描    述：读写ini文件键值/段值模块（可以穷举一个ini文件里的所有段名
'**          和指定段的键名/键值）
'**版    本：V1.0.0
'*************************************************************************
Option Base 0
Private Declare Function GetPrivateProfileIntA Lib "kernel32" (ByVal Senction$, ByVal lpKeyName$, ByVal nDefault&, ByVal lpFileName$) As Long

Private Declare Function GetPrivateProfileSectionNamesA Lib "kernel32.dll" (ByVal szValue$, ByVal nSize&, ByVal szFileName$) As Long
Private Declare Function WritePrivateProfileSectionA Lib "kernel32" (ByVal Senction$, ByVal szValue$, ByVal szFileName$) As Long
Private Declare Function GetPrivateProfileSectionA Lib "kernel32" (ByVal Senction$, ByVal szValue As String, ByVal nSize&, ByVal szFileName$) As Long
Private Declare Function WritePrivateProfileStringA Lib "kernel32" (ByVal Section$, ByVal Key$, ByVal szValue$, ByVal lpFileName$) As Long
Private Declare Function GetPrivateProfileStringA Lib "kernel32" (ByVal Senction$, ByVal Key As Any, ByVal lpDefault$, _
                          ByVal szValue$, ByVal nSize As Long, ByVal szFileName$) As Long

Private m_Path$