تقييم الموضوع :
  • 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) mohammed.gadain61 8 227 25-04-17, 04:05 AM
آخر رد: عبـدالله
  [VB.NET] كيف اخزن صورة من TEXTBOX الي قاعدة بيانات SQL SERVER 2005 samawi 4 132 10-04-17, 01:56 AM
آخر رد: samawi
  [سؤال] كيف احدد كلمات معينة في Textbox The Light Fire 3 199 01-02-17, 12:09 AM
آخر رد: The Light Fire
  استفسار حول (ComboBox) و (TextBox). المبرمج المبتدئ 1 10 554 05-01-17, 03:37 AM
آخر رد: المبرمج المبتدئ 1
  تقسيم ip داخل textbox Incubus 2 238 10-12-16, 11:30 PM
آخر رد: Incubus
  تقسيم ال textbox حسب محتوى hano 2 294 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  تكبير اول حرف فى textbox Mohamed20 3 280 28-09-16, 09:27 PM
آخر رد: ابراهيم النعيمي
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 714 21-09-16, 10:00 PM
آخر رد: أبو ناصر
  حل لكود مسح قيمة واحدة من TextBox أحمد محمد جمعة 0 261 04-09-16, 04:19 PM
آخر رد: أحمد محمد جمعة
  كيفة مسح نص واحد من textbox أحمد محمد جمعة 3 291 03-09-16, 04:26 PM
آخر رد: silverlight

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


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