例如

[www]
www.jianyiit.com
www.autoitx.com
[ip]
127.0.0.1
192.168.1.1

#include <array.au3>
by:绿色风 qq:79664738  

;读取 非标文件中的  字段名
Func _oIniReadName($_md)
        Local $str = FileRead($_md);读取文件
        If @extended < 2 Then Return -2 ;读取文件失败
        Local $arr = _StringBetween($str, '[', ']');取两字符 串间的内容
        Return $arr ;返回一个基于0开始计算的一维数组, $array[0] 包含第一个找到的内容.
EndFunc   ;==>_oIniReadName

;读取 非标文件中的 所有的键
Func _oIniReadALL($_md, $_name)
        Local $str = FileRead($_md);读取文件
        If @extended < 2 Then Return -2 ;读取文件失败
        Local $arr = _StringBetween($str & '[', '[' & $_name & ']', '[') ;取两字符 串间的内容
        If $arr = 0 Then Return 0;返回0 获取 失败
        $str = StringRegExpReplace($arr[0], '^\v+|\v+(?=\r\n\V|$)', '') ;清掉空行
        Return StringSplit($str, @CRLF, 1) ;返回 一个所有键的数组
EndFunc   ;==>_oIniReadALL

;删除 非标文件中的 字段名
Func _oIniDelName($_md, $_name)
        Local $str = FileRead($_md);读取文件
        If @extended < 2 Then Return -2 ;读取文件失败
        Local $arr = _StringBetween($str & '[', '[' & $_name & ']', '[') ;取两字符 串间的内容
        If $arr = 0 Then Return 0;返回0 没有这个字段 名
        $str = StringReplace($str, '[' & $_name & ']' & $arr[0], "")
        Local $file = FileOpen($_md, 2)
        FileWrite($file, $str)
        FileClose($file)
        Return ;
EndFunc   ;==>_oIniDelName

;删除或添加 非标文件中的 键
;参数 $_md 文件
;        $_name 字段名
;   $_var 键名
;  $add = 0 添加 键名， = 1 删除键名
Func _oIniDelNameVer($_md, $_name, $_var, $add = 0) 
        Local $str = FileRead($_md);读取文件
        If @extended < 2 Then Return -2 ;读取文件失败
        Local $arr = _StringBetween($str & '[', '[' & $_name & ']', '[') ;取两字符 串间的内容
        If $arr = 0 Then Return 0;返回0 没有这个字段 名
        If $add = 0 Then ;删除
                Local $strl = StringReplace($arr[0] & @CRLF, @CRLF & $_var & @CRLF, @CRLF)
                If @extended < 1 Then Return -1;返回 -1 没有这个键
        Else ;$add = 其它值  添加
                Local $strl = StringReplace($arr[0] & @CRLF, @CRLF & $_var & @CRLF, @CRLF)
                If @extended > 0 Then Return -11;返回 -11 已有这个键
                $strl = $arr[0]&@crlf&$_var&@crlf
        EndIf
        $str = StringReplace($str, '[' & $_name & ']' & $arr[0], '[' & $_name & ']' & $strl)
        Local $file = FileOpen($_md, 2)
        FileWrite($file, StringRegExpReplace($str, '^\v+|\v+(?=\r\n\V|$)', ''));清掉空行
        FileClose($file)
        Return 1;成功返回1
EndFunc   ;==>_oIniDelNameVer

本文固定链接: http://jianyiit.com/post-377.html