16-05-20, 04:26 PM
(16-05-20, 04:07 AM)اسامه الهرماوي كتب : وعليكم السلام...
-صراحة لم أتعامل مع هذه الأداة من قبل فقمت بعملها بال DataGridView
تفضل:
#ورمضان_كريم.
السلام عليكم استاذ اسامة
اشكرك جزيلا
للاسف تقريبا انت مفهمتش الي انا اقصده او انا معرفتش اشرح المطلوب كويس
عموما دا كود انا عامل فيه المطلوب بس بشروط if
وانا كنت ابحث عن طريقة اخري لافضل اداء برمجي ايضا بالابتعاد عن حلقات for
PHP كود :
For Each text As String In File.ReadAllLines(openFileDialog.FileName, Encoding.UTF8)
Dim array2 As String() = text.Split(New Char() {","c})
Dim flag2 As Boolean = array2.Length = 0
If Not flag2 Then
Dim flag3 As Boolean = String.IsNullOrWhiteSpace(array2(0))
If Not flag3 Then
If array2.Length = 3 Then
If LV.Columns.Count = 3 Then
LV.Items.Add(New ListViewItem({array2(0), array2(1), array2(2)}))
Else
LV.Items.Add(New ListViewItem({array2(0), array2(1)}))
End If
ElseIf array2.Length = 2 Then
If LV.Columns.Count = 2 Then
LV.Items.Add(New ListViewItem({array2(0), array2(1)}))
Else
LV.Items.Add(New ListViewItem({array2(0)}))
End If
Else
If LV.Columns.Count = 3 Then
LV.Items.Add(New ListViewItem({array2(0), "NONAME", ""}))
End If
If LV.Columns.Count = 2 Then
LV.Items.Add(New ListViewItem({array2(0), "NONAME"}))
End If
If LV.Columns.Count = 1 Then
LV.Items.Add(New ListViewItem({array2(0)}))
End If
End If
End If
End If
Next

