[Iska]

caustic, насколько критично «CMD/BAT»? А то вот, фактически, то же: [решено] Соеденить два файла построчно, разве что кавычки добавить.

[caustic]

Нет не критично
но у меня не совсем получается выполнить данный vbs скрипт:

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objTSIn1 = objFSO.OpenTextFile(WScript.Arguments.Item(0), ForReading) Set objTSIn2 = objFSO.OpenTextFile(WScript.Arguments.Item(1), ForReading) Set objTSOut = objFSO.OpenTextFile(WScript.Arguments.Item(2), ForWriting, True) »

как я понял item(0), (1), (2) - это мои текстовые файлы?


плюс ошибка выходит, скрин в приложении. работаю на семерке

[Iska]

caustic, Вы правите не там. Текстовые файлы указываете параметрами при вызове скрипта.

Вот скрипт (согласно Вашему описанию, перед строкой из первого файла кавычка не ставится):

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

Код:

Option Explicit

' Enum IOMode
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8


Dim objFSO

Dim objTSIn1
Dim objTSIn2
Dim objTSOut


Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")

Set objTSIn1 = objFSO.OpenTextFile(WScript.Arguments.Item(0), ForReading)
Set objTSIn2 = objFSO.OpenTextFile(WScript.Arguments.Item(1), ForReading)
Set objTSOut = objFSO.OpenTextFile(WScript.Arguments.Item(2), ForWriting, True)

Do Until objTSIn1.AtEndOfStream And objTSIn2.AtEndOfStream
	If Not objTSIn1.AtEndOfStream Then
		objTSOut.Write objTSIn1.ReadLine & """"
	End If
	
	objTSOut.Write " "
	
	If Not objTSIn2.AtEndOfStream Then
		objTSOut.Write  """" & objTSIn2.ReadLine & """"
	End If
	
	objTSOut.WriteLine
Loop

objTSOut.Close
objTSIn2.Close
objTSIn1.Close

Set objTSOut = Nothing
Set objTSIn2 = Nothing
Set objTSIn1 = Nothing

Set objFSO   = Nothing

WScript.Quit 0

Вызов:

Код:

Script.vbs <Путь ко входному файлу 1> <Путь ко входному файлу 2> <Путь к выходному файлу>

[caustic]

все. теперь я разобрался это работает.
огромное спасибо ) да кавычки вначале не нужны )