Код:
Txt = "Z:\Box_In\Эпидерсия.txt"
N1 = 3
N2 = 2788
M1 = 468
M2 = 3262
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set inFile = FSO.OpenTextFile(Txt, 1)
If Err.Number <> 0 Then
MsgBox Txt + vbCrLf + Err.Description
WScript.Quit 1
End If
On Error GoTo 0
AllTxt = inFile.ReadAll
inFile.Close
Mas = Split(AllTxt, vbCrLf)
UMas = UBound(Mas)
LMas = LBound(Mas)
For i = N1 To N2
If i + LMas - 1 <= M2 - LMas And i + LMas - 1 <= UMas Then
Mas(i + LMas - 1) = Mas(i + LMas - 1 + M1 - N1)
End If
Next
On Error Resume Next
Set inFile = FSO.OpenTextFile(Txt, 2, True)
If Err.Number <> 0 Then
MsgBox Txt + vbCrLf + Err.Description
WScript.Quit 1
End If
On Error GoTo 0
For Each S In Mas
inFile.WriteLine S
Next
inFile.Close
