INI文件读取模块(VB6源代码)（INI file read module (VB6 source code)）.docVIP

INI文件读取模块(VB6源代码)（INI file read module (VB6 source code)） 版本1类 开始 多用途= 1的真实 “notpersistable持久= 0 databindingbehavior = 0 vbnone DataSourceBehavior = 0 vbnone mtstransactionmode = 0 notanmtsobject 结束 属性vb_name =“operateinifiles” 属性vb_globalnamespace = false 属性vb_creatable =真 属性vb_predeclaredid = false 属性vb_exposed =真 “--------cinifile.cls代码---------------- “这里定义了一个CIniFile类 “此代码来自于互联网 “所生成的DLL有几罗星人（饶尚智）封装 明确选择 私人特里尼作为字符串 / / Windows API函数声明 私人声明函数WritePrivateProfileString _ 库”功能的“别名”writeprivateprofilestringa”_ （ByVal lpapplicationname为字符串，_ 一个lpkeyname任何，_ 一个lpstring任何，_ 一个lpfilename长字符串） “在初始化文件指定小节内设置一个字串WritePrivateProfileString “lpapplicationname弦，要在其中写入新字串的小节名称。这个字串不区分大小写 “lpkeyname ------任何，要设置的项名或条目名。这个字串不区分大小写用：可删除这个小节的所有设置项。 “lpstring -------字符串，指定为这个项写入的字串值用：表示删除这个项现有的字串。 “lpfilename -----字符串，初始化文件的名字。如果没有指定完整路径名，则Windows会在Windows目录查找文件如果文件没有找到，则函数会创建它。 私人声明函数提供的GetPrivateProfileString _ 库”功能的“别名”getprivateprofilestringa”_ （ByVal lpapplicationname为字符串，_ 一个lpkeyname任何，_ 一个lpdefault为字符串，_ 一个lpreturnedstring为字符串，_ ByVal nsize一样长，_ 一个lpfilename长字符串） “提供的GetPrivateProfileString为初始化文件中指定的条目取得字串 “lpapplicationname弦，欲在其中查找条目的小节名称。这个字串不区分大小写。如设为：，就在lpreturnedstring缓冲区内装载这个INI文件所有小节的列表 “lpkeyname ------字符串，欲获取的项名或条目名。这个字串不区分大小写。如设为：，就在lpreturnedstring缓冲区内装载指定小节所有项的列表 “lpdefault ------字符串，指定的条目没有找到时返回的默认值可设为空（“”）。 “lpreturnedstring弦，指定一个字串缓冲区，长度至少为nsize “nsize ----------长，指定装载到lpreturnedstring缓冲区的最大字符数量 “lpfilename -----字符串，初始化文件的名字。如没有指定一个完整路径名，Windows就在Windows目录中查找文件 市民Sub CreateInIFile（文件名为字符串） “/生成一个新的INI文件 打开应用程序的路径和“\”和名为“对文件进行输出#输出1，1是文件号# close # 1 输出前先关闭文件 end sub public sub writeinifile (strsection as string, strkey as string, strvalue as string) / / 写ini文件 writeprivateprofilestring strsection, strkey, strvalue, strini end sub public function getinifile (strsection as string, strkey as string, optional vdefault as string) as string dim strtmp as string * 100 lngret as string dim dim temp as string strtmp = string $(100 ) 100个空格 lngret = getprivateprofilestr