VB开发应用程序如何使用INI文件.pdfVIP

用 VB 开发应用程序如何使用 INI 文件 为了方便用户使用和使系统具有灵活性,大多数 Win-dows 应用程序将用户所做的选择以及 各种变化的系统信息记录在初始化(INI)文件中。因此,当系统的环境发生变化时,可以直接修 改 INI 文件,而无需修改程序。由此可见,INI 文件对系统功能是至关重要的。本文将介绍采用 VisualBasicforWindows(下称 VB)开发 Windows 应用程序时如何读写 INI 文件。 INI 文件是文本文件,由若干部分(section)组成,在每个带括号的标题下面,是若干个以单 个单词开头的关键词(keyword)和一个等号,每个关键词会控制应用程序某个功能的工作方 式,等号右边的值(value)指定关键词的操作方式。其一般形式如下: [Section1] KeyWord1=Valuel KeyWord2=Value2 …… [Section2] KeyWord1=Value1 KeyWord2=Value2 …… 其中,如果等号右边无任何内容(即 Value 为空),那就表示 Windows 应用程序已为该关 键词指定了缺省值,如果在整个文件中找不到某个关键词(或整个一部分),那同样表示为它们 指定了缺省值。各个部分所出现的顺序是无关紧要的,在每一个部分里,各个关键词的顺序同 样也无关紧要。 读写 INI 文件通常有两种方式:一是在 Windows 中用“记事本”(Notepad)对其进行编 辑,比较简单,无需赘述;二是由 Windows 应用程序读写 INI 文件,通常是应用程序运行时读取 INI 文件中的信息,退出应用程序时保存用户对运行环境的某些修改。 关键词的值的类型多为字符串或整数型,应分两种情况读写。为了使程序具有可维护性 和可移植性,最好把对 INI 文件的读写封装在一个模块(RWINI.BAS)中,在 RWI-NI.BAS 中构 造 GetIniS 和 GetIniN 函数以及 SetIniS 和 Se-tIniN 过程,在这些函数和过程中需要使用 WindowsAPI 的“GetPrivateprofileString”、“GetPrivateProfileInt”和 “WritePrivateProfileString”函数。 RWINI.BAS 模块的程序代码如下: 在 General-Declearation 部分中声明使用到的 WindowsAPI 函数: Public Declare Function GetprivateprofileString Lib “Kernel”(ByVal lpAppName As String,ByVal lpKeyName As _ String,ByVal lpDefault As String,ByVal lpRetrm-String As String,ByVal cbReturnString As Integer, _ ByVal Filename As String)As Integer Public Declare Function GetPrivatePfileInt Lib“Kernel”(ByVal lpApp e As String,ByVal lpKeyName As String, _ ByVal lpDefault As Integer,ByVal Filename As String)As Integer Public Declare Funciton WritePrivateprofileString Lib“Kernel”(ByVal lpApplicationName As String, _ ByVal lpKeyName As String,ByVal lpString As String,ByVal lplFileName As String)As Integer Public Function GetIniS(ByVal SectionName As String,ByValKeyWord As String,ByVal DefString As String)As String Dim ResultString As String*144,Temp