تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة الصورة في قاعدة البيانات iFanfan 0 85 01-03-18, 06:02 PM
آخر رد: iFanfan
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 117 27-01-18, 06:07 PM
آخر رد: أبو عمر
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 168 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 204 23-10-17, 03:22 AM
آخر رد: khodor1985
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 2,124 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 306 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 411 15-08-17, 02:11 PM
آخر رد: abozeyd
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 311 19-07-17, 03:24 PM
آخر رد: waelalmsry75
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 248 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 959 03-07-17, 05:04 AM
آخر رد: K39

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


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