الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نقل بيانات من ملف نصي على DatagridView

بدأه aftfm في 21 سبتمبر 2010 · 1 رد · 545 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اخواني لدي ملف نصي فيه بيانات على النحو التالي

nn1@123@01@01@2010@

واريدها ان تظهر في الداتا قريد

nn1 تعني الرمز

123 تعني الرقم

01 تعني اليوم

02 تعني الشهر

2010 تعني السنة

هذي العناوين التي في الداتا قريد

@ مكتوبة في الملف النصي

حسب البرنامج الذي تمت الكتابة به لكن لا نريدها تظهر في الداتا قريد

#2
aftfm كتب:

السلام عليكم ورحمة الله وبركاته

اخواني لدي ملف نصي فيه بيانات على النحو التالي

nn1@123@01@01@2010@

واريدها ان تظهر في الداتا قريد

nn1 تعني الرمز

123 تعني الرقم

01 تعني اليوم

02 تعني الشهر

2010 تعني السنة

هذي العناوين التي في الداتا قريد

@ مكتوبة في الملف النصي

حسب البرنامج الذي تمت الكتابة به لكن لا نريدها تظهر في الداتا قريد

أخي العزيز

في هذه الحاله يجب عمل ما يلي

1- يجب ان تقرأ النص كامل وتضعه بمتغير نصي

STR = FILE.READALLTEXT(FILENAME)

2- يجب ان تحوله الي مصفوفه حيث يجب كل سطر عن متغير في هذه المصفوفه

DIM ARR () AS STRING = STR.SPLIT(VBNEWLINE) C

3- يجب أن تحول كل متغير من هذه المصفوفه الي مصفوفه أخرى تحوي كل منهم على متغير يعبر عن كل خليه

4 اضف كل متغيرات هذه المصفوفه الى DATATABLE يحوي عدد أعمده مساوي للخلايا المطلوبه

انظر المثال التالي

Dim Dt As New DataTable

Dt.Columns.Add("Symbol")

Dt.Columns.Add("No")

Dt.Columns.Add("Day")

Dt.Columns.Add("Month")

Dt.Columns.Add("Year")

'nn1@123@01@01@2010@

Dim FileLoc As String = "C:\1.txt"

Dim FileStr As String = File.ReadAllText(FileLoc)

Dim Lines() As String = FileStr.Split(vbNewLine)

If Lines.Length > 0 Then

For i As Integer = 0 To Lines.Length - 1

Dim tmpArr() As String = Lines(i).Split("@")

If tmpArr.Length >= 4 Then

Dim dr As DataRow = Dt.NewRow

dr(0) = tmpArr(0)

dr(1) = tmpArr(1)

dr(2) = tmpArr(2)

dr(3) = tmpArr(3)

dr(4) = tmpArr(4)

Dt.Rows.Add(dr)

End If

Next

End If

DataGridView1.DataSource = Dt

مواضيع مشابهة