[abulayth]

السلام عليكم

بامكانك استخدام الكود التالي

PHP كود :

Private Sub Command1_Click()
Close
Open App.Path & "/in.txt" For Input As #1
Open App.Path & "/out.txt" For Output As #2
Dim l1$, l2$, l3$, a$
l1$ = ""
l2$ = ""
l3$ = ""
a$ = ""
gt = False
gt0:
If EOF(1) = True Then Close: End
Line Input #1, a$
l1$ = l2$
l2$ = l3$
l3$ = a$
If InStr(a$, "ip vrf NMS_CORE") > 0 Then GoTo gt1
If InStr(a$, "ip vrf CORP") > 0 Then GoTo gt1
If InStr(a$, "ip vrf VOICE") > 0 Then GoTo gt1
Print #2, a$
GoTo gt2
gt1:
If InStr(l2$, "address-family ipv4") > 0 Then GoTo gt3
If l1$ = "" And l2$ = "" Then GoTo gtx
If Trim(l2$) <> "$" Then Print #2, "$"
Print #2, "address-family ipv4"
Print #2, a$
GoTo gtx
gt2:
GoTo gtx
gt3:
If Trim(l1$) <> "$" Then Print #2, "$"
Print #2, a$
gtx:
GoTo gt0
End Sub 


ملف الادخال اسمه in.txt

ملف الاخراج اسمه out.txt

او بامكانك تحميل الملف من المرفقات

يعطيك العافية