[SaedAmer]

السلام عليكم

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

عاوز احدد على سطر من البيانات المضافةواقدر اعدل عليه و اقدر احذفه

[SaedAmer]

up
===================

[سعود]

وعليكم السلام ورحمة الله وبركاته
كيف هو تركيبة محتوى الملف النصي؟

[SaedAmer]

(15-03-20, 08:45 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
كيف هو تركيبة محتوى الملف النصي؟

ده لعرض بيانات الملف في الداتا جريد فيو

كود :

Try


           DataGridView2.Rows.Clear()
           For Each line As String In System.IO.File.ReadAllLines("D:\Windows\DataBase\xxx.txt")
               DataGridView2.Rows.Add(line.Split("|"))
               Dim ssa As Integer = DataGridView2.FirstDisplayedScrollingRowIndex = DataGridView2.RowCount - 1
           Next
           Label3.Text = DataGridView2.Rows.Count
       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try

[SaedAmer]

up
===================

[asemshahen5]

كيف يمكن جلب أو تعبئة datagridview من ملف نصي

[SaedAmer]

(16-03-20, 11:03 PM)asemshahen5 كتب : كيف يمكن جلب أو تعبئة datagridview من ملف نصي

مش عاوز تعبئة انا عاوز اعدل سطر معين و احذف سطر معين من ملف نصي

[سعود]

معذرة اخي الكريم  احتاج مدة لكي افهم كيف اتعامل مع ملف نصي من دون  استخدام HtmlAgilityPack
المثال التالي (ان احببت ) فيه طريقة للتعامل مع ملف نصي باستخدام الملف المذكور.
[مشروع] إستخدام ملف HtmlAgilityPack للتعامل مع النصوص[لا جديد بالموضوع ولكن استعرض عضلاتي قب]



أعتذر مرة اخرى ان تسببت مشاركتي لك باي ازعاج.

[SaedAmer]

(17-03-20, 12:29 AM)سعود كتب : معذرة اخي الكريم  احتاج مدة لكي افهم كيف اتعامل مع ملف نصي من دون  استخدام HtmlAgilityPack
المثال التالي (ان احببت ) فيه طريقة للتعامل مع ملف نصي باستخدام الملف المذكور.
[مشروع] إستخدام ملف HtmlAgilityPack للتعامل مع النصوص[لا جديد بالموضوع ولكن استعرض عضلاتي قب]



أعتذر مرة اخرى ان تسببت مشاركتي لك باي ازعاج.

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

فكريتي ان ملف التكست عبارة عن كدا



و بيتعرض كدا في البرنامج



بالكود ده

كود :

Try


          DataGridView2.Rows.Clear()
          For Each line As String In System.IO.File.ReadAllLines("D:\Windows\DataBase\xxx.txt")
              DataGridView2.Rows.Add(line.Split("|"))
              Dim ssa As Integer = DataGridView2.FirstDisplayedScrollingRowIndex = DataGridView2.RowCount - 1
          Next
          Label3.Text = DataGridView2.Rows.Count
      Catch ex As Exception
          MsgBox(ex.ToString)
      End Try

[سعود]

لدي برنامج kaspersky  وقد منع تحميل الصور  لعلة في الموقع فلو احببت الرفع مرة اخرى في موقع https://postimages.org/

و اعتذر لاي ازعاج

---

محاولتي وهي بإجرائين:
تحميل كامل الملف وحذف الملف واستبداله بالمحتوى الجديد سواء تم التحديث ام لا.

PHP كود :

Public Class Form1
    Dim fn As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.ReadAllText(fn, System.Text.Encoding.UTF8).Trim = "" Then Exit Sub
        d.Rows.Clear()
        For Each h As String In My.Computer.FileSystem.ReadAllText(fn, System.Text.Encoding.UTF8).Split(vbNewLine)
            If h.Trim = "" Then Exit For
            d.Rows.Add(h.Split("|")(0), h.Split("|")(1), h.Split("|")(2))
        Next
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        IO.File.Delete(fn)
        For Each row As DataGridViewRow In d.Rows
            If row.IsNewRow Then Exit For
            My.Computer.FileSystem.WriteAllText(fn, row.Cells(0).Value & "|" & row.Cells(1).Value & "|" & row.Cells(2).Value & vbNewLine, True, System.Text.Encoding.UTF8)
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fn = CurDir() & "\t.txt"
        If IO.File.Exists(fn) = False Then
            IO.File.Create(fn).Close()
        End If
    End Sub
End Class