Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Unter

Пользователь


Сообщения: 106
Благодарности: 14

Профиль | Отправить PM | Цитировать


Fanzuga
По поводу реализации на CMD подумаю, а пока могу предложить на vbscript:
Код: Выделить весь код
Dim fso, oFile, ioFile, temp
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile("out.inf",1)
Set ioFile = fso.OpenTextFile("result.txt",2,True)
Do While Not (oFile.atEndOfStream)
    temp=oFile.ReadLine
    If InStr(1, temp, "ABC",1) = 0 Then
       ioFile.WriteLine temp
    End If
Loop
ioFile.Close
Set oFile = Nothing
Set ioFile = Nothing
В случае если в скрипт необходимо передавать параметры, то надо еще использовать WScript.Arguments.
Это сообщение посчитали полезным следующие участники:

Отправлено: 04:20, 23-12-2006 | #21