Kód: Vybrať všetko

Function ChangeVal(search As String) As String

    Dim iFNum As Integer
    Dim iniPath As String
    iniPath = ThisWorkbook.Path & "\settings.ini"
    Dim sBuf As String
    iFNum = FreeFile()
    If Dir(iniPath) <> "" Then  'ak existuje cesta k suboru pokracuj
        Open iniPath For Input As iFNum
    
        Do While Not EOF(iFNum)  'pokracuj po koniec suboru
        Line Input #iFNum, sBuf 'nacitaj riadok
            If Left(sBuf, Len(search)) = search Then  'ak sa lava strana dlzkou a obsahom zhoduje s hladanou tak pokracuj
                ChangeVal = Right(sBuf, (Len(sBuf) - (Len(search) + 3))) ' odpocita hladanu zlozku medzeru rovna sa medzera a nahradi nou string
            End If
        Loop
        Close iFNum
    Else
    End If
    
    If ChangeVal = "" Then
        ChangeVal = "unknown"
    End If
End Function

Kód: Vybrať všetko

Private Sub ListIniSectionLines()

    Dim pole As Array
    Dim strTempArray As Array
    
    Dim S As String: S = ReadIniSection(ThisWorkbook.Path & "\settings.ini")
    Dim vLines As Variant: vLines = Split(S, Chr$(0))
    Dim vLine As Variant

    For Each vLine In vLines
       If Mid(vLine, 1, 1) <> "[" Then 
           strTempArray = Split(vLine, "=")
           pole(strTempArray(0)) = strTempArray(1)
       End If
    Next vLine
End Sub

Kód: Vybrať všetko

Type iniNode
   Text As String
   Value As String
End Type
Public pole() As iniNode

Kód: Vybrať všetko

pole(strTempArray(0)) = strTempArray(1)

Kód: Vybrať všetko

pole(i).Text = strTempArray(0)
pole(i).Value = strTempArray(1)