[Iska]

как при чтении текстового файла пропускать две строки »

Код:

TextStream.SkipLine()
TextStream.SkipLine()

Или можно как-то по другому реализовать? »

Примерный размер файла каков?

[alex1985khv]

Iska, размер файла около 50 мегабайт. Нужно будет регулярно считывать с него данные, только за разную дату.

[Iska]

Тогда можно как-то так (не проверялось):

Код:

Option Explicit

Dim strSourceFile
Dim strDestFile

Dim arrContent
Dim i


strSourceFile = "input.txt"
strDestFile   = "out.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile)
			arrContent = Split(.ReadAll(), vbCrLf)
			.Close
		End With
		
		With .CreateTextFile(strDestFile, True)
			For i = LBound(arrContent) To UBound(arrContent) Step 3
				.WriteLine arrContent(i)
			Next
			
			.Close
		End With
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[alex1985khv]

Iska, работает. Спасибо, вы гений, уже не первый раз помогаете.

[Iska]

Спасибо, вы гений, »

Спасибо, конечно, но Вы глубоко заблуждаетесь.