contacts export and edit

This commit is contained in:
sShemet
2026-02-01 21:51:44 +05:00
parent e8f00fef4d
commit f3c41f2781
6 changed files with 37 additions and 12 deletions

View File

@@ -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