[Iska]

Ага. Стало быть, задача такая — сгруппировать строки по трое с разделителем?

Правда, непонятно,

читать дальше »

как из строк:

Код:

Elven Relations
rutracker.org/forum/viewtopic.php?t=3407872
86 MB

может получиться:

Код:

Elven Relations | http://rutracker.org/forum/viewtopic.php?t=3407872 | 86 MB

?

На WSH. Пробуйте:

читать дальше »

Код:

Option Explicit

Dim strSourceFile
Dim strDestFile
Dim arrLines
Dim i


strSourceFile = "E:\Песочница\0338\задача\исходник.txt"
strDestFile   = "E:\Песочница\0338\задача\результат.txt"

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

WScript.Quit 0

Последняя строка исходного файла должна завершаться символами конца строки (иначе уберите «ReDim Preserve arrLines(UBound(arrLines) - 1)»).