تخلص من الليست فيو
واضف داتاقريدفيو ثم ضع الكود التالي في الفورم 1
كود :
Public Class Form1
Dim db As String
Dim dt As New DataTable
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
OpenFileDialog2.FileName = Nothing
OpenFileDialog2.Title = "Open a Text File"
OpenFileDialog2.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
If OpenFileDialog2.ShowDialog = System.Windows.Forms.DialogResult.OK Then
TextBox2.Text = Me.OpenFileDialog2.FileName
db = IO.Path.GetDirectoryName(TextBox2.Text) & "\texte.txt"
gd()
Else
End If
End Sub
Public Function loadtxt() As DataTable
dt.Clear()
If dt.Columns.Count = 0 Then
dt.Columns.Add("tname")
dt.Columns.Add("tphone")
dt.Columns.Add("Date")
dt.Columns.Add("Time")
End If
Dim lines() As String = IO.File.ReadAllLines(db)
For Each line As String In lines
If line.Contains("+CMGL:") = True Then
Dim row() As String = {Split(line, ",")(1), Split(line, ",")(2), Split(line, ",")(4), Split(line, ",")(5)}
dt.Rows.Add(row)
Else
Dim row() As String = {line}
dt.Rows.Add(row)
End If
Next
Return dt
End Function
Private Sub gd(Optional pos As Integer = 0)
If loadtxt.Rows.Count > 0 Then
DataGridView1.DataSource = loadtxt()
If DataGridView1.Rows.Count > 0 Then
DataGridView1.Rows(pos).Selected = True
DataGridView1.Columns(0).Width = 120
End If
End If
End Sub
End Class