modgetfile.bas

能分班系统采用Z线分班方法：即由系统自动抽签(也可由班主任抽签)

Attribute VB_Name = "ModGETFILE"
Function GetProfile(strFileName As String, strSection As String, strName As String) As String
    '这个函数是用来对INI文件进行读操作的
    '函数说明:
    'strFileName 是所要读取的文件名
    'strSection  是这个文件中的一个节点名
    'strName 是所要查找的字段名
    '返回值：
    '薛向华 1998/05/13
    strSectionTemp = ""
    strNameTemp = ""
    strreturn = ""
    On Error GoTo ErrSrchSection
    Open strFileName For Input As #1
    ' 下面这段程序是用来查找节点的
    Do While Not EOF(1)
        strCharA = Input(1, #1)
        If strCharA = "[" Then
            Do While Not EOF(1)
                strCharB = Input(1, #1)
                If strCharB = "]" Then Exit Do
                strSectionTemp = strSectionTemp & strCharB
            Loop
        End If
        If strSectionTemp = strSection Then
            strCharA = Input(2, #1)
            Exit Do
        Else
            strSectionTemp = ""
        End If
    Loop
    On Error GoTo ErrReadFile
aa:
    '下面这段程序是用来查找所要查找的字段的
    strNameTemp = ""
    Do While Not EOF(1)
        strCharA = Input(1, #1)
        If strCharA <> "=" Then
            strNameTemp = strNameTemp & strCharA  '得到名称
        Else
            Exit Do
        End If
    Loop
    If strNameTemp = strName Then
        Line Input #1, strreturn  '如果找到与它匹配的字段名，就返回得到的值
    Else
        Line Input #1, strreturn  '如果未找到与它匹配的字段名，就继续找
        GoTo aa
    End If
    Close #1
    GetProfile = strreturn
    Exit Function
ErrReadFile:
    Dim inrRet As Integer
    intret = MsgBox("校名未找到", vbAbortRetryIgnore, "错误信息")
    Select Case intret
        Case vbAbort
            GetProfile = ""
            Close #1
            Exit Function
        Case vbRetry
            Resume
        Case vbIgnore
            Resume Next
    End Select
ErrSrchSection:
    MsgBox "校名未找到,请重新设置校名", vbOKOnly
    GetProfile = ""
    Close #1
End Function
'三项和=平均分*0.3 + 优秀分*0.3 + 合格率*0.4