+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار بخصوص حذف سطر من RichTextBox (/showthread.php?tid=34852)
استفسار بخصوص حذف سطر من RichTextBox - dubai.eig - 20-05-20
السلام عليكم ورحمة الله
عندي 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اتمنى اجد الحل والطريقه الصحيحه بارك الله فيكم
وشكرا
RE: استفسار بخصوص حذف سطر من RichTextBox - عبدالله الدوسري - 20-05-20
[attachment=24795]
[attachment=24796]
RE: استفسار بخصوص حذف سطر من RichTextBox - ابراهيم ايبو - 20-05-20
السلام عليكم ورحمة الله وبركاته
بارك الله فيك اخي عبد الله الدوسري
من باب التنويع بالكود هذا الكود يحذف السطر من نفس الريتش
كود :
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 SubRE: استفسار بخصوص حذف سطر من RichTextBox - dubai.eig - 20-05-20
استاذي عبدالله الدوسري دومك مبدع شكرا لك بارك الله فيك
استاذي الكريم ابراهيم ايبو شكرا لك اسعد جدا بمشاركاتك بارك الله فيك
احسنتوا
