Тема: VBS: Извлечь строки по списку
Привет. Такая задача.
Вот у меня есть файл C:\111.txt. В нём надо найти определённые строки, которые присутствуют в файле-списке C:\222.txt.
И вывести эти строки в файл C:\Output.txt.
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → Windows Script Host, HTA (VBScript, JScript) → VBS: Извлечь строки по списку
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Привет. Такая задача.
Вот у меня есть файл C:\111.txt. В нём надо найти определённые строки, которые присутствуют в файле-списке C:\222.txt.
И вывести эти строки в файл C:\Output.txt.
List1 = "C:\Список1.txt"
List2 = "C:\Список2.txt"
List3 = "C:\Список_совпавших_строк.txt"
Set Dict = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(List1)
Do : F = Trim(.ReadLine)
If F <> "" Then Dict.Add F, ""
Loop Until .AtEndOfStream : .Close
End With
With FSO.OpenTextFile(List2)
Do : F = Trim(.ReadLine)
If F <> "" And Dict.Exists(F) Then S = S & vbCrLf & F
Loop Until .AtEndOfStream : .Close
End With
If Not IsEmpty(S) Then FSO.CreateTextFile(List3, 1).Write Mid(S, 3)
Flasher, мне нужны различия.
А мне точки в твоих предложениях.
строки, которые присутствуют
Flasher, задача немного изменилась.
If F <> "" And Not Dict.Exists(F) Then S = S & vbCrLf & F
Flasher, великолепно. Ты, как всегда, лучший.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться