[бУРов]

А мне можно эти образцы получить? Задача заинтересовала. Если там "персональная" инфа, то не надо, конечно.

[Iska]

Из письма в PM:

Привет, ну что там ?

Поскольку ответить мне не удалось по причине:

BMW09121985 превысил(а) максимальный объем сохраненных персональных сообщений и не может получать новые сообщения, пока не удалит часть старых.

— оставляю текст своего неотправленного письма тут:

В процессе. Занимаюсь. Пока что подтверждаю сам факт проблемы.

[BMW09121985]

Iska, Ок, а то я вообще ума не приложу, почему так !

[Iska]

BMW09121985, факт подтверждаю. Причины мне не ясны: обычный текст, состоящий из банальных цифр, нет проблем с концами строк. Не знаю, на что можно грешить во входных данных.

В качестве обходного пути предлагаю попробовать скрипт WSH:

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

Код:

Option Explicit

Const SystemFolder = 1
Const ForWriting   = 2

Dim lngErrCode

Dim objFSO

Dim strSourceFile
Dim strFilterFile

Dim objDictionary
Dim strLine


lngErrCode = 0

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

If UCase(WScript.FullName) = UCase(objFSO.BuildPath(objFSO.GetSpecialFolder(SystemFolder), "cscript.exe")) Then
	If WScript.Arguments.Count = 2 Then
		If WScript.Arguments.Named.Exists("Source") Then
			strSourceFile = WScript.Arguments.Named.Item("Source")
			
			If WScript.Arguments.Named.Exists("Filter") Then
				strFilterFile = WScript.Arguments.Named.Item("Filter")
				
				If objFSO.FileExists(strSourceFile) Then
					If objFSO.FileExists(strFilterFile) Then
						Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
						
						With objFSO
							With .OpenTextFile(strFilterFile)
								Do Until .AtEndOfStream
									strLine = .ReadLine()
									
									If Not objDictionary.Exists(strLine) Then
										objDictionary.Add strLine, strLine
									End If
								Loop
								
								.Close
							End With
							
							With .OpenTextFile(strSourceFile)
								Do Until .AtEndOfStream
									strLine = .ReadLine()
									
									If Not objDictionary.Exists(strLine) Then
										WScript.StdOut.WriteLine strLine
									End If
								Loop
								
								.Close
							End With
						End With
						
						objDictionary.RemoveAll
						Set objDictionary = Nothing
					Else
						WScript.StdErr.WriteLine "Filter file [" & strFilterFile & "] not found"
						ShowUsage 6
					End If
				Else
					WScript.StdErr.WriteLine "Source file [" & strSourceFile & "] not found"
					ShowUsage 5
				End If
				
				Set objFSO = Nothing
			Else
				ShowUsage 4
			End If
		Else
			ShowUsage 3
		End If
	Else
		ShowUsage 2
	End If
Else
	MsgBox "Usage: cscript.exe //nologo " & WScript.ScriptName & " /Source:<Source file> /Filter:<Filter file>", _
		vbExclamation + vbOKOnly, "Error: Use «cscript.exe» executable instead of «wscript.exe»"
	lngErrCode = 1
End If

WScript.Quit lngErrCode
'=============================================================================

'=============================================================================
Sub ShowUsage(lngSetErrCode)
	WScript.StdErr.WriteLine "Usage: cscript.exe //nologo " & WScript.ScriptName & " /Source:<Source file> /Filter:<Filter file>"
	lngErrCode = lngSetErrCode
End Sub
'=============================================================================

На Вашем примере это может выглядеть так:

Код:

cscript.exe //nologo SomeScript.vbs /Source:0002.txt /Filter:0001.txt 1>0003.txt

[BMW09121985]

Iska, А можно подробнее об этом использовании ?
Я в скриптах 0 !

[Iska]

Сохраняете приведённый выше код в файл с расширением «.vbs», например «SomeScript.vbs». Можно использовать Блокнот.

Возможно, самым простым для Вас будет использовать пакетный файл, подобный ранее использовавшемуся:

Код:

findstr.exe /v /g:"0001.txt" "0002.txt" >"0003.txt"

в котором Вы пишете, например:

Код:

cscript.exe //nologo SomeScript.vbs /Source:0002.txt /Filter:0001.txt 1>0003.txt

где «SomeScript.vbs» — имя скрипта, «0002.txt» — имя исходного файла, «0001.txt» — имя файла-фильтра, строки которого «фильтруют» исходный файл так, чтобы на выходе остались только те строки из «0002.txt», которых нет в «0001.txt».

«1>0003.txt» — обычное перенаправление вывода stdout скрипта в файл.

Разумеется, можно указывать пути, а не только имена. При наличии пробелов и т.п. в именах/путях — заключайте их в кавычки.

[BMW09121985]

Iska,

Насколько я понял, этот Код: findstr.exe /v /g:"0001.txt" "0002.txt" >"0003.txt" »

должен быть в батнике..


а тут ->

В качестве обходного пути предлагаю попробовать скрипт WSH: « скрыть »

файлик с расширением vbs .

[Iska]

BMW09121985, так: variant3.7z понятнее?

[BMW09121985]

Iska, Да, у меня уже получилось! Огромное спасибо!

[Iska]

BMW09121985, успехов! «Свистите», ежели что.