[محمد اسماعيل]

السلام عليكم ورحمة الله وبركاتة

اريد طريقة لاستيراد ملف CSV الي الداتاجريد فيو مع وضع اسم الملف بأول خلية لكل خلية بالعمود الاول عشان بحمل لود لاكتر من ملف فعايز اعرف البيانات من اي ملف ظهرت.
فهحتاج اسم الملف بأول خلية اول كل صف بالداتاجريد فيو .

كل لما احاول يظهر STRING [] بالداتاجريد فيو حبيت اعرف افضل طريقة .

كود :

Dim FILENAMEB AS STRING
            With openFileDialog1
                .DefaultExt = ".xls"
                .AddExtension = True
                .Filter = "Excel Worksheets|*.xls; *.xlsx; *.xlsm; *.csv"
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    FILENAMEB = (CType(.FileName, String))
                End If
            End With


For Each line As String In System.IO.File.ReadAllLines(System.IO.Path.GetFullPath(openFileDialog1.FileName))
                   DATAG_CLIEN.Rows.Add(line.Split(","))
               Next

[smalw]

(18-12-19, 04:45 PM)محمد اسماعيل كتب : السلام عليكم ورحمة الله وبركاتة

اريد طريقة لاستيراد ملف CSV الي الداتاجريد فيو مع وضع اسم الملف بأول خلية لكل خلية بالعمود الاول عشان بحمل لود لاكتر من ملف فعايز اعرف البيانات من اي ملف ظهرت.
فهحتاج اسم الملف بأول خلية اول كل صف بالداتاجريد فيو .

كل لما احاول يظهر STRING [] بالداتاجريد فيو حبيت اعرف افضل طريقة .

كود :

 Dim FILENAMEB AS STRING
            With openFileDialog1
                .DefaultExt = ".xls"
                .AddExtension = True
                .Filter = "Excel Worksheets|*.xls; *.xlsx; *.xlsm; *.csv"
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    FILENAMEB = (CType(.FileName, String))
                End If
            End With


For Each line As String In System.IO.File.ReadAllLines(System.IO.Path.GetFullPath(openFileDialog1.FileName))
                   DATAG_CLIEN.Rows.Add(line.Split(","))
               Next

كود :

With openFileDialog1
   .AddExtension = True
   .Filter = "CSV|*.csv"
   If .ShowDialog = Windows.Forms.DialogResult.OK Then
       Dim FILENAMEB = IO.Path.GetFileName(.FileName)
       Dim lines = IO.File.ReadAllLines(openFileDialog1.FileName)
       For i = 1 To lines.Count - 1
           Dim values = lines(i).Split(",")
           Dim nameValue = values(0)
           Dim dbirthValue = values(1)
           Dim row = DATAG_CLIEN.Rows.Add()
           DATAG_CLIEN.Rows(row).Cells(0).Value = FILENAMEB
           DATAG_CLIEN.Rows(row).Cells(1).Value = nameValue
           DATAG_CLIEN.Rows(row).Cells(3).Value = dbirthValue
       Next
   End If
End With

[asemshahen5]

هذا مثال قريب مما تريد :

كيفية استيراد ملف .csv اكسل الى listview و تصديره الى ملف اكسل

[محمد اسماعيل]

(18-12-19, 05:18 PM)smalw كتب :

(18-12-19, 04:45 PM)محمد اسماعيل كتب : السلام عليكم ورحمة الله وبركاتة

اريد طريقة لاستيراد ملف CSV الي الداتاجريد فيو مع وضع اسم الملف بأول خلية لكل خلية بالعمود الاول عشان بحمل لود لاكتر من ملف فعايز اعرف البيانات من اي ملف ظهرت.
فهحتاج اسم الملف بأول خلية اول كل صف بالداتاجريد فيو .

كل لما احاول يظهر STRING [] بالداتاجريد فيو حبيت اعرف افضل طريقة .

كود :

 Dim FILENAMEB AS STRING
            With openFileDialog1
                .DefaultExt = ".xls"
                .AddExtension = True
                .Filter = "Excel Worksheets|*.xls; *.xlsx; *.xlsm; *.csv"
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    FILENAMEB = (CType(.FileName, String))
                End If
            End With


For Each line As String In System.IO.File.ReadAllLines(System.IO.Path.GetFullPath(openFileDialog1.FileName))
                   DATAG_CLIEN.Rows.Add(line.Split(","))
               Next

كود :

With openFileDialog1
   .AddExtension = True
   .Filter = "CSV|*.csv"
   If .ShowDialog = Windows.Forms.DialogResult.OK Then
       Dim FILENAMEB = IO.Path.GetFileName(.FileName)
       Dim lines = IO.File.ReadAllLines(openFileDialog1.FileName)
       For i = 1 To lines.Count - 1
           Dim values = lines(i).Split(",")
           Dim nameValue = values(0)
           Dim dbirthValue = values(1)
           Dim row = DATAG_CLIEN.Rows.Add()
           DATAG_CLIEN.Rows(row).Cells(0).Value = FILENAMEB
           DATAG_CLIEN.Rows(row).Cells(1).Value = nameValue
           DATAG_CLIEN.Rows(row).Cells(3).Value = dbirthValue
       Next
   End If
End With

مش عارف اشكرك ازاي

اسال الله العظيم ان يزيدك من علمة وفضلة ويبارك عملك و اهلك .

اجمل حاجة في الاكواد سهولة الاستخدام

---

(18-12-19, 05:22 PM)asemshahen5 كتب : هذا مثال قريب مما تريد :

كيفية استيراد ملف .csv اكسل الى listview و تصديره الى ملف اكسل

كل المنتدي يعلم مجهودك استاذ asemshahen5

اسال الله ان يجعلة في موازين حسناتك .