1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Option Explicit
Const ForWriting = 2, ForReading = 1
Dim fso, f, Ret, Ident1, Ident2, I, ra, WS
Ident1="Début" ' Identificateur début de la recherche
Ident2="Fin" ' Identificateur fin de la recherche
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("Fichier1.txt", ForReading,False)
I = 0
ra = Split(f.readall, VbCrLf)
Do
ra(i) = LTrim(ra(i)) ' On doit supprimer les espaces avant
If Ucase(ra(i))=Ucase(Ident2) Then Exit Do
If UCase(ra(i)) = UCase(Ident1) Then
Do
i = i + 1
Ret = Ret & ra(i) & VbNewLine
Loop Until UCase(Ident2) = UCase(ra(i))
Ret = Mid(Ret ,1 , Len(Ret) - Len(Ident2 + vbNewLine))
End If
I = I + 1
Loop Until UCase(Ident2) = UCase(ra(i)) OR I >= UBound(ra)
f.Close
If Ret <> "" Then
Set f = fso.OpenTextFile("Result.txt", ForWriting,True)
f.Write Ret
f.Close
End If
Set WS = CreateObject("WScript.Shell")
WS.Run "Result.txt", 1, True |
Partager