06-02-21, 09:33 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
بحث لثلاث ايام عن كيفية اضافة اكثر من مجلد لمجلد الـDirAssets دون فائدة حيث لا ينم قراءة اي ملفات ليست موجودة بالمجلد الرئيسي لاني احاول وضع ملفات
ضمن مجلدات لكل قاريء مجلد لكن لم تفلح فلجات الى(بعد الله سبحانه و تعالى) الى طريقة بفيجوال بيسك حيث اضيف اسم المجلد الى اسم الملف والباقي يخص الـb4a
المهم احببت مشاركة الفكرة لمن واجه معضلة كهذه
احرص على ان يكون طول النص الاول مع التسطير 8 خانات لتنجح الاكواد الخاصة بـb4a
PHP كود :
m=m.SubString(8)
m=m.SubString2(0,3)
هذان السطران يستخلصان الاسم الرقمي للسورة
اما التالي:
PHP كود :
Dim foldername As String
foldername=mlst.Get(Position)
For Each filename As String In File.ListFiles(File.DirAssets)
If filename.ToLowerCase.StartsWith(foldername & "_") Then
lst.Add(filename)
End If
Next
فيتحقق هل اسم الملف يبدا باسم المجلد اللذي يظهر في الكومبوبوكس واللذي اسمه spinner
أرجو ان اكون قدمت فكرة جيدة ولو كانت بسيطة
السلام عليكم ورحمة الله و بركاته
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
