25-08-22, 01:37 PM
هذا نفس الكود مع رشة ملح :
..
كود :
Dim C1 As Integer = ListBox1.Items.Count ' العدد الاجمالي
Dim G1 As Integer = 40 ' تعداد المجموعة الواحدة
Dim GC1 As Integer = C1 \ G1 ' عدد المجموعات
Dim M1 As Integer = C1 Mod G1 ' الباقي خارج المجموعات المكتملة
Dim fn As String ' مسار ملف الحفظ
Dim All As String = "" ' شغلات كثيرة بعدين بتعرفها
For i = 0 To C1 - 1
ListBox1.SetSelected(i, True)
All &= ListBox1.Text & vbNewLine
If (i + 1) Mod G1 = 0 And (i + 1) > 0 Then ' الوصول لأول مجموعة بشرط العداد أكبر من الصفر
fn = fpath & (i + 1).ToString("000") & ".txt"
IO.File.WriteAllText(fn, All)
All = ""
ElseIf M1 > 0 And i = C1 - 1 Then ' إذا كان يوجد باقي والعداد وصل للنهاية
fn = fpath & (i + 1).ToString("000") & ".txt"
IO.File.WriteAllText(fn, All)
All = ""
End If
Next
..
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».