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

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

2017-02-17T13:54:57Z

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

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

2017-02-17T13:51:36Z

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

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

2017-02-17T13:46:14Z

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

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

2017-02-17T13:44:39Z

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

Parazit пишет:

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

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

2017-02-17T13:40:01Z

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

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

2017-02-17T13:09:11Z

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: Извлечь строки по списку

2017-02-17T11:34:03Z

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