[Mohamed20]

كيف الحصول على اول 3 ارقام من string 
هل يمكن الحصول على اول 3 ارقام بدون استخدام substring(0,3 ؟

[mohamed haroon]

كود :

TextBox1.Text = System.Text.RegularExpressions.Regex.Match(Label1.Text, "\d{3}").ToString

هذا الكود اسهل يشرح استخراج اول 3 ارقام من label1 ويضعها فى textbox1 باستخدام ال Regular Expressions

[abulayth]

السلام عليكم

استخدم MID كالتالي

كود :

Dim m As String = Mid(value, 1, 3)

يعطيك العافية

[silverlight]

'طريقة اخري

كود :

Dim number As String = "123456"
       Dim requiredLength As Integer = 3
       Dim result As String = If(number IsNot Nothing, String.Join(CType(Nothing, String), number.Take(requiredLength)), CType(Nothing, List(Of Char)))

او الأفضل تحويل الكود اعلاه الي دالة تسترد منها العدد  المطلوب

كود :

   Private Function GetPartOfString(s As String, length As Integer) As String
       Dim result As String = CType(Nothing, String)
       If Not String.IsNullOrWhiteSpace(s) AndAlso Char.IsDigit(s, length) Then
           result = If(s IsNot Nothing, String.Join(CType(Nothing, String), s.Take(length)), CType(Nothing, List(Of Char)))
       End If
       Return result
   End Function

كيف تستخدم الدالة

كود :

  ' عرض الناتج في اي كونترول
       Label1.Text = GetPartOfString("1234567", 3)

[Nori Ashour]

(07-08-16, 11:31 AM)abulayth كتب : السلام عليكم

استخدم MID كالتالي

كود :

Dim m As String = Mid(value, 1, 3)

يعطيك العافية

تقبلك الله في عليين وجعل كل نشرته بغرض العلم في ميزان حسناتك