< Public Function GetFromIniFile (Filename As String, Variable As String) As String (?)

Comments

    
    '--------------------------------------------------------------
    'Returns a value from a name=value INI file
    ' (headers not supported)
    '--------------------------------------------------------------

Public Function GetFromIniFile (Filename As String, Variable As String) As String

    Dim FileNum As String
    Dim OneLine As String
    Dim Value As String
    Dim Pos As Integer
    
    Variable = LCase(Variable)
    
    FileNum = FreeFile
    Open Filename For Input As FileNum
        Do
            Line Input #FileNum, OneLine
            
            If SearchFirst(LCase(OneLine), Variable & " =") Then
                Pos = InStr(OneLine, "=")
                GetFromIniFile = Trim(TrimFrom(OneLine, Pos, 0))
                Close FileNum
                Exit Function
                
            End If
            
        Loop Until EOF(FileNum)
End Function

Copying, Return to index