جلب معلومات ملف صوتي

[Foksh]

السلام عليكم أخواني وأساتذتي الكرام ..

لدي مشروع اقوم بتنفيذه ، وقد وقفت عند نقطة مهمة جداً لي وهي أنني اريد جلب مدة ملف صوتي بحيث تظهر في مربع نص بالثانية

( يعني لو المدة 1 دقيقة ونصف ) تكون النتيجة 90 ثانية .

 

[محمد احمد لطفى]

تفضل وجدت هذا الامر بالتوفيق
 

Second.accdb

[Foksh]

3 ساعات مضت, محمد احمد لطفى said:

تفضل وجدت هذا الامر بالتوفيق

جاري التجربة 🥰

[Foksh]

الشكر موصول لك أستاذ 🤝 @محمد احمد لطفى

مع إجراء بعض التعديلات على الدالة في المديول ، تم تنفيذ الفكرة لتعمل على نسخة 2010 ؛ مع العلم ان كود الاستاذ محمد يعمل على اصدار 2016 :)

وهذا التعديل للفائدة العامة :-

Function GetAudioFileDurationInSeconds(filePath As String) As Long
    Dim audioApp As Object
    Dim audioClip As Object
    
    On Error Resume Next
    Set audioApp = CreateObject("WMPlayer.OCX")
    Set audioClip = audioApp.newMedia(filePath)
    On Error GoTo 0
    
    If audioClip Is Nothing Then
        GetAudioFileDurationInSeconds = -1
    Else
        GetAudioFileDurationInSeconds = audioClip.duration
    End If
    
    Set audioClip = Nothing
    Set audioApp = Nothing
End Function

 

تم تعديل فبراير 7, 2024 بواسطه Foksh

[Foksh]

بعد تجربة الكودين ، لاحظت أنه يعمل أحياناً ولكن ليس على جميع الإصدارات في أوفيس ،

 

فمثلاً قمت بتجربة كود الأستاذ محمد ولم يعمل على 2010 وعمل على اصدار 2016 . بينما بعد التعديل في مشاركتي تم العمل بنجاح على إصدار 2010 ... 

وبالعودة على اوفيس 2010 إصدار مختلف على نفس الويندوز وفي نفس ظروف ملفات الصوت لم يتم المطلوب 

 

دخت من كثرة التنقل بين إصدارات أوفيس والويندوز 

 

علنا نصل الى نتيجة تعمل بكفاءة دون مشاكل لإختلاف الإصدار مع الأساتذة ممن يملك معلومة او تجربة .

[محمد احمد لطفى]

أستاذ @Foksh  😁

أرى أن تحذف أفضل اجابة حتى تصل للمطلوب 

تفضل هذا الامر تم تجربته على أوفيس 2020 و للأسف ليس عندى اوفيس 2010


 

 

Second.accdb

تم تعديل فبراير 7, 2024 بواسطه محمد احمد لطفى

[ابوخليل]

 عندي 2010

عملت لايك على اجابة الاستاذ محمد .. لاني جربت المثال ويعمل 100%

[Foksh]

7 دقائق مضت, ابوخليل said:

عملت لايك على اجابة الاستاذ محمد .. لاني جربت المثال ويعمل 100%

جزاك الله خير أستاذنا أبو خليل ، وجزا الله استاذنا محمد كل الخير ، ولكني ذكرت أنه يعمل وما شاء الله عندي على نسخة 2016 ، ولكن على نسختي الـ 2010 لم يعمل ، ما اضطرني الى متابعة النقاش 

 

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

[Moosak]

في 7‏/2‏/2024 at 19:21, محمد احمد لطفى said:

أستاذ @Foksh  😁

أرى أن تحذف أفضل اجابة حتى تصل للمطلوب 

تفضل هذا الامر تم تجربته على أوفيس 2020 و للأسف ليس عندى اوفيس 2010


 

 

Second.accdb 408 kB · 2 downloads

هذا يعمل جيدا مع أوفيس 365 👍🏻😉