Breadcrumbs

[marve25]

ok, thanks

[Napster1488]

no prob...but next time please more info about what you wonna do and what u need to know

[mandai]

There is more than enough info given to say what is needed here.

Code: Select all

    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
        Dim lines As String() = File.ReadAllLines("file.ini")
        For i As Integer = 0 To lines.Length - 1
            If lines(i).StartsWith("Text1=") Then
                TextBox1.Text = lines(i).Remove(0, 6)

            ElseIf lines(i).StartsWith("Text2=") Then
                TextBox2.Text = lines(i).Remove(0, 6)
            End If
        Next
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim content As String = "Text1=" & TextBox1.Text & vbCrLf _
                              & "Text2=" & TextBox2.Text

        File.WriteAllText("file.ini", content)
    End Sub

[marve25]

Thanks mandai

[marve25]

Solved