السلام عليكم ورحمة الله وبركاته
اخواني لدي ملف نصي فيه بيانات على النحو التالي
nn1@123@01@01@2010@
واريدها ان تظهر في الداتا قريد
nn1 تعني الرمز
123 تعني الرقم
01 تعني اليوم
02 تعني الشهر
2010 تعني السنة
هذي العناوين التي في الداتا قريد
@ مكتوبة في الملف النصي
حسب البرنامج الذي تمت الكتابة به لكن لا نريدها تظهر في الداتا قريد
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