Visual Basic

   Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click<br />
        Dim Response As DialogResult<br />
        Dim NumberLine As Integer<br />
        Try<br />
            FileOpen(1, "c:\test.txt", OpenMode.Append, OpenAccess.Write)<br />
            MyLine = (cboProcess.Text + txtWeight.Text + "   " + DateTime.Now.ToString)<br />
            PrintLine(1, MyLine)<br />
            FileClose(1)<br />
            MsgBox("File saved", MsgBoxStyle.Information)<br />
        Catch IOExcept As IO.FileNotFoundException<br />
            MessageBox.Show("file not found", "Default reset")<br />
        Catch IoExcept As IO.DirectoryNotFoundException<br />
            MessageBox.Show("directory not found ", "Default reset")<br />
        Finally<br />
            FileClose(1)<br />
        End Try<br />
    End Sub<br />
<br />
    Private Sub btnOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpen.Click<br />
        FileOpen(1, "c:\test.txt", OpenMode.Input, OpenAccess.Read)<br />
        txtInk.Text = InputString(1, CInt(LOF(1)))<br />
        FileClose(1)<br />
    End Sub

FileOpen(1, "c:\test.txt", OpenMode.Append)<br />
        For I = 1 To NumberLine<br />
            MyLine = cboProcess.Text + txtWeight.Text<br />
            PrintLine(1, MyLine)<br />
        Next I<br />
        FileClose(1)<br />

FileOpen(1, "c:\test.txt", OpenMode.Input)<br />
       Do Until EOF(1)<br />
           MyLine = LineInput(1)<br />
       Loop<br />
       FileClose(1)