(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

(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 و تصديره الى ملف اكسل