منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة StackOverflowException was unhandled فى الليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة StackOverflowException was unhandled فى الليست بوكس (/showthread.php?tid=14493)

الصفحات: 1 2 3 4

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - HASAN6.0 - 30-01-16

جرب المثال في المرفقات

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - الماجيك مسعد - 30-01-16

(30-01-16, 06:53 PM)سعود كتب :
إقتباس :مشروع يفرز مليون ايبى فى اقل وقت ممكن لا يزيد عن ساعتين
السرعة تتوقف على سرعة جهازك واتصالك بالنت وبالخادم او الموقع اللي تاخذ منه المعلومات ... اما البرنامج (بالفكرة هذي) ما يحدد كم يستغرق الوقت للتنفيذ وانما ظروف القراءة من الصفحة هي التي تؤخر عملية التحليل للصفحات.
اذا كنت تعرف للموقع ملفات تساعد على زيادة السرعة  فزودنا بها لنساعدك بمسالة السرعة اما غير ذلك لا اظن يوجد حل.

السلام عليكم

البرنامج سوف يستخدم على vps
رامات 24جيجا
سرعة نت 800 ميجا

------------------

http://www.ipligence.com/iplocation
الموقع دا بيفرز 30 ايبى مع بعض

اعتقد هذا هو الحل

بحيث ان كل طلب هنسرله للموقع هيفرز لنا 30 ايبى بدلا من ايبى واحد

وهذا سوف يوفر وقت كثير
(30-01-16, 07:08 PM)HASAN6.0 كتب : جرب المثال في المرفقات

السلام عليكم

اول مشروع انا عملته كان عن طريق اداة geoip.dat

التى تستخدمها انت فى مشروعك الان

ولكن هذه الاداة تعطى البيانات غلط فى معظم الاوقات

لذلك افضل الفرز عن طريق موقع عشان تكون النتائج كلها صحيحة

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - silverlight - 30-01-16

لتتفادي البطء عليك أن تقوم بعملية الفرز علي مراحل و الفكرة ببساطة انك تقرا من الملف عدد معين من الاي بي علي هيئة مصفوفة
ثم تقوم بالفرز ثم تضيف نتيجة الفرز الي الليست بوكس ثم تكرر نفس العملية

عموما هنا انت ف حاجة لكتابة Enumerable خاص يقرا كميات محددة من الملف

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - الماجيك مسعد - 30-01-16

(30-01-16, 09:10 PM)silverlight كتب : لتتفادي البطء عليك أن تقوم بعملية الفرز علي مراحل و الفكرة ببساطة انك تقرا من الملف عدد معين من الاي بي علي هيئة مصفوفة
ثم تقوم بالفرز ثم تضيف نتيجة الفرز الي الليست بوكس ثم تكرر نفس العملية

عموما هنا انت ف حاجة لكتابة Enumerable خاص يقرا كميات محددة من الملف

تمام طيب ممكن تساعدنى بمشروع بسيط يا غالى

لانى ليس لدى الخبرة الكافية لفعل هذا
ومشكور مقدما

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - silverlight - 30-01-16

اعتذر لك لأني حاليا ليس لدي وقت كاف لكي اكتب لك الكلاس لكن و بشكل مؤقت عليك أن تبحث علي النت عن كيفية عمل Generic cashed List

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - الماجيك مسعد - 30-01-16

(30-01-16, 09:33 PM)silverlight كتب : اعتذر لك لأني حاليا ليس لدي وقت كاف لكي اكتب لك الكلاس لكن و بشكل مؤقت عليك أن تبحث علي النت عن كيفية عمل Generic cashed List

حسنا سوف انتظر الاخ سعود والاخ HASAN6.0

ربما يساعدونى فى ذلك

عن طريق الموقع
http://www.ipligence.com/iplocation

او باى طريقة اخرى

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - الماجيك مسعد - 31-01-16

هل من مساعد؟

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - silverlight - 31-01-16

يا أخ مسعد

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

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

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

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - سعود - 31-01-16

اخي الكريم "الماجيك مسعد"
الموقع المذكور لا يسمح باكثر من 30 سطر
فكيف تريد تطبيق مليون اي بي.
المهم انك  تعرف الاكواد وانك ذكرت انك اطلعت على امثلة عديدة بقي ان تجرب الملفات التي تسمى ToolKit  او باي اسم المهم ان الموقع يدعمها عن طريقها تستطيع السرعة في العمل.
ومهما كانت طريقة الفرز فالمعضلة ليست هنا وانما بالطلب والاجابة من الموقع.
هل جربت هذا الموقع؟
http://www.aspsnippets.com/Articles/Call-Consume-Web-Service-ASMX-in-ASPNet-web-application-using-C-and-VBNet.aspx

RE: مشكلة StackOverflowException was unhandled فى الليست بوكس - الماجيك مسعد - 31-01-16

(31-01-16, 03:48 AM)سعود كتب : اخي الكريم "الماجيك مسعد"
الموقع المذكور لا يسمح باكثر من 30 سطر
فكيف تريد تطبيق مليون اي بي.
المهم انك  تعرف الاكواد وانك ذكرت انك اطلعت على امثلة عديدة بقي ان تجرب الملفات التي تسمى ToolKit  او باي اسم المهم ان الموقع يدعمها عن طريقها تستطيع السرعة في العمل.
ومهما كانت طريقة الفرز فالمعضلة ليست هنا وانما بالطلب والاجابة من الموقع.
هل جربت هذا الموقع؟
http://www.aspsnippets.com/Articles/Call-Consume-Web-Service-ASMX-in-ASPNet-web-application-using-C-and-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