تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم ال textbox حسب محتوى hano 2 95 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  تكبير اول حرف فى textbox Mohamed20 3 113 28-09-16, 09:27 PM
آخر رد: ابراهيم النعيمي
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 442 21-09-16, 10:00 PM
آخر رد: أبو ناصر
  حل لكود مسح قيمة واحدة من TextBox أحمد محمد جمعة 0 120 04-09-16, 04:19 PM
آخر رد: أحمد محمد جمعة
  كيفة مسح نص واحد من textbox أحمد محمد جمعة 3 134 03-09-16, 04:26 PM
آخر رد: silverlight
  كيفية جعل كلمة في اداة RichTextBox تكون في textbox soper 7 160 25-08-16, 06:20 PM
آخر رد: أسامة السالمي
  استفسار داخل ال TextBox عبدالرحمن المكاوي 9 283 20-07-16, 12:59 PM
آخر رد: CLARO
  [VB.NET] نقل القيمة من textbox الى اخر explorer2 6 489 01-06-16, 10:19 AM
آخر رد: explorer2
  [VB.NET] الرجاء المساعدة في ارجاع اكبر رقم في عمود والزيادة بواحد في textbox abushahewa_ly 2 180 21-05-16, 07:26 PM
آخر رد: abushahewa_ly
  [سؤال] خواص textbox Bahaa Saad 13 454 19-05-16, 03:41 AM
آخر رد: %Eman%

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


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