[farfour]

السلام عليكم 
ممكن مساعدة في حفظ ما في textbox في ملف txt بشرط عدم حذف النص السابق
يعني يعود لسطر و يضيف ما في textbox الي txt

[trakktour]

و عليكم السلام 
تفضل

كود :

       Using writer As New StreamWriter("farfour.txt", True)
           writer.WriteLine(textbox1.Text)

[farfour]

(21-11-18, 05:48 PM)trakktour كتب : و عليكم السلام 
تفضل

كود :

       Using writer As New StreamWriter("farfour.txt", True)
           writer.WriteLine(textbox1.Text)

شكرا حبيبي

[Rabeea Qbaha]

PHP كود :

Dim FILE_NAME As String = "C:\Users\Owner\Documents\test2.txt"

        Dim fileReader As String

        If System.IO.File.Exists(FILE_NAME) = True Then

            fileReader = My.Computer.FileSystem.ReadAllText(FILE_NAME)

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)

            objWriter.Write(fileReader + vbNewLine + TextBox1.Text)
            objWriter.Close()

        Else

            MessageBox.Show("File Does Not Exist")

        End If 


[حريف برمجة]

كود :

If Not System.IO.File.Exists(Application.StartupPath & "\test.txt") Then
           'اذا الملف غير موجود سيقوم بإنشاءه
           Dim fs As FileStream = File.Create(Application.StartupPath & "\test.txt")
           fs.Close()

       End If
       'الكتابة داخل الملف
       Dim txtfile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath & "\test.txt", True)
       txtfile.WriteLine(TextBox2.Text)
       txtfile.Close()

[farfour]

(21-11-18, 06:12 PM)Rabeea Qbaha كتب :

PHP كود :

Dim FILE_NAME As String = "C:\Users\Owner\Documents\test2.txt"

        Dim fileReader As String

        If System.IO.File.Exists(FILE_NAME) = True Then

            fileReader = My.Computer.FileSystem.ReadAllText(FILE_NAME)

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)

            objWriter.Write(fileReader + vbNewLine + TextBox1.Text)
            objWriter.Close()

        Else

            MessageBox.Show("File Does Not Exist")

        End If 


شكرا لك يا غالي

---

(21-11-18, 06:27 PM)حريف برمجة كتب :

كود :

If Not System.IO.File.Exists(Application.StartupPath & "\test.txt") Then
           'اذا الملف غير موجود سيقوم بإنشاءه
           Dim fs As FileStream = File.Create(Application.StartupPath & "\test.txt")
           fs.Close()

       End If
       'الكتابة داخل الملف
       Dim txtfile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath & "\test.txt", True)
       txtfile.WriteLine(TextBox2.Text)
       txtfile.Close()

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