[الماجيك مسعد]

---

(31-01-16, 03:48 AM)سعود كتب : اخي الكريم "الماجيك مسعد"
الموقع المذكور لا يسمح باكثر من 30 سطر
فكيف تريد تطبيق مليون اي بي.
المهم انك  تعرف الاكواد وانك ذكرت انك اطلعت على امثلة عديدة بقي ان تجرب الملفات التي تسمى ToolKit  او باي اسم المهم ان الموقع يدعمها عن طريقها تستطيع السرعة في العمل.
ومهما كانت طريقة الفرز فالمعضلة ليست هنا وانما بالطلب والاجابة من الموقع.

---

هل جربت هذا الموقع؟
http://www.aspsnippets.com/Articles/Call...VBNet.aspx

وبالنسبة لل30 سطر

انا اعلم انه يقبل 30 فقط

وانا اقصد ان نفرز 30 ايبى

ثم 30 ايبى

بدلا من فرز ايبى ثم ايبى

هل تفهم قصدى

للاسف يا غالى

لم استطع عمل مشروع مثل الشرح

ارجو منك ان تعمل مشروع بسيط يوضح الطريقة

---

(31-01-16, 03:35 AM)silverlight كتب : يا أخ مسعد

أنا مش عايز أضيع وقتك ع الفاضي لكني انصحك أن تستخدم Array و تحدد Capacity الخاصة بها و لتكن 100 عنصر مثلا ثم تستخدمها فيي قراءة العناصر من الملف بحيث إنها تقرأ 100 عنصر مثلا في كل مرة

ثم تقوم بعمل الفرز لتلك 100 عنصر ثم تقوم بإدخال نتيجة الفرز الي الليست بوكس ثم تقوم بتكرار نفس الشئ حتي تقرأ  الملف كله علي ان يتم ذلك من خلال Thread مثلا

عموما ارفع الملف الموجود به الاي بي و دعنا نري ماذا سيحدث لمساعدتك
لكن يهمني أعرف الاسلوب المستخدم في تخزين الأي بي ف الملف لأن هذا سيؤثر علي كيفية قراءة الملف جزءا جزءا

بالنسبة لملف الايبهات

http://up.dev-point.com/download251983.html

بالنسبة للحفظ

PHP كود :

Try
            Dim y As Integer = 0
            Dim strFile As String
            Dim sw1 As StreamWriter
            Dim opf As New FolderBrowserDialog
            opf.ShowNewFolderButton = True
            opf.ShowDialog()

            Do Until y = listinfo.RowCount - 1
                Dim x As String = opf.SelectedPath.ToString & "/" & listinfo.Rows(y).Cells(1).Value
                strFile = x & ".txt"
                If (Not File.Exists(strFile)) Then
                    sw1 = File.CreateText(strFile)
                    sw1.WriteLine(listinfo.Rows(y).Cells(0).Value, strFile, False)
                    sw1.Close()
                Else
                    sw1 = (File.AppendText(strFile))
                    sw1.WriteLine(listinfo.Rows(y).Cells(0).Value, strFile, False)
                    sw1.Close()
                End If
                y = y + 1
            Loop
            MsgBox("تم الحفظ بنجاح")
        Catch ex As Exception

        End Try