Zeichenkette erkennen und exportieren

Const ForReading = 1
Const ForWriting = 2
Const AsASCII    = 0

If WScript.Arguments.Count > 2 Then
  Set objFSO    = CreateObject("Scripting.FileSystemObject")  
  Set objInFile = objFSO.OpenTextFile(WScript.Arguments(0), ForReading, False, AsASCII)
  strContent    = objInFile.ReadAll
  objInFile.Close
  
  Set objOutFile     = objFSO.OpenTextFile(WScript.Arguments(1), ForWriting, True, AsASCII)
  Set objPatternFile = objFSO.OpenTextFile(WScript.Arguments(2), ForReading, False, AsASCII)
  Set objRegExp      = New RegExp
  objRegExp.Global   = True

  While not objPatternFile.AtEndOfStream
    objRegExp.Pattern = objPatternFile.ReadLine
    Set colMatches    = objRegExp.Execute(strContent)
  
    For Each objMatch In colMatches
      objOutFile.WriteLine objMatch.Value
    Next
    
    Set colMatches = Nothing
  Wend
  
  objPatternFile.Close
  objOutFile.Close
End If

cscript /nologo  "SearchPatternsInFile.vbs" "Eingabedatei.txt" "Ausgabedatei.txt" "Suchmusterdatei.txt"

Set RE = New RegExp

RE.Pattern = "(\d{8})\D"   'Nur 8 Ziffern + Nicht-Ziffer finden  

For Each Matches In RE.Execute(Text)	'Text = File.ReadAll  
    Zahl = Matches.SubMatches(0)
Next

RE.Pattern = "(|\D)(\d{8})(\D|)"

....
Set RE = New RegExp
Set DT = CreateObject("Scripting.Dictionary")  

With RE
   .Global = True
  '.IgnoreCase = True  
   .Pattern = "(\d{8})(\D|)"  
End With

For Each Matches In RE.Execute(Text)
    If Not DT.Exists("$" & Matches.SubMatches(0)) Then  
        DT.Add "$" & Matches.SubMatches(0), 0  
    End If
Next
  
For Each Key In DT
    'File.WriteLine Mid(Key, 2)  
Next