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

(24-09-18, 02:12 PM)elgokr كتب :

مرفق السورس + برنامج للاختبار

السورس (2015)

الادورات المستخدمة عدد [ 1 ] Button1 و [ 1 ] DataGridView

تم تعطيل التعديل والحذف والاضافة من DataGridView

كود الفورم كاملاً

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       DataGridView1.Rows.Clear()
       DataGridView1.Columns.Clear()
       Dim OFD_ As New OpenFileDialog
       Dim RdVal As IO.StreamReader
       Dim TxVal As String
       Dim SpVal As String()
       OFD_.DefaultExt = "csv"
       OFD_.FileName = Nothing
       OFD_.InitialDirectory = Application.StartupPath
       OFD_.Filter = "File [CSV]|*.csv"
       OFD_.Title = "Select file"
       If OFD_.ShowDialog() <> DialogResult.Cancel Then
           RdVal = IO.File.OpenText(OFD_.FileName)
           TxVal = RdVal.ReadToEnd()
           RdVal.Close()
           TxVal = TxVal.Replace(vbNewLine, ",")
           SpVal = TxVal.Split(",")
       Else
           Exit Sub
       End If

       DataGridView1.ColumnCount = 5
       For ii As Integer = 0 To 4
           DataGridView1.Columns(ii).Name = SpVal(ii)
       Next

       DataGridView1.Columns(0).Width = 30
       DataGridView1.Columns(1).Width = 240
       DataGridView1.Columns(2).Width = 100
       DataGridView1.Columns(3).Width = 50
       DataGridView1.Columns(4).Width = 750

       For i As Integer = 1 To Val(SpVal.Length / 5) - 1
           Dim row As String() = New String() {SpVal(Val(i * 5)), SpVal(Val(i * 5) + 1), SpVal(Val(i * 5) + 2), SpVal(Val(i * 5) + 3), SpVal(Val(i * 5) + 4)}
           DataGridView1.Rows.Add(row)
       Next

       DataGridView1.Refresh()
       DataGridView1.SelectAll()
   End Sub
End Class

تحياتى لك

وتمنياتى لك التوفيق

اشكرك علي ردك

ولكن لم تتابع طلبي كاملا  انا بنقل بيانات الملف كاملة الي برنامجي اريد تعديل داخل اعمدة الداتا جريد اثناء النقل

لمشكلة اما مي كالاتي



1- بعض اللينات بالملف النصي تكون مكررة الرسائل او قيمتها فارغة اريد حذفها

2- التاريخ يظهر بالشكل الاتي   =   الأربعاء ٢٢/٠٨/٢٠١٨ at ٠١:٢٦:٣٠ م      اريد حذف at وتبديلها باسم اليوم  بالشكل التالي

  ٢٢/٠٨/٢٠١٨ الأربعاء ٠١:٢٦:٣٠ م   بدل من الأربعاء ٢٢/٠٨/٢٠١٨ at ٠١:٢٦:٣٠ م

5- طبعا طريقة الريجيستر لا اجداستخدامها ساعدني احد الاخوة لحذف جزء من اللينات لاستخراج المبالغ المحولة الي واريدها كما هيا


الكود الي استخدمتة 

مشاكلة

2- تعديل التاريخ كما سبق