hirurgrrr
25-09-2019, 09:15
Здраствуйте.
Помогите переделать VBS скрипт так чтоб он искал не одно а несколько значений и все вместе сохранил в одну строку.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.opentextfile("0.txt",1)
a = f.ReadAll
Set r = New RegExp
r.Global = True
r.Multiline = True
r.IgnoreCase = True
r.Pattern = "(symbol.+?)(symbol.*?)"
r.Pattern = "(symbol.+?)(symbol.*?)"
Set f = fso.CreateTextFile("1.txt", 2)
For Each m In r.Execute(a)
f.WriteLine m.SubMatches(0)
Next
f.Close
Спасибо.
Помогите переделать VBS скрипт так чтоб он искал не одно а несколько значений и все вместе сохранил в одну строку.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.opentextfile("0.txt",1)
a = f.ReadAll
Set r = New RegExp
r.Global = True
r.Multiline = True
r.IgnoreCase = True
r.Pattern = "(symbol.+?)(symbol.*?)"
r.Pattern = "(symbol.+?)(symbol.*?)"
Set f = fso.CreateTextFile("1.txt", 2)
For Each m In r.Execute(a)
f.WriteLine m.SubMatches(0)
Next
f.Close
Спасибо.