поиск с копированием

[alexvav]

Здравствуйте!
Имеется текстовый файл (*.txt). Может знает кто, как скопировать все строки НЕ содержащие определённый текст.
команда

findstr /v "текст"

только отображает, а надо копировать в другой файл.
Извините, если не в ту тему, но куда не пойму.

[Hugo121]

Перебирать строки и проверять на InStr()

Вот например текст vbs скрипта, но можно и в Эксель встроить:

	' FSO Constants
	Const ForReading   = 1
	Const ForAppending	= 8
	Const TristateUseDefault= -2
	
	' Variables
	Dim objFSO, objTS, objfile, sFS, s

	' Instantiate the object
	Set objFSO = CreateObject("Scripting.FileSystemObject")

	' open the text file read only
	Set objTS = objFSO.OpenTextFile("C:\Temp\in.txt", ForReading, False, TristateUseDefault)
	
	Do While objTS.AtEndOfStream <> True
		s = CStr(objTS.ReadLine())
		if instr(s, "текст")>0 then	sFS = sFS & s & vbCrLf
	Loop
	
	' Close the file after we read it in.
	objTS.Close
	Set objTS = Nothing
	
	' We now open the file to write it out
	If objFSO.FileExists("c:\Temp\out@.txt") Then
		Set objTS = objFSO.OpenTextFile("C:\Temp\out@.txt", ForAppending) 'открываем итоговый файл для добавления записей
	Else
		Set objfile = objFSO.CreateTextFile("C:\Temp\out@.txt")
		Set objfile = Nothing
		Set objTS = objFSO.OpenTextFile("C:\Temp\out@.txt", ForAppending)
	End if
	objTS.Write sFS
	objTS.Close
	Set objTS = Nothing
	Set objFSO = Nothing

[EducatedFool]

А какое отношение имеет тема к Microsoft Office Excel?

[alexvav]

оказывает, надо было в конце строки добавить

>"имя файла"

всем спасибо.