تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الكتابة في الملف
#1
السلام عليكم

يرجى المساعده في هذا الكود

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

هذا الكود

PHP كود :
         Dim swWriter As New System.IO.StreamWriter(My.Application.Info.DirectoryPath "\logs.bk")
 
      
            Dim LineToWrite 
As String String.Empty

 
           For _Row As Integer 0 To DataGridView4.Rows.Count 1
                LineToWrite 
String.Empty
 
               For _Column As Integer 0 To DataGridView4.Columns.Count 1
                    If DataGridView4
.Rows(_Row).Cells(_Column).Value IsNot Nothing Then
                        LineToWrite 
&= "," DataGridView4.Rows(_Row).Cells(_Column).Value.ToString
                    Else
                        LineToWrite 
&= ","
 
                   End If
 
               Next
                LineToWrite 
LineToWrite.Remove(01'remove the first comma

                swWriter.WriteLine(LineToWrite)

            Next
            swWriter.Flush()
            swWriter.Close() 


مشكلة الكود ان يمسح المعلومات القديمه في الملف وينزل معلومات جديده

انا اريد ان يكتب  في الملف بدون مسح الداتا القديمه  

اتمنى وصلت الفكره بارك الله فيكم 

وشكرا
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته،

جرب إضافة خاصية FileMode.Append إلى السطر الأول.

أي، هذا السطر:
PHP كود :
Dim swWriter As New System.IO.StreamWriter(My.Application.Info.DirectoryPath "\logs.bk"


يصبح هكذا:
PHP كود :
Dim swWriter As New System.IO.StreamWriter(My.Application.Info.DirectoryPath "\logs.bk"FileMode.AppendFileAccess.Write
الرد }}}
تم الشكر بواسطة: dubai.eig
#3
PHP كود :
Dim sb As New System.Text.StringBuilder
For Each r As DataGridViewRow In DataGridView4.Rows
    
If r.Index DataGridView4.Rows.Count 1 Then Exit For
    
Dim q From x As DataGridViewCell In r.Cells Select x.Value
    sb
.AppendLine(String.Join(","q))
Next
IO
.File.AppendAllText(My.Application.Info.DirectoryPath "\logs.bk"sb.ToString
الرد }}}
تم الشكر بواسطة: dubai.eig , dubai.eig
#4
(29-11-16, 03:53 PM)lmofallis كتب : وعليكم السلام ورحمة الله وبركاته،

جرب إضافة خاصية FileMode.Append إلى السطر الأول.

أي، هذا السطر:
PHP كود :
Dim swWriter As New System.IO.StreamWriter(My.Application.Info.DirectoryPath "\logs.bk"


يصبح هكذا:
PHP كود :
Dim swWriter As New System.IO.StreamWriter(My.Application.Info.DirectoryPath "\logs.bk"FileMode.AppendFileAccess.Write




بارك الله فيك شكرا نفع معاي  شكرا






(29-11-16, 08:18 PM)amgad525 كتب :
PHP كود :
Dim sb As New System.Text.StringBuilder
For Each r As DataGridViewRow In DataGridView4.Rows
    If r
.Index DataGridView4.Rows.Count 1 Then Exit For
 
   Dim q From x As DataGridViewCell In r.Cells Select x.Value
    sb
.AppendLine(String.Join(","q))
Next
IO
.File.AppendAllText(My.Application.Info.DirectoryPath "\logs.bk"sb.ToString



شكرا استاذ amgad525

جربته ومشه معاي شكرا بارك الله فيج
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  مشكله عند طباعه الباركود الكتابة تظهر بهتة في خيال والنقاط قريبه من بعض غيرت الفونت ahmedhhh2 11 786 30-09-23, 08:31 AM
آخر رد: atefkhalf2004
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 455 20-09-23, 01:42 PM
آخر رد: salam82
  كيف اقوم بقفل الملف الذي يستخدمه احد المستخدمين ابو محمد محمد محمد 8 644 21-04-23, 05:58 PM
آخر رد: ابو محمد محمد محمد
  الكتابة داخل ملف نصى ابو روضة 6 898 07-04-23, 11:43 AM
آخر رد: kebboud
  تغيير مؤشر الكتابة hamoeljinn 4 590 06-04-23, 12:55 PM
آخر رد: أبو خالد الشكري
  حذف امتداد الملف aftfm 6 654 05-03-23, 05:41 PM
آخر رد: asmarsou
  مساعدة في حالة مشكلة تعديل الملف في قاعدة البيانات عبدالكريم برشدان 10 809 25-12-22, 08:32 PM
آخر رد: أبو خالد الشكري
  [VB.NET] ادخال الملف الى البرنامج Ibraheemalhamdo94 0 271 22-12-22, 03:31 AM
آخر رد: Ibraheemalhamdo94

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


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