تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] TextBox Replace
#1
اريد تغير كل الاحرف الى  و الارقم الى رقم  او حرف معين و الاشكال الى شكل معين
مثلآ لو التكس فيها 4AS E5T E65 Z7S يتم تغيرهم الى مثلآ 8 حسب عدد المجموعات  بمعنى 4AS = المجموعة الاول يتم تغير 4AS الى مثلآ 8 و E5T الى 8 و E65 الى 8 و Z7S الى 8 مع ازالة الفراغ النتج 8888 و اذا كان بهذا الشكل 4AS #$)/ +=-~ Z7S
يتغير الى هذا 8**8
الرد
تم الشكر بواسطة:
#2
اتمنى اني فهمتك كويس  //

كود :
        Dim result As String = ""
        Dim TargetGroups() As String = New String() {"4AS", "E5T", "E65", "Z7S"}
        Dim strGroups() As String = TextBox1.Text.Split(" ")
        If strGroups.Length > 0 Then
            For Each Group As String In strGroups
                If TargetGroups.Contains(Group.Trim) = True Then
                    result += "8"
                Else
                    result += "*"
                End If
            Next
        End If
        TextBox2.Text = result
اسم معرفي : محمد يحيى
الرد
تم الشكر بواسطة: Fantastico , أسامة
#3
(15-03-16, 11:10 PM)myalsailamy كتب : اتمنى اني فهمتك كويس  //

كود :
        Dim result As String = ""
        Dim TargetGroups() As String = New String() {"4AS", "E5T", "E65", "Z7S"}
        Dim strGroups() As String = TextBox1.Text.Split(" ")
        If strGroups.Length > 0 Then
            For Each Group As String In strGroups
                If TargetGroups.Contains(Group.Trim) = True Then
                    result += "8"
                Else
                    result += "*"
                End If
            Next
        End If
        TextBox2.Text = result

جزاك الله خير اخى لاكن يوجد مشكلة ان 4AS", "E5T", "E65", "Z7S متغير على حسب التكست فى التكست بوكس يعنى ممكن يكون WTY 78Z 49Q XCF FG8 9WG الا يوجد حل لهذا ؟يمكن بهذه الطريقة تقسيم التكست كل مجموعة تحتوى على 3 حروف اة حروف و ارقام او ... لاكن كيف !
الرد
تم الشكر بواسطة:
#4
تم حل مشكلة المجموعة بهذا الكود
كود :
       Dim buffer As String = [String].Empty

       For i As Integer = 0 To TextBox1.Text.Length - 1 Step 4
           If TextBox1.Text.Length - i > 4 Then
               buffer += TextBox1.Text.Substring(i, 4) & " "
           Else
               buffer += TextBox1.Text.Substring(i)
           End If
       Next
       TextBox2.Text = buffer
الان كيف تغير كل مجموعة تملك ارقام و احرف الى 8 و مجموعة التى تحتوى على اشكال الى * عندى الفكرة هكذا اذا كانت تحتوى المجموعة على احرف و ارقام (a-z^1-9) كل مجموعة = 8 لو 4 مجاميع = 8888 لو ثلاث مجاميع و مجموعة اشكال = 88*8 على حسب الترتيب ممكن باستخدام Regex.Match مثل هذا Dim regex As New Regex("^[a-z0-9A-Z]{4}-[a-z0-9A-Z]{4}-[a-z0-9A-Z]{4}")
Dim TargetGroups() As String = New String() {regex.ToString}
الرد
تم الشكر بواسطة:
#5
للاسف لم افهمك سابقا  ،،  على العموم عدلته  الان  ان شاء الله يكون المطلوب


كود :
       
        Dim SourceText As String = "WTY 78Z 49Q #@d XCF FG8 9WG"
        Dim oRegularExpressions As New System.Text.RegularExpressions.Regex("^[A-Za-z0-9]+$")
        Dim result As String = ""
        Dim strGroups() As String = SourceText.Split(" ")
        If strGroups.Length > 0 Then
            For Each Group As String In strGroups
                Dim matchlist As MatchCollection = oRegularExpressions.Matches(Group)
                If matchlist.Count > 0 Then
                    result += "8"
                Else
                    result += "*"
                End If
            Next
        End If
        TextBox2.Text = result
اسم معرفي : محمد يحيى
الرد
تم الشكر بواسطة: أسامة
#6
(16-03-16, 03:52 AM)myalsailamy كتب : للاسف لم افهمك سابقا  ،،  على العموم عدلته  الان  ان شاء الله يكون المطلوب


كود :
       
        Dim SourceText As String = "WTY 78Z 49Q #@d XCF FG8 9WG"
        Dim oRegularExpressions As New System.Text.RegularExpressions.Regex("^[A-Za-z0-9]+$")
        Dim result As String = ""
        Dim strGroups() As String = SourceText.Split(" ")
        If strGroups.Length > 0 Then
            For Each Group As String In strGroups
                Dim matchlist As MatchCollection = oRegularExpressions.Matches(Group)
                If matchlist.Count > 0 Then
                    result += "8"
                Else
                    result += "*"
                End If
            Next
        End If
        TextBox2.Text = result

شكرآ هذا هو المطلوب ربنا يزيدك من علمه
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [سؤال] كيفية جعل textbox يكتب ارقام الهاتف بوضع علامة بعد كل رقمين الرائد 3 145 07-08-19, 11:18 AM
آخر رد: الرائد
  اخفاء مؤشر الكتابة من TEXTBOX أبويحيى الجبلاوي 2 215 19-06-19, 03:39 PM
آخر رد: أبويحيى الجبلاوي
  [VB.NET] طلب كود مقارنة إستعلام مع textbox asadtaif 5 310 09-06-19, 01:27 PM
آخر رد: ابراهيم ايبو
  [سؤال] جعل textbox عدد صحيح وعددين عشريين فقط sabil_mart 4 285 05-06-19, 12:57 AM
آخر رد: عبد العزيز البسكري
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 193 24-04-19, 12:19 PM
آخر رد: ahmedfa71
  سؤال حول TextBox مرتبط ب WebBrowser ارجو رد من الاخ DK-x وشكرا للاخ بدري حاتمي 4 268 09-04-19, 06:16 PM
آخر رد: حاتمي
  [VB.NET] [تم الحل] كيفية انشاء صندوق نص و زر شفاف textbox & button الماجيك مسعد 4 483 09-04-19, 02:25 AM
آخر رد: بدري
  سؤال حول TextBox مرتبط ب WebBrowser حاتمي 6 375 09-04-19, 01:00 AM
آخر رد: حاتمي
Lightbulb سؤال حول ال textbox haider kh 3 257 10-03-19, 12:18 AM
آخر رد: ابراهيم ايبو
Lightbulb سؤال بخصوص اعدادات textbox haider kh 8 354 09-03-19, 10:26 AM
آخر رد: ابراهيم ايبو

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


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