07-08-16, 08:15 AM
07-08-16, 08:54 AM
كود :
TextBox1.Text = System.Text.RegularExpressions.Regex.Match(Label1.Text, "\d{3}").ToString07-08-16, 11:31 AM
السلام عليكم
استخدم MID كالتالي
يعطيك العافية
استخدم MID كالتالي
كود :
Dim m As String = Mid(value, 1, 3)يعطيك العافية
07-08-16, 05:16 PM
'طريقة اخري
او الأفضل تحويل الكود اعلاه الي دالة تسترد منها العدد المطلوب
كيف تستخدم الدالة
كود :
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)23-05-24, 02:47 PM
(07-08-16, 11:31 AM)abulayth كتب : [ -> ]السلام عليكم
استخدم MID كالتالي
كود :
Dim m As String = Mid(value, 1, 3)
يعطيك العافية
تقبلك الله في عليين وجعل كل نشرته بغرض العلم في ميزان حسناتك