المشاركات : 516
المواضيع 87
الإنتساب : Apr 2015
السمعة :
5
الشكر: 1435
تم شكره 417 مرات في 120 مشاركات
المشاركات : 11
المواضيع 0
الإنتساب : Mar 2016
السمعة :
0
الشكر: 0
تم شكره 9 مرات في 8 مشاركات
(03-04-16, 08:03 AM)الماجيك مسعد كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mSB As New System.Text.StringBuilder
For Each mRow As DataGridViewRow In dg.Rows
mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
dg.Rows.Add(mLN.Split(vbTab))
Next
End Sub
المشاركات : 516
المواضيع 87
الإنتساب : Apr 2015
السمعة :
5
الشكر: 1435
تم شكره 417 مرات في 120 مشاركات
(03-04-16, 09:55 AM)mawad كتب : (03-04-16, 08:03 AM)الماجيك مسعد كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mSB As New System.Text.StringBuilder
For Each mRow As DataGridViewRow In dg.Rows
mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
dg.Rows.Add(mLN.Split(vbTab))
Next
End Sub
السلام عليكم
تسلم ايدك يا غالى
ولكن يوجد مشكلة بسيطة وارجومساعدتك فى تعديلها
انا عندى بعض القيم بتكون امتر من سطر
يعنى احيانا سطرين او 5 او اكتر
وعند الاستدعاء بيضاف السطور التانية لrow جديد
المشاركات : 11
المواضيع 0
الإنتساب : Mar 2016
السمعة :
0
الشكر: 0
تم شكره 9 مرات في 8 مشاركات
(03-04-16, 10:43 AM)الماجيك مسعد كتب : (03-04-16, 09:55 AM)mawad كتب : (03-04-16, 08:03 AM)الماجيك مسعد كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mSB As New System.Text.StringBuilder
For Each mRow As DataGridViewRow In dg.Rows
mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
dg.Rows.Add(mLN.Split(vbTab))
Next
End Sub
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, vbBack))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split(vbTab)
mList.Add(mItem.Replace(vbBack, vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
المشاركات : 516
المواضيع 87
الإنتساب : Apr 2015
السمعة :
5
الشكر: 1435
تم شكره 417 مرات في 120 مشاركات
(03-04-16, 11:10 AM)mawad كتب : (03-04-16, 10:43 AM)الماجيك مسعد كتب : (03-04-16, 09:55 AM)mawad كتب : (03-04-16, 08:03 AM)الماجيك مسعد كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mSB As New System.Text.StringBuilder
For Each mRow As DataGridViewRow In dg.Rows
mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
dg.Rows.Add(mLN.Split(vbTab))
Next
End Sub
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, vbBack))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split(vbTab)
mList.Add(mItem.Replace(vbBack, vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
معلش يا غالى عايز تعمل الفاصل بين العناصر هذه العلامة |
انا حاولت ولكن ظهرت نفس المشكلة
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join("|", From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace("|", vbBack))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split("|")
mList.Add(mItem.Replace(vbBack, "|"))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
يريت تعدله انه يضيف العنصر كما كان
يعنى لو كان العنصر الاول مثلا 5 سطور
يبقا عند استدعاء الملف
يتم اضافة ال5 اسطر للعنصر الاول كما كان
وهكذا
معلش انا عارف انى تعبتك معايا
جعله الله فى ميزان حسناتك
المشاركات : 11
المواضيع 0
الإنتساب : Mar 2016
السمعة :
0
الشكر: 0
تم شكره 9 مرات في 8 مشاركات
03-04-16, 02:33 PM
(آخر تعديل لهذه المشاركة : 03-04-16, 02:47 PM {2} بواسطة mawad.)
(03-04-16, 01:00 PM)الماجيك مسعد كتب : (03-04-16, 11:10 AM)mawad كتب : (03-04-16, 10:43 AM)الماجيك مسعد كتب : (03-04-16, 09:55 AM)mawad كتب : (03-04-16, 08:03 AM)الماجيك مسعد كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mSB As New System.Text.StringBuilder
For Each mRow As DataGridViewRow In dg.Rows
mSB.AppendLine(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
dg.Rows.Add(mLN.Split(vbTab))
Next
End Sub
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, vbBack))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split(vbTab)
mList.Add(mItem.Replace(vbBack, vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
معلش يا غالى عايز تعمل الفاصل بين العناصر هذه العلامة |
كود :
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join("|", From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, Chr(0)))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split("|")
mList.Add(mItem.Replace(Chr(0), vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
المشاركات : 516
المواضيع 87
الإنتساب : Apr 2015
السمعة :
5
الشكر: 1435
تم شكره 417 مرات في 120 مشاركات
(03-04-16, 02:33 PM)mawad كتب : (03-04-16, 01:00 PM)الماجيك مسعد كتب : (03-04-16, 11:10 AM)mawad كتب : (03-04-16, 10:43 AM)الماجيك مسعد كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, vbBack))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split(vbTab)
mList.Add(mItem.Replace(vbBack, vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
معلش يا غالى عايز تعمل الفاصل بين العناصر هذه العلامة |
كود :
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join("|", From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, Chr(0)))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split("|")
mList.Add(mItem.Replace(Chr(0), vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
تسلم ايدك يا غالى
اتحلت المشكلة
ولكن بقى اخر شئ بسيط
وهو تكرار العناصر
بمعنى لو الداتا فيها عنصر
عند استدعاء الملف من تانى
العنصر يصير عنصرين
واذا كان عنصرين يصير 4
يعنى انه يتكرر اثناء الحفظ والاستدعاء
هل يوجد حل لهذه المشكلة
والف مليون شكر ليك يا غالى
بجد تسلم ايدك
المشاركات : 11
المواضيع 0
الإنتساب : Mar 2016
السمعة :
0
الشكر: 0
تم شكره 9 مرات في 8 مشاركات
03-04-16, 06:00 PM
(آخر تعديل لهذه المشاركة : 03-04-16, 06:00 PM {2} بواسطة mawad.)
(03-04-16, 04:54 PM)الماجيك مسعد كتب : (03-04-16, 02:33 PM)mawad كتب : (03-04-16, 01:00 PM)الماجيك مسعد كتب : (03-04-16, 11:10 AM)mawad كتب : (03-04-16, 10:43 AM)الماجيك مسعد كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
savedata(DataGridView1, "myfile.txt")
loaddata("myfile.txt", DataGridView2)
End Sub
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join(vbTab, From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, vbBack))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split(vbTab)
mList.Add(mItem.Replace(vbBack, vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
معلش يا غالى عايز تعمل الفاصل بين العناصر هذه العلامة |
كود :
Sub savedata(ByVal dg As DataGridView, ByVal filename As String)
Dim mList As New List(Of String)
For Each mRow As DataGridViewRow In dg.Rows
mList.Add(String.Join("|", From mCell In mRow.Cells Select mCell.Value))
Next
Dim mSB As New System.Text.StringBuilder
For Each mItem In mList
mSB.AppendLine(mItem.Replace(vbNewLine, Chr(0)))
Next
IO.File.WriteAllText(filename, mSB.ToString)
End Sub
Sub loaddata(ByVal filename As String, ByVal dg As DataGridView)
For Each mLN As String In IO.File.ReadLines(filename)
Dim mList As New List(Of String)
For Each mItem In mLN.Split("|")
mList.Add(mItem.Replace(Chr(0), vbNewLine))
Next
dg.Rows.Add(mList.ToArray)
Next
End Sub
العنصر يصير عنصرين
كود :
DataGridView2.Rows.Clear()
loaddata("myfile.txt", DataGridView2)
المشاركات : 516
المواضيع 87
الإنتساب : Apr 2015
السمعة :
5
الشكر: 1435
تم شكره 417 مرات في 120 مشاركات
اتمنى مرورك على هذه المشكلة يا غالى لحد ما اجرب الحل بتاعك
http://vb4arb.com/vb/thread-15328.html
|