Per Batch in Dateizeilen nach Strings alles löschen

@echo off &setlocal
set "txtfile=test.txt"  
set "newfile=neu.txt"  

setlocal EnableDelayedExpansion
<"!txtfile!" >"!newfile!" (  
  for /f %%i in ('type "!txtfile!"^|find /c /v ""') do for /l %%j in (1 1 %%i) do (  
    set "ln=" &set /p "ln="  
    if defined ln (
      for /f "delims==" %%k in ("!ln!") do echo %%k=  
    ) else (
      echo(
    )
  )
)

@echo off&setlocal
sed  -i.bak "s/=.*/=/" file.txt  

Ein = "D:\test.txt"  
Aus = "D:\neu.txt"  
Delim = "="  

Set fso = CreateObject("Scripting.FileSystemObject")  
T = Split(fso.OpenTextFile(Ein).ReadAll, vbNewLine)

For Each Z In T
    If InStr(Z, Delim) > 0 Then
        N = N & vbNewline & Split(Z, Delim)(0) & Delim
    Else
        N = N & vbNewline & Z
    End If
Next

fso.CreateTextFile(Aus).Write Mid(N, 3)

Ein = "D:\test.txt"  
Aus = "D:\neu.txt"  
Delim = "="  

Set fso = CreateObject("Scripting.FileSystemObject")  
T = Split(fso.OpenTextFile(Ein, 1, 0, 1).ReadAll, vbNewLine)

For Each Z In T
    If InStr(Z, Delim) > 0 Then
        N = N & vbNewline & Split(Z, Delim)(0) & Delim
    Else
        N = N & vbNewline & Z
    End If
Next

fso.CreateTextFile(Aus, 2, 1, 1 ).Write Mid(N, 3)

$inFile = "D:\test.txt"  
$outFile = "D:\neu.txt"  

$regExp = new-object System.Text.RegularExpressions.Regex("(\S+=)(\S+)")  

if (test-path $outFile)
{
  remove-item $outFile
}

foreach ($line in get-content $inFile -encoding UTF8)
{
  $matches = $regExp.match($line)
  $newLine = ""  
  
  if ($matches.success)
  {
    $newLine = $matches.groups[1].captures.toString()
  }

  out-file -inputObject $newLine -encoding UTF8 -append $outFile
}

$inFile = "D:\test.txt"  
$outFile = "D:\neu.txt"  

$crlf = [System.Environment]::NewLine
$newContent = ""  

foreach ($line in get-content $inFile -encoding UTF8)
{
  if ($line.Contains("="))  
  {
    $newContent += $line.Split("=") + "=" + $crlf  
  }
  else
  {
    $newContent += $line + $crlf
  }
}

$encoding = new-object System.Text.UTF8Encoding($False)
[System.IO.File]::WriteAllText($outFile, $newContent, $encoding)

 powershell -nologo -executionpolicy remotesigned -file "Scriptpfad.ps1"

Ein = "D:\de_DE.lang"  
Aus = "D:\neu.txt"  
Delim = "="  

Set fso = CreateObject("Scripting.FileSystemObject")  
T = Split(fso.OpenTextFile(Ein).ReadAll, vbLf)

For Each Z In T
    If InStr(Z, Delim) > 0 Then
        N = N & vbLf & Split(Z, Delim)(0) & Delim
    Else
        N = N & vbLf & Z
    End If
Next

fso.CreateTextFile(Aus).Write Mid(N, 2)