منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله

عندي RichTextBox في عدة اسطر

كمثال

PHP كود :
----------------W222-2---*--------------------------CQ-TA5FA-KM77--
----------------W222-2---*-------33@------i---------CQ-IK4TVP-JN64--
----------------W222-2---*--------------------------CQ-SV1EEX-KM17--
----------------W222-2---*----------------]---------CQ-A4fff-LL93-- 

اريد اذا طلع بعد كلمة CQ- اول حرفين A4

يقوم بمسح هذا السطر من ال RichTextBox

انا حاولت بالكود الي معاي بس ما نفع ما مسح

كود :
   Dim textget As String

 Dim RotateCount As Integer = 0

        Do Until RotateCount = RichTextBox1.Lines.Count - 1 

            textget = RichTextBox1.Lines(RotateCount)

            RotateCount += 1

        Loop

        Dim a1CQ As String = textget.Substring(52, 2).Trim

        If a1CQ = "CQ" Then

            Dim a2CQ As String = textget.Substring(55, 2).Trim

            If a2CQ = "A4" Then

                MsgBox("A4")

                textget.Remove("A4")

            End If

        End If

اتمنى اجد الحل والطريقه الصحيحه بارك الله فيكم

وشكرا

[attachment=24795]

[attachment=24796]

السلام عليكم ورحمة الله وبركاته
بارك الله فيك اخي عبد الله الدوسري
من باب التنويع بالكود هذا الكود يحذف السطر من نفس الريتش

كود :
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim lines As New List(Of String)

       'انشاء ليست من اسطر الريتش

       lines.AddRange(RichTextBox1.Lines)

       For ln As Integer = lines.Count - 1 To 0 Step -1

           'حذف العنصر السطر الذي يحوي الكلمة 

           If lines(ln).Contains("CQ-A4") Then

               lines.RemoveAt(ln)

           End If

       Next

       'اعادة الليست الى الريتش محذوفا منها السطر

       RichTextBox1.Lines = lines.ToArray

   End Sub

استاذي عبدالله الدوسري دومك مبدع شكرا لك بارك الله فيك

استاذي الكريم ابراهيم ايبو شكرا لك اسعد جدا بمشاركاتك بارك الله فيك

احسنتوا Smile

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dubai.eig

عبدالله الدوسري

ابراهيم ايبو

dubai.eig