文件的读取

Question

下面的文件怎么读取
。
[环境]
接收超时设置=1[设备]
时钟基准=本地时钟
设备数=2设备0001=监测中心 哈长线   保留 800,0
设备0002=探测站   松南     上行 816,0,0,0[通道]
通道数=1
通道0001=786,800,1,816

Answer 1

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long'*****************************************************************
'** 函 数 名:ReadIniOne
'** 输    入:String   uFileName 包含包含字段的ini文件名,String   uSection 包含关键字的字段名称,字符数组 uKeyName 关键字名称,
'** 输    出:String
'** 功能描述:此函数根据条件读出*.ini文件中的某一个字段中的某一个关键字的值
'** 全局变量:
'** 调用模块:
'** 作    者:
'** 修 改 人:
'** 日    期:2002年9月
'** 版    本:V1.0
'****************************************************************
Public Function ReadIniOne(ByVal uFileName As String, ByVal uSectionName As String, ByVal uKeyName As String) As String
    '打开错误处理陷阱
    On Error GoTo ErrGoto
    '----------------------------------------------------
    '代码正文
    Dim StrLong  As Long, value As String * 255
    
    StrLong = GetPrivateProfileString(uSectionName, uKeyName, "Null", value, Len(value), uFileName)
    If StrLong > 0 Then
        ReadIniOne = Left(value, StrLong)                   '读取一行
    Else
        ReadIniOne = "Null"    '原来为 No value
    End If
    
    '----------------------------------------------------
    Exit Function
ErrGoto:
    '把错误信息保存在错误信息文件
    Open App.Path + "\YFSystem.ini" For Append As #1
        Print #1, Date, Time, "信息", Err.Description, "mdlBase|ReadIniOne", App.Title
    Close #1
    Exit FunctionEnd Function'*************************************************************************
'**函 数 名：WriteIniOne
'**输    入：String uFileName 包含包含字段的ini文件名,String   uSection 包含关键字的字段名称,String uKeyName 关键字名称,
'**          String uKeyValue 关键字的值
'**输    出：long
'**功能描述：此函数根据条件写入*.ini文件中的某个字段中的一个关键字的值
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：2001年1月
'**修 改 人：
'**日    期：2002年9月
'**版    本：V1.0
'*************************************************************************
Public Function WriteIniOne(ByVal uFileName As String, ByVal uSection As String, uKeyName As String, uKeyValue As String) As Long
    '打开错误处理陷阱
    On Error GoTo ErrGoto
    '----------------------------------------------------
    '代码正文
    WriteIniOne = WritePrivateProfileString(uSection, uKeyName, uKeyValue, uFileName)
   '----------------------------------------------------
    Exit Function
ErrGoto:
    '把错误信息保存在错误信息文件
    Open App.Path + "\YFSystem.ini" For Append As #1
      Print #1, Date, Time, "信息", Err.Description, "mdlBase|ReadIniOne", App.Title
    Close #1
    Exit Function
End Function

Answer 2

这个是mysql的my.ini里面的内容，不知道这个函数是怎么解析一行有2个等号的呢？[mysqld]
port=3306
#socket=MySQL
skip-locking
set-variable = key_buffer=16M
set-variable = max_allowed_packet=1M
set-variable = table_cache=64
set-variable = sort_buffer=512K
set-variable = net_buffer_length=8K
set-variable = myisam_sort_buffer_size=8M
server-id = 1