تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصدير البيانات من نوع جديد
#1
السلام عليكم 
لدي ارقام هاتف في ليست بوكس 
اريد تصديرها في ملف من نوع VCF كاجهات اتصال هاتف 

بحيث ان يكون الاسم مثلا test 1
و الاسم الثاني test 2
وهكذا 
كيف يتم ذلك بحثت كثيرا ولم اجد من يدلني 
وشكرا مقدما
الرد }}}
تم الشكر بواسطة:
#2
جرب هذا الكود يمكن ينفعك
PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles ExportToVcard.Click
        For i 
As Integer 0 To DataGridView1.Rows.Count 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" ".vcf"
 
           System.IO.File.WriteAllText(filenamevcf.ToString())
 
       Next
    End Sub 
الرد }}}
تم الشكر بواسطة: سعود
#3
(18-01-21, 08:11 AM)moosa_alabri كتب : جرب هذا الكود يمكن ينفعك
PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles ExportToVcard.Click
        For i 
As Integer 0 To DataGridView1.Rows.Count 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" ".vcf"
 
           System.IO.File.WriteAllText(filenamevcf.ToString())
 
       Next
    End Sub 
تمام ولكن هذا ينشأ كل جهه اتصال علي حدا انا اريد جميعا في جهه اتصال واحده
الرد }}}
تم الشكر بواسطة: سعود
#4
السلام عليكم ورحمة الله وبركاته 
ومساء الخير لكل من في هذا المنتدى 
احب منتدى وبمن فيى الى قلبي

قمت بتعديل بسيط بالكود

كود :
    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  
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافه سجل row جديد سلام و محبه2090 0 96 02-03-24, 11:04 PM
آخر رد: سلام و محبه2090
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم