هل يوجد كود يحذف كل سطر يبداء برمز معين في ملف نصي

ياريت تبحث قبل السؤال.

تقدر تحمل الملف سطر سطر فى مصفوفة أو Collection و تعمل Loop و تعمل اللى أنت عايزه فى السطور و بعدين ترجع تحفظ الملف.

أبحث بالمنتدى عن Line Input

السلام عليكم

فقط للإضافة

بعض الحصول على السطر الذي عليك عمله هو تقريبا التالي

If Mid$(TheLine, 1, 1) = a Then
'What Ever Man
End If

و مالها الدالة

Left$

;)

السلام عليكم

صح يا عم صح

صدق أو لا تصدق مباشرة بعد الضغط على

اقتباس

إضافة رد

تذكرتها ولكنني بما أن ردي أصلا كان للإضافة تجاوزت الامر

صح يا عم صح

If Left$(Line, 1) = "A" Then
'What Ever
End If

Private Sub Command1_Click()
Dim strArrBuff() As String
Dim intIdx As Integer

'Open file and load Array buffer
Open "C:\test.txt" For Input As #1
strArrBuff = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For intIdx = 0 To UBound(strArrBuff)
If Left(strArrBuff(intIdx), 1) <> "#" Then
   List1.AddItem strArrBuff(intIdx)
End If
Next
End Sub

بارك الله فيكم على الرد وجزاكم خير جزاء