Microsoft Visual Basic .NET

Hejsa

Har du kigget på System.IO.StreamWriter klassen? Den er perfekt til det formål.

Mvh. Thomas Lykke Petersen

Hej

Du har selvfølgelig oprettet "c:\\test.txt" først før du åbner den

Const OPENFILENAME As String = "c:\\test.txt"
Const SAVEFILENAME As String = "c:\\test2.text"

Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click

Dim sr As New StreamReader(OPENFILENAME)
Dim line As String
Dim contents As String
Dim finished As Boolean = False

While Not finished

line = sr.ReadLine()
If line Is Nothing Then
finished = True
Else
contents += line
End If

End While

txtValue.Text = contents

sr.Close()

End Sub


Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

Dim sw As New StreamWriter(SAVEFILENAME)

sw.WriteLine(txtValue.Text)

sw.Close()

End Sub


mvh Jens

Tak det har hjulpet mig en hel del, men jeg kan stadigt
ikke få det til at passe sammen

her giver jeg en nøjagtig kopi af hvordan jeg har forsøgt at sætte det op!!!

Const OPENFILENAME As String = "c:\\test.txt"
Const SAVEFILENAME As String = "c:\\test2.text"
Dim txtValue As String

/...
.../

Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click
cbocontacts.Items.Add(txtNAME2.Text)
lstlist.Items.Add((txtNAME2.Text) & (",") & (txtPPHONE2.Text) & (",") & (txtSPHONE2.Text))

txtNAME2.Clear()
txtPPHONE2.Clear()
txtSPHONE2.Clear()
'---------------------------------------------------------

Dim sr As New System.IO.StreamReader(OPENFILENAME)
Dim line As String
Dim contents As String
Dim finished As Boolean = False
contents = txtNAME1.Text
While Not finished

line = sr.ReadLine()
If line Is Nothing Then
finished = True
Else
contents += line
End If

End While

txtValue = contents

sr.Close()

End Sub


Private Sub cmdEXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNAME1.Click

Dim sw As New System.IO.StreamWriter(SAVEFILENAME)

sw.WriteLine(txtValue)

sw.Close()
End
End Sub

hvis du kan hitte ud af det ville jeg blive meget glad!

Hej igen

1)

Dim sr As New System.IO.StreamReader(OPENFILENAME)
Dim line As String
Dim contents As String
Dim finished As Boolean = False
contents = txtNAME1.Text
While Not finished

contents = txtNAME1.Text -------------------?

Når IO.StreamReader(OPENFILENAME) læser fra "txt.filen" kan den ikke
indeholde en strengværdi fra en textbox

Dvs. "contents += line " når der læses en linie fra "txt.filen" indtil loopen stopper

While Not finished

line = sr.ReadLine()
If line Is Nothing Then
finished = True
Else
contents += line
End If

End While
txtValue.Text = contents

(txtNAME1.Text= contents )

sr.Close()

2)
Jeg går ud fra at cmdEXIT er knappens navn og så skal

Handles txtNAME1.Click istedet være Handles cmdEXIT.Click

Private Sub cmdEXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNAME1.Click ???
---------------------------------------------------------
Dim sw As New StreamWriter(SAVEFILENAME)

sw.WriteLine(txtValue.Text)

sw.Close()

End Sub

Jens




[Redigeret d. 27/05-04 05:08:59 af Nauticom]