[djelloul]

السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام 
رجاءا لو سمحتم
عندي ملف تكست به قائمة من البيانات أريد تحميلها على قريد فيو
قمت بكاتبة هذا الكود لكن البيانات طلعت كلها في عمود واجد وبقية الأعمدة طلعت فارغة 
الملف هو :

  medic.rar (الحجم : 184.84 ك ب / التحميلات : 64)
الكود  الذي كتبته هو :

        Dim fichierALire As String = Application.StartupPath & "\" & "Forme.txt"

        Dim champs() As String

        Dim sr As New StreamReader(fichierALire)

        While Not sr.EndOfStream
            Dim ligne As String = sr.ReadLine()
            champs = ligne.Split(CChar(vbTab))
            dgv.Rows.Add(champs)

        End While

ألف شكر لكم مسبقا

[abdualla]

أخي

لاحظت أنك اعتمدت على vbTab ولكن الملف ليس مقسم على أساسه بل مقسم على أساس فهرس الحرف في السطر

حدد طول كل عمود، مثلا الأول 55حرفاً والثاني 50 وهكذا

هذه تجربة قد تكون الحل

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim dt As New DataTable
        dt.Columns.Add("Column1")
        dt.Columns.Add("Column2")
        dt.Columns.Add("Column3")
        dt.Columns.Add("Column4")
        dt.Columns.Add("Column5")
        dt.Columns.Add("Column6")
        dt.Columns.Add("Column7")
        dt.Columns.Add("Column8")
        dt.Columns.Add("Column9")
        dt.Columns.Add("Column10")
        dt.Columns.Add("Column11")
        dt.Columns.Add("Column12")
        dt.Columns.Add("Column13")
        dt.Columns.Add("Column14")

        For Each txt As String In IO.File.ReadLines("medic.txt")
            Dim r As DataRow = dt.NewRow
            r.Item("Column1") = txt.Substring(0, 55).Trim
            r.Item("Column2") = txt.Substring(55, 50).Trim
            r.Item("Column3") = txt.Substring(105, 30).Trim
            r.Item("Column4") = txt.Substring(135, 20).Trim
            r.Item("Column5") = txt.Substring(155, 21).Trim
            r.Item("Column6") = txt.Substring(176, 9).Trim
            r.Item("Column7") = txt.Substring(185, 8).Trim
            r.Item("Column8") = txt.Substring(193, 19).Trim
            r.Item("Column9") = txt.Substring(215, 3).Trim
            r.Item("Column10") = txt.Substring(218, 4).Trim
            r.Item("Column11") = txt.Substring(223, 20).Trim
            r.Item("Column12") = txt.Substring(243, 21).Trim
            r.Item("Column13") = txt.Substring(264, 2).Trim
            r.Item("Column14") = txt.Substring(266).Trim
            dt.Rows.Add(r)
        Next

        Me.DataGridView1.DataSource = dt

    End Sub 


---

ولكن عليك مراجعة كل عمود حيث له رقمان (باستثناء الأخير لأنه يأخذ المتبقي كله)
الرقم الأول بداية العمود
الرقم الثاني طول العمود من الأحرف (حتى لو كان مسافات فارغة)

[سعود]

لو تجيب صورة لمثال تود تقليدها ...ممكن اقدر اساعدك.
عندي فكرة اخرى بصياغة الملف النصي واستدعاءها لشبكة البيانات.

[djelloul]

ألف شكر والله ما أدري كيف أشكرك

[abdualla]

الحمد لله

الأول طلع يبدأ من صفر وليس 1 وطوله 55 
ولكن لازمن تتأكد من كل الأعمدة

---

وهذا مشروع للي يحب يجرب في المرفقات

[djelloul]

ألف ألف شكر هذا بالظبط ما كنت أريده جازاك الله خيرا وجعله في ميزان حسناتكم أساتذة المنتدى

---

فقط شيء آخر لو سمحتم
لو حبيت أعمل تحديث في قاعدة البيانات لهذه القوائم أي إذا كان السطر موجوديقوم بعملية التحديث وإن لم يكن موجود يقوم بعملية الإنسرت
وحتى لا أثقل عليكم عملية التحديث والإنسرت أعرف كيف أقوم بها لكن كيف أتحقق من وجود السطر من عدمه فهذا ما يؤرقني
ألف شكر لكم مرة أخرى

[abdualla]

أخي

أعطيني معلومات بداية وطول كل عمود بالنص الخاص بملف txt
ممكن تعمل تصحيح للكود السابق وتضعه هنا

هل تقصد التحديث بيانات ملف txt
إذا كان كذلك إن شاء الله أقوم بعمل لك كود التحديث

[djelloul]

بداية وطول كل عمود تم بحمد الله وتوضيحك الذي قمتم برفعه في المثال فألف شكر
أقصد بالتحديث داخل قاعدة البيانات بناءا على ملف txt