تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب البيانات من ملف txt
#1
السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام 
رجاءا لو سمحتم
عندي ملف تكست به قائمة من البيانات أريد تحميلها على قريد فيو
قمت بكاتبة هذا الكود لكن البيانات طلعت كلها في عمود واجد وبقية الأعمدة طلعت فارغة 
الملف هو :

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

        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

ألف شكر لكم مسبقا
الرد }}}
تم الشكر بواسطة:
#2
أخي

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

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

هذه تجربة قد تكون الحل
PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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(055).Trim
            r
.Item("Column2") = txt.Substring(5550).Trim
            r
.Item("Column3") = txt.Substring(10530).Trim
            r
.Item("Column4") = txt.Substring(13520).Trim
            r
.Item("Column5") = txt.Substring(15521).Trim
            r
.Item("Column6") = txt.Substring(1769).Trim
            r
.Item("Column7") = txt.Substring(1858).Trim
            r
.Item("Column8") = txt.Substring(19319).Trim
            r
.Item("Column9") = txt.Substring(2153).Trim
            r
.Item("Column10") = txt.Substring(2184).Trim
            r
.Item("Column11") = txt.Substring(22320).Trim
            r
.Item("Column12") = txt.Substring(24321).Trim
            r
.Item("Column13") = txt.Substring(2642).Trim
            r
.Item("Column14") = txt.Substring(266).Trim
            dt
.Rows.Add(r)
        Next

        Me
.DataGridView1.DataSource dt

    End Sub 


ولكن عليك مراجعة كل عمود حيث له رقمان (باستثناء الأخير لأنه يأخذ المتبقي كله)
الرقم الأول بداية العمود
الرقم الثاني طول العمود من الأحرف (حتى لو كان مسافات فارغة)
الرد }}}
تم الشكر بواسطة: سعود
#3
لو تجيب صورة لمثال تود تقليدها ...ممكن اقدر اساعدك.
عندي فكرة اخرى بصياغة الملف النصي واستدعاءها لشبكة البيانات.
الرد }}}
تم الشكر بواسطة: abdualla
#4
ألف شكر والله ما أدري كيف أشكرك
الرد }}}
تم الشكر بواسطة: abdualla
#5
الحمد لله

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

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


الملفات المرفقة
.rar   djelloul.rar (الحجم : 195.85 ك ب / التحميلات : 76)
الرد }}}
تم الشكر بواسطة:
#6
ألف ألف شكر هذا بالظبط ما كنت أريده جازاك الله خيرا وجعله في ميزان حسناتكم أساتذة المنتدى

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,582 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,128 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,266 17-11-21, 10:09 AM
آخر رد: سعود
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  الحفظ فى قاعدة البيانات اسلام الكبابى 10 2,353 06-09-21, 06:52 PM
آخر رد: اسلام الكبابى
  طريقة أضافة اكثر من سيرفر على نفس قاعدة البيانات alim54 0 1,140 20-06-21, 11:20 PM
آخر رد: alim54
  ملى الصفحة تلقائياً او ربط مستعرض الانترنت بقاعدة البيانات علي عدنان 2 3,848 02-02-21, 01:31 AM
آخر رد: فارس زيدان
  كود عدم تكرار البيانات بالداتا جريد فيو ِAbou Sama 4 7,574 04-12-20, 10:59 PM
آخر رد: Osama_NY
  عمل تحديث لعرض البيانات المضافة جديداً aldery 0 1,431 23-07-20, 02:36 AM
آخر رد: aldery
  [سؤال] نقل البيانات من جدول إلى أخر SQL Server 2008 semsemalex 7 14,786 19-04-20, 12:00 AM
آخر رد: essamprog2020

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


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