09-05-18, 02:38 AM
هذا الكود قد يفى بالغرض
و لكن لم أفهم ما هى المجموعة الأولى و الثانية
و لم أجد سطر به الاسم name
كذلك هناك سطرين بدايتهما CC
اذا كان الكود لا يعطى المطلوب
يرجى ارفاق الملف او جزء منه مع توضيح المطلوب
كود :
Dim Lines As String() = IO.File.ReadAllLines("sample.txt")
Dim dt As New DataTable
dt.Columns.Add(New DataColumn("txt_name", GetType(String)))
dt.Columns.Add(New DataColumn("txt_date", GetType(String)))
dt.Columns.Add(New DataColumn("CC", GetType(String)))
dt.Columns.Add(New DataColumn("TC", GetType(String)))
dt.Columns.Add(New DataColumn("CCS", GetType(String)))
dt.Columns.Add(New DataColumn("TC_ANSWER", GetType(String)))
dt.Columns.Add(New DataColumn("CCU", GetType(String)))
Dim txt_name, txt_date, CC, TC, CCS, TC_ANSWER, CCU As String
txt_name = "" : txt_date = "" : CC = "" : TC = "" : CCS = "" : TC_ANSWER = "" : CCU = ""
For i As Integer = 0 To Lines.Length - 1
Dim line As String = Lines(i).ToString.Trim
If line.StartsWith("TRAFFIC MEASUREMENT") Then
txt_date = line.Split(":")(1).Replace("TRUNK GROUP", "").Trim
ElseIf line.StartsWith("CC:") Then
CC = line.Split(":")(1).Replace("I", "").Trim
CC = line.Split(":")(1).Replace("O", "").Trim
ElseIf line.StartsWith("CCS") Then
CCS = line.Split(":")(1).Replace("I", "").Trim
ElseIf line.StartsWith("TC ANSWER") Then
TC_ANSWER = line.Split(":")(1).Replace("I (DERL)", "").Trim
ElseIf line.StartsWith("TC:") Then
TC = line.Split(":")(1).Replace("I (DERL)", "").Trim
ElseIf line.StartsWith("CCU") Then
CCU = Strings.Right(line, 3).Trim
ElseIf line.StartsWith("END TEXT") Then
dt.Rows.Add(New Object() {txt_name, txt_date, CC, TC, CCS, TC_ANSWER, CCU})
txt_name = "" : txt_date = "" : CC = "" : TC = "" : CCS = "" : TC_ANSWER = "" : CCU = ""
End If
Next
DataGridView1.DataSource = dt
و لكن لم أفهم ما هى المجموعة الأولى و الثانية
و لم أجد سطر به الاسم name
كذلك هناك سطرين بدايتهما CC
اذا كان الكود لا يعطى المطلوب
يرجى ارفاق الملف او جزء منه مع توضيح المطلوب