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

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

        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 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#6
ألف ألف شكر هذا بالظبط ما كنت أريده جازاك الله خيرا وجعله في ميزان حسناتكم أساتذة المنتدى

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 133 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 123 23-10-17, 03:22 AM
آخر رد: khodor1985
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,913 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 247 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 309 15-08-17, 02:11 PM
آخر رد: abozeyd
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 258 19-07-17, 03:24 PM
آخر رد: waelalmsry75
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 211 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 871 03-07-17, 05:04 AM
آخر رد: K39
  [سؤال] كيف احفظ صورة الطالب الى قاعدة البيانات عبداللطيف2017 6 410 25-06-17, 01:47 PM
آخر رد: silverlight
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 6,327 28-05-17, 05:30 PM
آخر رد: abiza

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


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