Office中国论坛/Access中国论坛

标题: [原创分享]一个对ini文件进行访问和操作的类 [打印本页]

作者: 红尘如烟 时间: 2009-2-11 18:29
标题: [原创分享]一个对ini文件进行访问和操作的类
本帖最后由红尘如烟于 2009-2-11 18:36 编辑

'类名： clsIniRW
'用途：对ini文件进行访问和操作
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
'Section属性
'ini文件中的小节名，如果先指定了Section属性，在调用读取、写入、删除方法时可以忽略Section参数。String型，可读写
'--------------------------------------------------------------------------------------------------------------
'SectionNames属性
'ini文件中所有小节名连接构造成的字符串，通过指定的分隔符进行分隔（默认为回车符vbCr)。String型，只读
'参数：
'    FileName    当先指定了File属性时，可以忽略FileName参数。
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
'GetString方法
'读取ini文件中指定小节中指定键的值，返值为String型，不能超过255个字符，字符数超过255时只返回前254个字符
'参数：
'    Key       要返回值的键，必须
'    Section    键所在小节，指定了Section属性时为可选
'    ErrDefault  读取出错时返回的默认值，可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'GetStringL方法
'读取ini文件中指定小节中指定键的值，返值为String型，和GetString方法类似，不过最多可返回32767个字符，超过32767
'个字符时只返回前32766个字符
'参数：
'    Key       要返回值的键，必须
'    Section    键所在小节，指定了Section属性时为可选
'    ErrDefault  读取出错时返回的默认值，可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'GetLong方法
'读取ini文件中指定小节中指定键的值，返值为Long型，如果该键的值不不是一个合法的整数，则回返其中最前面的合法部分，
'如值为“abc23sfd”时，返回值为23
'参数：
'    Key       要返回值的键，必须
'    Section    键所在小节，指定了Section属性时为可选
'    ErrDefault  读取出错时返回的默认值，可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'GetBoolean方法
'读取ini文件中指定小节中指定键的值，返值为Boolean型，如果该键的值为文本“true”时(不区分大小写)，返回
'True，其它任意文件都将返回False；如果该键值
'为数值时，为-1时返回True，其它任何值都将返回False
'参数：
'    Key       要返回值的键，必须
'    Section    键所在小节，指定了Section属性时为可选
'    ErrDefault  读取出错时返回的默认值，可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'GetSection方法
'读取整个小节的内容，键与键之间按指定分隔符分隔，返回值为String型，最多只能返回32767个字符
'参数：
'    Section    键所在小节，指定了Section属性时为可选
'    Delimiter 指定的键与键之间的分隔符，可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'WriteKey方法
'写入一个键值
'参数：
'    Key       要写入的键的名称
'    Value    要写入的值
'    Section    键所在小节，指定了Section属性时为可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'WriteSection方法
'写入整个小节
'参数：
'    Key       要写入的键的名称
'    Value    要写入的值
'    Section    键所在小节，指定了Section属性时为可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'DelSection方法
'删除整个小节
'参数：
'    Section    要删除的小节名称，指定了Section属性时为可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
'DelKey方法
'删除指定的键
'参数：
'    Key       要删除的键名称，必须
'    Section    键所在小节，指定了Section属性时为可选
'    FileName ini文件名，包含路径，指定了File属性时为可选
'--------------------------------------------------------------------------------------------------------------
[attach]35006[/attach]

作者: 方漠 时间: 2009-2-11 18:55
谢谢!收藏了,以备不时之需. 呵呵

作者: huangqinyong 时间: 2009-2-11 19:06
谢谢分享！收藏了

作者: chaojianan 时间: 2009-2-11 20:56
谢谢分享，收藏了。慢慢研究。

作者: koutx 时间: 2009-2-11 22:18
谢谢分享

作者: Grant 时间: 2009-2-12 15:37
谢谢了,最近正好需要

作者: 岭南王子 时间: 2013-2-15 19:43
收藏大师作品！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)