Тема: VBScript: Поиск текста по условиям и преобразование в переменные
Так как в VBS совсем недавно, добиться того что написано в заголовке темы, пока не особо удалось. На данный момент пока не могу составить фильтр для поиска. Текст файла в котором ищу данные выглядит так:
ййййййййййй 111999 цццццццц 222222
кккккккккккк 111212 еееееееее 222222
вфцвцвцфвц 11123 вцвцфвфц 999999Нужно найти первые цифры вида "111***"(первые 5-7 знаков всегда одинаковые) по вторым цифрам, если они равны 222222(если не 222222) первые цифры не брать.
Option Explicit
Dim objFSO, objF, filename, str, objRegExp, code, dis
filename = "E:\exp\DONE.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.OpenTextFile(filename,1,false,0)
Do While Not objF.AtEndOfStream
str = objF.Readline()
code =
dis =
if instr(str,code) then
if instr(str,dis) then
msgbox
exit do
end if
loop
objF.Close
Пока наваял такое, есть ли смысл для этого использовать RegExp или же и instr подойдет? и что значит в строке str = objF.Readline() скобки, если убрать результат не меняется. Просьба ДАТЬ ПРИМЕРНОЕ НАПРАВЛЕНИЕ, НЕ НАДО ПИСАТЬ ГОТОВЫЙ СКРИПТ(хочу сам дойти до решения). И в итоге полученный результат по поиску, представлять в переменные т.е. : result1 = str1, result2 = str2
