تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هل يوجد كود معرفة عدد ملفات التي بـ تنسيقات الصور
#1
هل يوجد كود معرفة عدد ملفات التي بـ تنسيقات الصور

اريد كود واحد يقوم بمعرفة عدد الصور بكافة تنسيقاتها ...
لاني استخدم طريقة يدوية وهي:
كود :
Dim gifcounter As Object
    Dim jpgcounter As Object
    Dim pngcounter As Object
    Dim jpegcounter As Object
    Dim allcount As Integer

        gifcounter = Directory.GetFiles(fbd.SelectedPath, "*.gif".ToLower).Count
        jpgcounter = Directory.GetFiles(fbd.SelectedPath, "*.jpg".ToLower).Count
        pngcounter = Directory.GetFiles(fbd.SelectedPath, "*.png".ToLower).Count
        jpegcounter = Directory.GetFiles(fbd.SelectedPath, "*.jpeg".ToLower).Count
        allcount = gifcounter + jpgcounter + pngcounter + jpegcounter

فهل توجد طريقة لمعرفة عدد الملفات التي تعتبر صورة بغض النظر عن الامتداد؟؟
وفقكم الله.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Dim count As Integer = 0
        Dim extensions As String() = {".jpg", ".jpeg", ".png", ".gif"}
        Dim paths As String() = IO.Directory.GetFiles(fbd.SelectedPath)
        Array.ForEach(Of String)(paths, Sub(path As String) Array.ForEach(Of String)(extensions, Sub(ext As String) If path.ToLower().EndsWith(ext) Then count += 1))
        MsgBox(count)
الرد }}}}
تم الشكر بواسطة: سعود , kslawy
#3
علي السريع
لا تقوم باكثر من عملية بحث دي يتقل معك الكود
قم بعمليه بحث عن جميع الملفات *.* ثم اعمل تكرار بعد ذلك يلف علي المصفوفة واذا وجد الملف ........

كود :
Dim lst_Ex() As String = {".gpg", ".png", ".gif"}
        Dim lst() As String = IO.Directory.GetFiles("", "*.*", 0)
        Dim allcount As Integer
        For Each fil As String In lst
            If (Array.IndexOf(lst_Ex, (New IO.FileInfo(fil).Exists))) >= 0 Then allcount += 1
        Next

لم اجرب فقط كتبت الفكرة
الرد }}}}
تم الشكر بواسطة: سعود , Aly El-Haddad , kslawy
#4
بارك الله فيك
الكود هذا مايجي بالتخمينSmileSmile
تسلم ايدك
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: Aly El-Haddad
#5
اسف اخي Aly El-Haddad ما رائيت ردك
الرد }}}}
تم الشكر بواسطة: Aly El-Haddad , kslawy
#6
هههههه
مش هعديها الكود ده لازم يتشرح
كود :
Array.ForEach(Of String)(paths, Sub(path As String) Array.ForEach(Of String)(extensions, Sub(ext As String) If path.ToLower().EndsWith(ext) Then count += 1))
الرد }}}}
تم الشكر بواسطة: Sajad
#7
السلام عليكم ورحمة الله وبركاته

وزيادة الخير خيرين بالـ Linq :

كود :
Dim imagesFolder As String = My.Computer.FileSystem.SpecialDirectories.MyPictures
        Dim ImagesExtension As String() = New String() {".gif", ".jpg", ".png", ".jpeg"}

        Dim ImgsCount = (From m In New IO.DirectoryInfo(imagesFolder).GetFiles _
                         Where ImagesExtension.Contains(m.Extension) Select m).Count

        MessageBox.Show(ImgsCount)

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة: Sajad , Aly El-Haddad , سعود
#8
ههههههههههه، أنت تأمر Big Grin

Array.ForEach تقوم بتنفيذ أمر معين على جميع عناصر مصفوفة ما
Array.ForEach(Of String) لأن المصفوفة من نوع String
يأخذ الـParameter الأول المصفوفة المراد تنفيذ الأمر عليها
يأخذ الـParameter الثاني الأمر الذي سيتم تنفيذه من نوع Action بصيغة Lambda expression أو بالصيغة الموضحة على هذا الرابط

تكتب الأومر بالصيغة Lambda expression بالطريقة الموضحة في المشاركة أعلاة حيث str هي قيمة عنصر المصفوفة الذي يتم تطبيق الأمر عليه و من ثم يُكتب الأمر (في سطر واحد)

مثال توضيحي مثلاً عندنا مصفوفة نصية:
كود :
Dim strArr As String() = {"Item0", "Item1", "Item2"}
استخدام هذا الكود:
كود :
Array.ForEach(Of String)(strArr, Sub(str As String) MsgBox(str.ToUpper()))
هو لا يختلف عن هذا:
كود :
For Each str As String In strArr
            MsgBox(str.ToUpper())
        Next
إلى أن الأول في سطر واحد Smile
الرد }}}}
تم الشكر بواسطة: kslawy , سعود
#9
و بأعتذر عن التأخير في الرد بسبب إنقطاع الكهرباء Blush
الرد }}}}
تم الشكر بواسطة: kslawy , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 25 519 05-12-16, 08:30 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] تشغيل ملفات الصوتية متتالية سوري حر 4 117 02-12-16, 07:18 AM
آخر رد: zinom
  [سؤال] اداة Geckowebbroser التي موجود في لغة vb.net عبدالرحمن المكاوي 0 49 24-11-16, 03:54 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] عدة ملفات نصية rabeh.ram 2 62 13-11-16, 08:13 AM
آخر رد: rabeh.ram
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 114 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 157 09-11-16, 03:24 PM
آخر رد: elhon.tec
  معرفة الاشخاص المتصلين بقاعدة البيانات في الشبكة المحلية ببساطة مثل مقاهي الانترنت thevirus 2 124 29-10-16, 06:25 PM
آخر رد: thevirus
Lightbulb المساعدة في معرفة طريقة كتابة الأكواد بشكل صحيح ... Arabia 0 73 26-10-16, 03:18 PM
آخر رد: Arabia
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 0 73 25-10-16, 07:11 PM
آخر رد: 0theghost0
  [سؤال] مساعدة في تشفير ملفات حسان محمد عابد 1 53 24-10-16, 10:28 PM
آخر رد: حسان محمد عابد

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


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