[Ahmed_Mansoor]

اهلا ، إذا لم تكن بيانات الملف النصي كبيرة جداً ، فمن الممكن إستخدام هذه الطريقة ، وبما أن علامة الـ $ تفصل التعاريف دائما فيمكن الإستعانه بدالة التجزئه ، كمايلي :

كود :

Dim Defins() As String
Dim FileData As String
Dim I As Integer
Dim F As Integer

F = FreeFile
Open "File.txt" For Input As #F
           FileData = Input(LOF(F),F)
           DoEvents
Close #F

IF InStr(1,FileData,"$") = 0 Then
   MsgBox "There is Problem"
   Exit Sub
End IF

Defins = Split(FileData,"$")
DoEvents

Kill File.txt
DoEvents

F = FreeFile
Open "File.txt" For Append As #F

For I = LBound(Defins) To UBound(Defins)

      IF InStr(1,Defins(I),"address-family ipv4") <> 0 Then
          Print #F,Defins(I)
          DoEvents
          Print #F,"$"
          DoEvents
       Else
          Print #F,Defins(I)
          DoEvents
          Print #F,"address-family ipv4"
          DoEvents
          Print #F,"$"
          DoEvents
       End IF

Next

Close #F
DoEvents

MsgBox "Ok We Are Done!"