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

السلام عليكم

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

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

هذا الكود

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(0, 1) 'remove the first comma

                swWriter.WriteLine(LineToWrite)

            Next
            swWriter.Flush()
            swWriter.Close() 

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

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

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

وشكرا

وعليكم السلام ورحمة الله وبركاته،

جرب إضافة خاصية 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.Append, FileAccess.Write) 

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) 

(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.Append, FileAccess.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

جربته ومشه معاي شكرا بارك الله فيج

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

dubai.eig

lmofallis

amgad525

dubai.eig