[VB08] How To Like Ini

Public Function ReadLikeIni(ByVal Filex As String, ByVal Key As String) As String


        Dim read As New IO.StreamReader(Filex)
        Dim code As String = read.ReadToEnd
        read.Close()


        Dim Lines() As String = Split(code, vbNewLine)


        For i = 0 To UBound(Lines)


            Dim pos As Integer = Lines(i).IndexOf("=")


            If pos > 0 Then


                Dim inLine() As String = Split(Lines(i), "=")


                If inLine(0) = Key Then
                    Return inLine(1)
                End If




            End If


        Next i


        Return "Wert nicht gefunden."
    End Function

Public Sub WriteLikeIni(ByVal Filex As String, ByVal Keyname As String, ByVal value As String)


        Dim gefunden As Boolean = False
        Dim Append_s As Boolean = False


        Dim read As New IO.StreamReader(Filex)
        Dim code As String = read.ReadToEnd
        read.Close()




        Dim Lines() As String = Split(code, vbNewLine)


        For i = 0 To UBound(Lines)


            If i < 1 Then
                Append_s = False
            Else
                Append_s = True
            End If


            Dim pos As Integer = Lines(i).IndexOf("=")


            If pos > 0 Then


                Dim inLine() As String = Split(Lines(i), "=")


                If inLine(0) = Keyname Then


                    Lines(i) = Keyname & "=" & value
                    gefunden = True


                End If






            End If
            Dim write As New IO.StreamWriter(Filex, Append_s)
            write.WriteLine(Lines(i))
            write.Close()
        Next i


        If gefunden = False Then


            Dim writex As New IO.StreamWriter(Filex, True)
            writex.WriteLine(Keyname & "=" & value)
            writex.Close()


        End If






    End Sub