تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بدائي واسف علي العنوان
#1
عندي تيكست بوكس به كلمه بسم الله 
اريد عند الضغط علي زر1 
يحفظ هذه الكلمه في ملف تكست جنب المشروع بدون ان يفتح السيف دايلوج 
واذا غيرت الكلمه الي الرحمن الرحيم 
يحفظ هذه الكلمه في سطر جديد في ملف التكست بدون ان يحذف بسم الله
الرد
تم الشكر بواسطة: سعود
#2
PHP كود :
If TextBox1.Text.Trim <> "" Then
            My
.Computer.FileSystem.WriteAllText(CurDir() & "\txt.txt"TextBox1.Text vbNewLineTrue)
 
           TextBox1.Select()
 
           TextBox1.Focus()
 
           TextBox1.Clear()
 
       End If 
ليت يكون هو المطلوب
الرد
#3
كود :
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


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 63.66 ك ب / التحميلات : 7)
الرد
تم الشكر بواسطة: ابراهيم ايبو , trakktour , asemshahen5
#4
تفضل

كود :
       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()
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#5
السلام عليكم جميعا 
بارك الله بكم على الاجابات والردود
من باب المشاركة وتعميم التجارب والاكواد البكم هذه الطريقة مع 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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: trakktour , trakktour , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم