contacts export and edit
This commit is contained in:
@@ -644,6 +644,8 @@ simil:
|
||||
If Form1.OpenFileDialog1.ShowDialog <> DialogResult.OK Then Exit Sub
|
||||
|
||||
Dim txt = Split(My.Computer.FileSystem.ReadAllText(Form1.OpenFileDialog1.FileName), vbCrLf)
|
||||
txt = txt.Where(Function(s) Not s.Contains("\\")).ToArray()
|
||||
|
||||
ReDim Preserve txt(DataGridView1.Rows.Count - 1)
|
||||
|
||||
For Each row In DataGridView1.Rows
|
||||
|
||||
Reference in New Issue
Block a user