كتابة سطر جديد في تكست فايل

writeline

وعند البداية اذا الملف موجود سابقا افتحه على انك راح تعمل append

وعند البداية اذا الملف موجود سابقا افتحه على انك راح تعمل append

هذا هو الكود

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oRead As System.IO.StreamReader
        Dim FILE_NAME As String = "C:\" & filename & ".txt"

        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
            objWriter.WriteLine(TextBox2.Text)
            objWriter.Close()
            MsgBox("Text written to file")
        Else
            MsgBox("File Does Not Exist")
        End If

    End Sub

اريد كل ما اكتب في textbox2.text بأن يكتب في سطر جديد ، اي لا يكتب على ما كتب سابقا .

أو إذ فتح الملف يكتب في سطر جديد اي لا يكتب على اي كتابة موجودة مسبقا .

السلام عليكم

في نمط الملف File Mode يفترض أن تجعلها Append اي مواصلة الكتابة لا أكثر. شاهد المثال التالي.

 'Initilize file stream object for writing data.
        Dim Fs As FileStream = New FileStream(FilePath, _
               FileMode.Append, FileAccess.Write, FileShare.None)

        'If Input Text is not empty 
        If txtInput.Text <> "" Then

            'Initilize stream writer object.
            Dim sw As New StreamWriter(Fs)

            'Write what ever into input text box
            sw.Write(txtInput.Text)

            'Write new line 
            sw.WriteLine()

            'push data to text file
            sw.Flush()

            'Close streaming objects
            sw.Close()
            Fs.Close()

            'Otherwise notify user to enter a data
        Else
            MsgBox("Input TextBox is empty")
            Return
        End If

        'finally read the existing data from Data.txt file.
        ReadFile()

لقراءة النصوص أو القيم المتوفرة في الملف Data.txt يكون بهذا الشكل

 Private Sub ReadFile()

        'Initilize file stream object for reading data.
        Dim fs As New FileStream(FilePath, _
        FileMode.Open, FileAccess.Read, FileShare.None)

        'Initilize stream reader object.
        Dim sr As New StreamReader(fs)

        'dispaly existing data into txtOutput 
        txtOutput.Text = sr.ReadToEnd

        'Close streaming objects
        sr.Close()
        fs.Close()

    End Sub

شاهد المثال الرفق بالتوفيق إن شاء الله.

SteamingReadWrite.zip

شكرا لك اخي الكريم

المرفق لا يعمل معي ، لكونه مبرمج بVB.net 2005

واللي عندي 2003

اقتباس

شكرا لك اخي الكريم

المرفق لا يعمل معي ، لكونه مبرمج بVB.net 2005

واللي عندي 2003

قم بكتابة التطبيق بنفسك بارك الله فيك :rolleyes:

شكرا جزيلا لكم :)