[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

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

وشكرا

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

   


   

[ابراهيم ايبو]

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

كود :

  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

[dubai.eig]

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


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



احسنتوا