Const слово_1 слово_2
Const слово_3 слово_4
чтоб было: x(1)=слово_1, y(1)=слово_2, x(2)=слово_3, y(2)=слово_4
]]>If InStr(1, str, word) <> 0 ThenOption Explicit
Dim fso, tsIn, tsOut, str
Set fso= Createobject("Scripting.FileSystemObject")
Set tsIn = fso.OpenTextFile("input.txt", 1, 0) ' открываем файл для чтения, в ASCII
Set tsOut = fso.CreateTextFile("output.txt", True, False) 'создаём файл в ASCII, при наличии файл перезаписывается
Do While Not tsIn.AtEndOfStream
str = tsIn.ReadLine 'читаем построчно исходный файл
If InStr(1, str, "Const", 1) = 1 Then 'ищем искомое слово в начале строки
tsOut.WriteLine str 'записываем найденную строку в выходной файл
End If
Loop
tsIn.Close
tsOut.Close
Set fso = NothingЕсли в начале строки может быть незначащий пробел, то перед поиском строку можно пропустить через Trim: InStr(1, Trim(str), "Const", 1).
]]>