منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الحصول على اول 3 ارقام - نسخة قابلة للطباعة

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

الحصول على اول 3 ارقام - Mohamed20 - 07-08-16

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

RE: الحصول على اول 3 ارقام - mohamed haroon - 07-08-16

كود :
TextBox1.Text = System.Text.RegularExpressions.Regex.Match(Label1.Text, "\d{3}").ToString
هذا الكود اسهل يشرح استخراج اول 3 ارقام من label1 ويضعها فى textbox1 باستخدام ال Regular Expressions

RE: الحصول على اول 3 ارقام - abulayth - 07-08-16

السلام عليكم

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

كود :
Dim m As String = Mid(value, 1, 3)

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

RE: الحصول على اول 3 ارقام - silverlight - 07-08-16

'طريقة اخري


كود :
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)


RE: الحصول على اول 3 ارقام - Nori Ashour - 23-05-24

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

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

كود :
Dim m As String = Mid(value, 1, 3)

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

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