تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن عمل هذا الترتيب
#1
كيف يمكن ترتيب قائمة اعداد موجودة بملف نصي على حسب الرقم الاخير من كل عدد اي على النحو الموجود في الصورة ادناه




الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

اخي الكريم قم بتحويل الارقام الى نص بعد ذلك قم بعملية الترتيب تلاحظ ان الترتيب اصبح كما تريد والله اعلم

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة:
#3
(15-11-16, 12:17 AM)abulayth كتب : السلام عليكم

اخي الكريم قم بتحويل الارقام الى نص بعد ذلك قم بعملية الترتيب تلاحظ ان الترتيب اصبح كما تريد والله اعلم

يعطيك العافية

الله يعافيك اخي ممكن الكود اذا ما فيه اشكال اعذرني انا مبتدى في vb.net
الرد }}}
تم الشكر بواسطة:
#4
هل تقصد الترتيب تنازلي او تصاعدي للاعداد الموجودة في الملف النصي
ام هل هناك طريقة معينة للترتيب خاصة بك؟؟
يرجى التوضيح
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة:
#5
ترتيب تصاعدي على حسب الرقمالاخير في العدد
الرد }}}
تم الشكر بواسطة: ابو ليلى
#6
عليك أن تقرأ الملف باستخدام IO.File.RealAllLines فتحصل علي مصفوفة عبارة عن String لحميع الاسطر
, طالما انت متأكد ان جميع المدخلات عبارة عن ارقام أصلا فكل ما عليك هو
ان تقوم بنحويل تلك المصفوفة الي مصفوفة Integer عن طريق عمل حلقة تكرارية تقرأ ما هو موجود ف المصفوفة و تحويل كل String ف المصفوفة الي Integer باستخدام |Integer.Parse
واخيرا تقوم بuمل Sort لمصفوفة الأرقام إما تصاعديا او تنازليا
الرد }}}
تم الشكر بواسطة: ابو ليلى , ابو ليلى
#7
انت تقصد الترتيب تصاعدي حسب الخانة الاولى من الرقم (خانة الاحاد و ليس العشرات) هل انا مخطئ؟؟
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة:
#8
أيضا من الممكن ان تستخدم SortedDictionary كالتالي

PHP كود :
       Dim dict As New SortedDictionary(Of IntegerString)()
 
       Dim fileLocation As String "اسم الملف شاملا اسم الفهرس"
 
       If IO.File.Exists(fileLocationThen
            For Each s 
As String In IO.File.ReadAllLines(fileLocation)
 
               dict.Add(Integer.Parse(s), s)
 
           Next
        End 
If 
الرد }}}
تم الشكر بواسطة: ابو ليلى
#9
كود :
        Dim lstNo As New List(Of Integer) From {55, 67, 11, 56, 83, 32, 23, 46, 43, 91, 80, 20, 12}
        Dim LstResult As New List(Of Integer)
        For toFind As Byte = 0 To 9
            Dim found As List(Of Integer) = lstNo.FindAll(Function(value) Val(value.ToString.Substring(1, 1)) = toFind)
            found.Sort()
            LstResult.AddRange(found)
        Next
        Dim result As String = String.Join(Environment.NewLine, LstResult)
        textbox1.text = result

مع  تغيير ما يلزمك  من  تحويل  الادخال المباشر في الكود للارقام ، الى قرائتها من ملف نصي  .

الناتج من الكود السابق  كالتالي : 

كود :
20
80
11
91
12
32
23
43
83
55
46
56
67

بالتوفيق
اسم معرفي : محمد يحيى
الرد }}}
تم الشكر بواسطة: ابو ليلى
#10
باستخدام كود الاخ محمد يمكنك اجراء اللازم
و لقراءة الملف النصي ليتوافق مع الكود السابق
PHP كود :
Dim fStream As New System.IO.FileStream("d:\File1.txt"IO.FileMode.Open)
 
       Dim sReader As New System.IO.StreamReader(fStream)
 
       Dim lstNo  As New List(Of Integer)
 
       Do While sReader.Peek >= 0
            lstNo 
.Add(sReader.ReadLine)
 
       Loop
        fStream
.Close()
 
       sReader.Close() 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
  هل يمكن نسخ احتياطي لأسماء الButtons ؟ hazim1 2 238 21-09-23, 07:32 PM
آخر رد: hazim1
  هل يمكن عد الصفوف التالية للصف المُحدد في Datagridview ؟ hazim1 1 460 17-07-23, 09:04 PM
آخر رد: mrfenix93
  [SQL] كيف يمكن تعديل update أو حذف delete صف معين من جدول بدلالة رقم الصف ROW_NUMBER mmaalmesry 4 758 06-02-23, 09:42 AM
آخر رد: mmaalmesry
  [VB.NET] كيف يمكن تنفيذ امر داخل الباور شل zooz313 2 775 17-12-22, 02:25 PM
آخر رد: kebboud
  كود تحريك الادوات داخل الفورم مع حفظ الترتيب حماده ممدوح البحيرى 0 293 17-12-22, 02:11 PM
آخر رد: حماده ممدوح البحيرى
  هل يمكن الاعتماد على 2 او اكثر من قاعدة البيانات لبرنامج واحد حماده ممدوح البحيرى 0 469 10-12-22, 08:56 PM
آخر رد: حماده ممدوح البحيرى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم