Textdatei, bestimmte Stellen in einer Zeile entfernen

Hallo,

ich hab auf dem Rechner eine Textdatei, dessen Inhalt so ähnlich aussieht:

Spalte1:                       Spalte2:                            Spalte3:

blabla                           374                                    563
blabla                           639                                    456
blablub                         345                                    dfga

Ich will die Spalte2 und Spalte3 und alles was darunter steht entfernen, nur per Hand würde es
sehr lange dauern, da die Datei ziemlich groß ist.

Hier im Forum fand ich dann jemand, der so ein ähnliches Problem hatte, nur der wollte Spalte1 und
alles was darunter liegt entfernen.

Wie bestimmte Stellen in Zeilen aus .txt entfernen

Weiß jemand wie man das mit Bat oder VBS macht?
danke

@echo off & setlocal
set "Ein=D:\Import.txt"  
set "Aus=D:\Spalte1.txt"  

del "%Aus%" 2>nul  
for /f "usebackq delims=" %%i in ("%Ein%") do set "Zeile=%%i" & call :ProcessLine  
goto :eof

:ProcessLine
>>"%Aus%" echo %Zeile:~,33%  
goto :eof

EinDatei = "D:\Import.txt"  
AusDatei = "D:\Spalte1.txt"  
Spaltenbreite = 32

Set fso = CreateObject("Scripting.FileSystemObject")  
Set Aus = fso.CreateTextFile(AusDatei)

For Each Zeile In Split(fso.OpenTextFile(EinDatei).ReadAll, vbCrLf)
    Aus.WriteLine RTrim(Left(Zeile, Spaltenbreite))
Next
Aus.Close