VBS: Как найти подстроку в тхт файле?

Вот что Ваш скрипт выдаёт у меня:

OFF: Безотносительно к изложенному скрипту: лучший метод для подобных вещей — использование регулярных выражений (RegExp), хотя, как правило, пока это заработает — семь потов сойдёт .

http://www.script-coding.com/WSH/FileSy … html#3.24.

Спасибо, я проверил параметр format - objFSO.OpenTextFile("E:\Other\TEST\Terms.txt", ForReading,TristateFalse)
но все равно выдает теперь, что нашел, но в таком виде
The search term  was found.
The search term  was found.
The search term  was found.

В общем для моей задачи, достаточно чтобы просто нашло, не важно уже выводится или нет, но на будущее хотелось бы раз и навсегда понять почему
файл с кодировкой Юникод открыватеся иероглифами при указании открывать как ANSY?

С первым согласен.
На мой взгляд, ничего более эффективного для работы со строками чем RegExp пока не придумано.

Со вторым нет.
После того, как разберешься с языком регулярных выражений, так сказать, научишься на нем думать,
пользоваться им затруднений не вызывает.

Готов консультировать по составлению регекспов
(только примеры буду приводить на JS, ввиду кривоватой формы записи регекспов в VBS)

В отсутствии сокращенной формы записи регекспов - /pattern/

JS:
var x="xxyyzz".match(/(y+)/i)[1];    // вернет "yy"

сколько строк это займет на VBS?

> можно пример с регекспов - поиск в текстовом файле любого из слов "Ошибка", "Не удалось", "не" ?

Пожалуйста: /Ошибка|Не удалось|не/
А если регистр символов не важен, то можно и так: /Ошибка|Не/i
("не удалось" включает в себя "не" и отдельно искать его необходимости нет)
Причем, думаю, ты на самом деле хочешь найти не то, что просишь.
Поиск "не" сработает, например, на строке содержещей слово "выполнено".
Если тебе нужно именно предлог "не", то в регекспе не забудь пробел после него:  /Ошибка|Не удалось|не /

Хотя в данном случае проблемы не в регекспах:

> TextStream.ReadAll() '- И ПОЧЕМУ ЗДЕСЬ ОШИБКУ ВЫДАЕТ: Ошибка выполнения Microsoft VBScript: Ввод данных за пределами файла?

Потому что файл нулевой длины.
Нужно сначала проверить, что размер файла больше нуля.

> Почему у меня на экране в результате запуска скрипта выдается это?
яю↕♦K♦?♦>♦;♦=♦5♦=♦8♦5♦

Потому что файл в кодировке UNICODE, но ты не указываешь соответствующей опции, когда его открываешь, и он считывается как ANSI

Доброго всем. Небольшой вопросик по скрипту имеется:

Этот скрипт  находит в файле 1203.txt слова которые я забил в файл terms.txt.
Но вот незадача, нужно указывать точное имя файла v:\post\1203.txt. А как бы сделать по маске??? Например v:\post\*.txt ?????
Вот код

 Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("v:\post\1203.txt", ForReading)
 
strContents = objFile.ReadAll
objFile.Close
 
Set objFile = objFSO.OpenTextFile("c:\Terms.txt", ForReading)
strSearchTerms = objFile.ReadAll
objFile.Close
 
arrSearchTerms = Split(strSearchTerms, vbCrLf)
 
For Each strItem in arrSearchTerms
    intFound = InStr(strContents,strItem)
    If intFound > 0 Then
        Wscript.Echo "У тебя  " & strItem & "ошибка."
    End If
Next

Спасибо всем за помощь.

Люди, подскажи пожалуйста кусок кода. Задача.
Я через Handle.exe узнаю PID процесса, который блокирует файл от удаления. и сохраняю это в текстовый файл.

Handle v3.42
Copyright (C) 1997-2008 Mark Russinovich
Sysinternals - www.sysinternals.com

1cv7.exe           pid: 3728     18: D:\copy\comp\1Cv7.LCK

как мне в VBS выцыпить PID? что бы можно было убить процесс.