تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعدة ف تقسيم سترنج ل ارساله
#1
Question 
السلام عليكم شباب

انا دلوقتى عندى سترنج محتواه كبير وانا عايز اعملو عملية ارسال فعايز اقسمه الى اجزاء يعنى مثلا دا محتوى الاسترنج

fdsgarrgdgjnsdlghqwoehgv.dseghwe59824sdlgwet946t 4t68y4nt3cv34tn34hyt9vnnt205tmu2cxt1[t6c[tyn13vb1tybv13ytbvyt643tynv13[pytbn1v[ytv[tyvbytb31ybv1ytv1tyn[tybv[tybv`t[b`[ytb[ 0vytbv0n[3tn[tvn`y[tvy`t`b4v[]t]fdsgarrgdgjnsdlghqwoehgv.dseghwe59824sdlgwet946t 4t68y4nt3cv34tn34hyt9vnnt205tmu2cxt1[t6c[tyn13vb1tybv13ytbvyt643tynv13[pytbn1v[ytv[tyvbytb31ybv1ytv1tyn[tybv[tybv`t[b`[ytb[ 0vytbv0n[3tn[tvn`y[tvy`t`b4v[]t]

انا عايز اقسمو ل عدة اجزاء تكون متسوية ف الحجم

مثلا

الجزء الاول
fdsgarrgdgjnsdlghqwoehgv.dseghwe59824sdlgwet946t 4t68y4nt3cv34tn34hyt9vnnt205tmu2cxt1[t6c[tyn13vb1tybv13ytbvyt643tynv13[pytbn

الجزء الثانى
946t 4t68y4nt3cv34tn34hyt9vnnt205tmu2cxt1[t6c[tyn13vb1tybv13ytbvyt643tynv13[pytbn
وهكذا
لتسهيل حجمو ف الارسال

اتمنى يكون سوال واضح شباب
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم، كتبت لك تلك الدالة:
PHP كود :
Public Function Partition(ByVal str As StringByVal cap As Integer) As List(Of String)
        If 
str.Length cap Then
            
Return New List(Of String)({str})
        
End If
        
Dim out As New List(Of String)
        Do
            
Dim p As String str.Substring(0cap)
            
str str.Substring(cap)
            
out.Add(p)
            If 
str.Length cap Then
                p 
str
                out
.Add(p)
                Exit Do
            
End If
        
Loop
        
Return out
    End 
Function 
و طريقة استخدامها:
PHP كود :
Dim parts As List(Of String) = Partition("النص الذي تريد تقسيمه"5
حيث 5 هو عدد الحروف في كل جزء
الرد }}}}
تم الشكر بواسطة: sooriaty03 , just.coder , ناجي إبراهيم
#3
(09-12-13, 01:32 PM)Aly El-Haddad كتب :
السلام عليكم، كتبت لك تلك الدالة:
PHP كود :
Public Function Partition(ByVal str As StringByVal cap As Integer) As List(Of String)
        If 
str.Length cap Then
            
Return New List(Of String)({str})
        
End If
        
Dim out As New List(Of String)
        Do
            
Dim p As String str.Substring(0cap)
            
str str.Substring(cap)
            
out.Add(p)
            If 
str.Length cap Then
                p 
str
                out
.Add(p)
                Exit Do
            
End If
        
Loop
        
Return out
    End 
Function 
و طريقة استخدامها:
PHP كود :
Dim parts As List(Of String) = Partition("النص الذي تريد تقسيمه"5
حيث 5 هو عدد الحروف في كل جزء

الف شكر لك اخى هذا ما اريده
الرد }}}}
تم الشكر بواسطة: الشاكي لله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في عملية الإضافة الحفظ والتعديل لثلاث جداول ahmedfa71 2 137 24-06-17, 04:21 PM
آخر رد: سعود
  [VB.NET] مطلوب مساعدة بشكل عاجل في حل مشكلة في الإتصال بالقاعدة "بمقابل مادي" asadtaif 4 131 22-06-17, 11:04 PM
آخر رد: moh_g
  [سؤال] احتاج الى مساعدة في التحكم في ملف تكست خارجي malek369 1 81 20-06-17, 07:38 AM
آخر رد: سعود
  ممكن مساعدة من الاخوة benali17 1 56 20-06-17, 06:45 AM
آخر رد: سعود
  [VB.NET] مساعدة في العمل على موقع بإستخدام HttpWebReuest asda 0 55 17-06-17, 05:20 AM
آخر رد: asda
  مساعدة في كود الاضافة والتخزين و الحذف والتعديل و البحث khaled12345 5 213 16-06-17, 08:17 PM
آخر رد: khaled12345
  مساعدة في اغلا ق الشاشة الترحيبيه بعد دقيقة وفتح الشاشة الرئيسيه للمشروع khaled12345 2 89 13-06-17, 10:33 PM
آخر رد: khaled12345
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 6 276 10-06-17, 12:37 AM
آخر رد: ابراهيم كركوكي
  [VB.NET] احتاج الى مساعدة في message box malek369 3 113 09-06-17, 02:37 PM
آخر رد: lkaam
  [VB.NET] مساعدة في طباعة تقرير عن طريق viwe محمد بوقزاحة 0 65 09-06-17, 02:32 AM
آخر رد: محمد بوقزاحة

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


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