[Iska]

Если без проверок — то вот Вам примерная болванка кода:

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

Код:

Option Explicit

Const ForReading   = 1
Const ForWriting   = 2


Dim objTSSource1
Dim objTSSource2


With WScript.CreateObject("Scripting.FileSystemObject")
	Set objTSSource1 = .OpenTextFile("C:\Песочница\006\Source1.txt", ForReading)
	Set objTSSource2 = .OpenTextFile("C:\Песочница\006\Source2.txt", ForReading)
	
	With .OpenTextFile("C:\Песочница\006\Destination.txt", ForWriting, True)
		Do Until objTSSource1.AtEndOfStream
			.WriteLine objTSSource1.ReadLine() & "," & Split(objTSSource2.ReadLine(), ",", 3)(2)
		Loop
		
		.Close
	End With
	
	objTSSource2.Close
	objTSSource1.Close
		
	Set objTSSource2 = Nothing
	Set objTSSource1 = Nothing
End With

WScript.Quit 0

[a_aforkin]

Спасибо то что нужно, только подправил строчку

.WriteLine objTSSource1.ReadLine() & "," & Split(objTSSource2.ReadLine(), ",", 3)(2)

[Iska]

Маразм. маразм… a_aforkin, спасибо, поправил.