Серый форум — VBS: Извлечь строки по списку

Re: VBS: Извлечь строки по списку

null@example.com (Parazit) — Fri, 17 Feb 2017 13:54:57 +0000

Flasher, великолепно. Ты, как всегда, лучший.

Re: VBS: Извлечь строки по списку

null@example.com (Flasher) — Fri, 17 Feb 2017 13:51:36 +0000

If F <> "" And Not Dict.Exists(F) Then S = S & vbCrLf & F

Re: VBS: Извлечь строки по списку

null@example.com (Parazit) — Fri, 17 Feb 2017 13:46:14 +0000

Flasher, задача немного изменилась.

Re: VBS: Извлечь строки по списку

null@example.com (Flasher) — Fri, 17 Feb 2017 13:44:39 +0000

А мне точки в твоих предложениях.

Parazit пишет:

строки, которые присутствуют

Re: VBS: Извлечь строки по списку

null@example.com (Parazit) — Fri, 17 Feb 2017 13:40:01 +0000

Flasher, мне нужны различия.

Re: VBS: Извлечь строки по списку

null@example.com (Flasher) — Fri, 17 Feb 2017 13:09:11 +0000

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)

VBS: Извлечь строки по списку

null@example.com (Parazit) — Fri, 17 Feb 2017 11:34:03 +0000

Привет. Такая задача.
Вот у меня есть файл C:\111.txt. В нём надо найти определённые строки, которые присутствуют в файле-списке C:\222.txt.
И вывести эти строки в файл C:\Output.txt.