[اليوم السابع]

عندي تيكست بوكس به كلمه بسم الله 
اريد عند الضغط علي زر1 
يحفظ هذه الكلمه في ملف تكست جنب المشروع بدون ان يفتح السيف دايلوج 
واذا غيرت الكلمه الي الرحمن الرحيم 
يحفظ هذه الكلمه في سطر جديد في ملف التكست بدون ان يحذف بسم الله

[سعود]

PHP كود :

If TextBox1.Text.Trim <> "" Then
            My.Computer.FileSystem.WriteAllText(CurDir() & "\txt.txt", TextBox1.Text & vbNewLine, True)
            TextBox1.Select()
            TextBox1.Focus()
            TextBox1.Clear()
        End If 


ليت يكون هو المطلوب

[aljzazy]

كود :

Public Class Form1
   
   Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim fileName As String = IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "MyFile.txt")

       Dim data As New List(Of String)

       If IO.File.Exists(fileName) Then
           data = IO.File.ReadAllLines(fileName).ToList
           data.AddRange(TextBox1.Lines)
       Else
           data = TextBox1.Lines.ToList
       End If
       IO.File.WriteAllLines(fileName, data.ToArray)
   End Sub
End Class

[trakktour]

تفضل

كود :

       Dim testfile As String = Application.StartupPath & "\test.txt"

       Dim objWriter As New System.IO.StreamWriter(testfile, IO.FileMode.Append)
       objWriter.WriteLine(TextBox1.Text)
       objWriter.Close()

[ابراهيم ايبو]

السلام عليكم جميعا 
بارك الله بكم على الاجابات والردود
من باب المشاركة وتعميم التجارب والاكواد البكم هذه الطريقة مع Filestream
في البدء سيتم التحقق من ان مريع النص ليس فارغا
ثم يتم انشاء ملف نصي ان لم يكن موجودا وان كان موجودا يتم التحقق من امكانية الكتابة فلربما الملف مفتوج
بعدها تتم الكتابة مع اضافة سطر  ... بعدها يتم اغلاق الملف
قريبا انشاء الله مثال كامل لاستخدام ملف نصي كقاعد بيانات

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If TextBox1.Text.Trim() <> "" Then
           Dim strtxt As String = TextBox1.Text & vbNewLine ' النص المراد كتابته موجود في مربع النص وعند الكتابة نضيف سطر جديد
           Dim fs As New FileStream("Ibrahim.txt", FileMode.Append) ' يفتح ملف موجود وان لم يكن موجود ينشؤه ثم يفتحه
           If File.Exists("Ibrahim.txt") Then ' اذاكان الملف موجود
               If fs.CanWrite Then ' اذا كان بالامكان الكتابة
                   Dim byt As Byte() = New System.Text.UTF8Encoding().GetBytes(strtxt) ' انشائ مصفوفة من نوع بايت تقبل الانكودينغ  يو تي اف 8 ليستوعب حروف النص
                   fs.Write(byt, 0, byt.Length) ' الكتابة تحتاج الى مصفوفة من نوع بايت تم تعريفها لنمط نظام الاحرف والرقم صفر هو بداية المصفوفة ثم حتى نهاية المصفوفة
                   fs.Close()
               End If
           End If
           MessageBox.Show("تمت الكتابة بنجاح", "كتابة", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End If
   End Sub