Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As DataTable = New DataTable()
dt.Columns.Add("first_name")
dt.Columns.Add("last_name")
dt.Columns.Add("mobile_phone")
dt.Rows.Add("A", "a", 111)
dt.Rows.Add("B", "b", 222)
dt.Rows.Add("C", "c", 333)
dt.Rows.Add("D", "d", 444)
DataGridView1.DataSource = dt
End Sub
Private Sub ExportToVcard_Click(sender As Object, e As EventArgs) Handles ExportToVcard.Click
For i As Integer = 0 To DataGridView1.Rows.Count - 1 - 1
Dim vcf = New StringBuilder()
vcf.Append("BEGIN:VCARD" & System.Environment.NewLine)
vcf.Append("VERSION:3.0" & System.Environment.NewLine)
vcf.Append("TEL;type=HOME;type=VOICE;type=pref:" & DataGridView1("mobile_phone", i).Value & System.Environment.NewLine)
vcf.Append("FN:" & DataGridView1("first_name", i).Value & " " + DataGridView1("last_name", i).Value & System.Environment.NewLine)
vcf.Append("END:VCARD" & System.Environment.NewLine)
Dim filename = "D:\TestFile2\card" & i & ".vcf"
System.IO.File.WriteAllText(filename, vcf.ToString())
Next
End Sub
(18-01-21, 08:11 AM)moosa_alabri كتب : [ -> ]جرب هذا الكود يمكن ينفعكتمام ولكن هذا ينشأ كل جهه اتصال علي حدا انا اريد جميعا في جهه اتصال واحده
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As DataTable = New DataTable()
dt.Columns.Add("first_name")
dt.Columns.Add("last_name")
dt.Columns.Add("mobile_phone")
dt.Rows.Add("A", "a", 111)
dt.Rows.Add("B", "b", 222)
dt.Rows.Add("C", "c", 333)
dt.Rows.Add("D", "d", 444)
DataGridView1.DataSource = dt
End Sub
Private Sub ExportToVcard_Click(sender As Object, e As EventArgs) Handles ExportToVcard.Click
For i As Integer = 0 To DataGridView1.Rows.Count - 1 - 1
Dim vcf = New StringBuilder()
vcf.Append("BEGIN:VCARD" & System.Environment.NewLine)
vcf.Append("VERSION:3.0" & System.Environment.NewLine)
vcf.Append("TEL;type=HOME;type=VOICE;type=pref:" & DataGridView1("mobile_phone", i).Value & System.Environment.NewLine)
vcf.Append("FN:" & DataGridView1("first_name", i).Value & " " + DataGridView1("last_name", i).Value & System.Environment.NewLine)
vcf.Append("END:VCARD" & System.Environment.NewLine)
Dim filename = "D:\TestFile2\card" & i & ".vcf"
System.IO.File.WriteAllText(filename, vcf.ToString())
Next
End Sub
Private Sub ExportToVcard_Click(sender As Object, e As EventArgs) Handles ExportToVcard.Click
Dim vcf = New StringBuilder()
For i As Integer = 0 To DataGridView1.Rows.Count - 1 - 1
vcf.Append("BEGIN:VCARD" & System.Environment.NewLine)
vcf.Append("VERSION:3.0" & System.Environment.NewLine)
vcf.Append("TEL;type=HOME;type=VOICE;type=pref:" &
DataGridView1("mobile_phone", i).Value & System.Environment.NewLine)
vcf.Append("FN:" & DataGridView1("first_name", i).Value & " " +
DataGridView1("last_name", i).Value & System.Environment.NewLine)
vcf.Append("X-GROUP-MEMBERSHIP:My Contacts" & Environment.NewLine)
vcf.Append("END:VCARD" & System.Environment.NewLine)
Next
Dim filename = Application.StartupPath + "/card.vcf"
System.IO.File.WriteAllText(filename, vcf.ToString())
End Sub