[dubai.eig]

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

عندي 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

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

وشكرا