منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مساعدة ف تقسيم سترنج ل ارساله - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة ف تقسيم سترنج ل ارساله (/showthread.php?tid=1209)

مساعدة ف تقسيم سترنج ل ارساله - just.coder - 09-12-13

السلام عليكم شباب

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

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
وهكذا
لتسهيل حجمو ف الارسال

اتمنى يكون سوال واضح شباب

RE: مساعدة ف تقسيم سترنج ل ارساله - Aly El-Haddad - 09-12-13

السلام عليكم، كتبت لك تلك الدالة:
PHP كود :
Public Function Partition(ByVal str As String, ByVal 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(0, cap)
            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 هو عدد الحروف في كل جزء


RE: مساعدة ف تقسيم سترنج ل ارساله - just.coder - 09-12-13

(09-12-13, 01:32 PM)Aly El-Haddad كتب :
السلام عليكم، كتبت لك تلك الدالة:
PHP كود :
Public Function Partition(ByVal str As String, ByVal 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(0, cap)
            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 هو عدد الحروف في كل جزء

الف شكر لك اخى هذا ما اريده