منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عندي تيكست بوكس به كلمه بسم الله
اريد عند الضغط علي زر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 

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

كود :

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

تفضل

كود :

       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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اليوم السابع

سعود

aljzazy

trakktour

ابراهيم ايبو