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

[b]انشوف التطبيق وبعدي الاكود[/b]
[b][صورة مرفقة: 374630498.png][/b]
[b][b]هد فيديو عن المشور تعي يتكلم
نفس الفكر [/b]
[/b]
[b][b]

[/b]
[/b]
[b][b][b]كمان هد الاكود اللي في المشروع[/b][/b][/b]
==========================================
[b][b][b]عمل زر انشاء الاكود ومعا الفكشن اللي تنشاء الارقم
[/b]
[/b]
[/b]


كود :
Public Function sms(ByVal sms1 As Integer) As String
      Dim strb As New System.Text.StringBuilder
      Dim chars() As Integer = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
      Dim upperbound As Integer = UBound(chars)
      For x As Integer = 1 To sms1
          strb.Append(chars(Int(Rnd() * upperbound)))
      Next
      Return strb.ToString
  End Function
============================
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      'هن يتم اشناؤ ارقم عشواي
      ListBox1.Items.Clear()
      Dim s As String
      For x As Integer = 0 To 1000
          s = sms(10)
          ListBox1.Items.Add(s)
      Next
      TextBox2.Text = ListBox1.Items.Count

  End Sub



=======================
[color=#333333][b][font=Impact][size=xx-large][color=#663399]الان زر تقسيم اليسة بوكس علي مجموعات ملفات هن المشكل ويريت انحل مع بعض[/color][/size][/font][/b][/color]
[color=#333333][b][font=Impact][size=xx-large][color=#663399]والي الصحاب الخبر في المنتدي الجميل وكون شكر لكم جمعين[/color][/size][/font][/b][/color]
==============
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      'هن يتم انشاء المجلدات مع تقسيم اليسة علي الملفات بس انا مش عرف اظبوط الاشي هد
      Try
          Directory.CreateDirectory("C:\Users\Mahmoud\Desktop\D")
          Dim sr As StreamWriter
          Dim y As Integer = 1
          Do While y <= 3
              sr = New StreamWriter(Path1 & y & "00" & " TO " & y + 1 & "00" & " .txt", True)

              For I = 0 To ListBox1.Items.Count - 1
                  y += 1
                  If I = 100 Then
                      sr.WriteLine(ListBox1.Items(I))

                  End If

              Next
              sr.Close()

          Loop



          Process.Start("C:\Users\Mahmoud\Desktop\D")









          'If I <= 100 Then
          'ElseIf I > 100 And I < 200 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 200 And I < 300 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 300 And I < 400 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 400 And I < 500 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 500 And I < 600 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 600 And I < 700 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 700 And I < 800 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 800 And I < 900 Then
          '    sr.WriteLine(ListBox1.Items(I))
          'ElseIf I > 900 And I < 1000 Then
          '    sr.WriteLine(ListBox1.Items(I))

          'End If




      Catch ex As Exception

      End Try
  End Sub

=======================================

والله يديكم الف عفي يا اخواني ارجاء المسعد في المشروع
الرد
تم الشكر بواسطة:



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


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