تقييم الموضوع :
  • 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 
تمام ولكن هذا ينشأ كل جهه اتصال علي حدا انا اريد جميعا في جهه اتصال واحده
الرد
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط أبو عبدالله الحلواني 7 269 20-02-21, 04:40 PM
آخر رد: أبو عبدالله الحلواني
  مشكلة عند تصدير الداتا قريد إلى الاكسل يظهر الوقت مع التاريخ ؟ أبووسم 3 179 19-02-21, 08:53 PM
آخر رد: أبووسم
  سؤال عن عمل نسخة احتياطية لجزء من قاعدة البيانات ابو انس 1 115 17-02-21, 11:51 PM
آخر رد: ابو انس
  عندي مشكله في قواعد البيانات اليوم السابع 1 116 13-02-21, 01:40 AM
آخر رد: Jounior_P
Information [VB.NET] [مساعدة] ... شباب كيف اربط المشروع ب ملف Excel لتصدير البيانات فيه..؟ Mahmoud41 1 151 11-02-21, 10:04 PM
آخر رد: abojudey
Exclamation [VB.NET] مشكله حذف البيانات من تلقى نفسها ali bajmmal 0 190 03-02-21, 06:20 PM
آخر رد: ali bajmmal
  انتقال إلى سطر جديد بواسطة ضغط الزر انتر Alhootti1 10 700 03-02-21, 01:23 PM
آخر رد: Alhootti1
Heart [Acces2007] مشكلة في قاعدة البيانات ali bajmmal 3 248 02-02-21, 01:14 PM
آخر رد: ali bajmmal
  [مثال] أريد حفظ البيانات بعد تحديثها mmaalmesry 3 248 01-02-21, 09:18 AM
آخر رد: mmaalmesry
  كود البحث في قاعدة البيانات SaedAmer 3 226 31-01-21, 02:57 PM
آخر رد: ابراهيم ايبو

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


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