Einzeilige Datendatei in Zeilen aufspalten

@echo off
set "quelle=D:\quelle.txt"  
set "ziel=D:\ziel.txt"  
powershell -Executionpolicy Bypass -NoProfile -Command  "[regex]::Matches((gc '%quelle%' -TotalCount 1),'\{[^}]*\}').Value | sc '%ziel%'"  

Dim fso, matches, match, regex, file, strContent, fileIN, fileOUT, strOUT
fileIN = "D:\quelle.txt"  
fileOUT = "D:\ziel.txt"  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set regex = CreateObject("vbscript.regexp")  
regex.Global = True: regex.IgnoreCase = True
regex.Pattern = "\{[^}]*\}"  
strContent = fso.OpenTextFile(fileIN,1).ReadLine
set matches = regex.Execute(strContent)
strOut = ""  
If matches.count > 0 Then
	For Each match In matches
		strOut = strOut & match & vbNewLine
	Next
End If
fso.OpenTextFile(fileOUT,2).Write strOUT

Sub WriteUTF8(file, txt)
  With CreateObject("ADODB.Stream")  
  	.Type = 2 : .Charset = "UTF-8" : .Open  
  	.WriteText txt
  	.SaveToFile file, 2
  	.Close
  End With
End Sub

Function ReadUTF8(file)
   With CreateObject("ADODB.Stream")  
	.Type = 2 : .Charset = "UTF-8" : .Open : .LoadFromFile(file)  
	ReadUTF8 = .ReadText
 	.Close
   End With
End Function