Bat fil til skiftevis at slette hveranden og hver tredje linje

proev:

@echo off
del /Q Output.txt>nul 2>&1
set first=0
for /F "tokens=*" %%I in ('type myFile.txt') do call :Process "%%I"
goto :eof

:Process
if %first% EQU 0 (
  echo %~1 >>Output.txt
  set first=1
) else if %first% EQU 1 (
  set first=2
) else (
  set first=0
)

Men helt aerligt - hvorfor ikke gaa fra 80'erne og ind i 90'erne ?

D.v.s. bruge VBS fremfor CMD !

Hej Arne

Meget gerne VBS. Kunne bare kun finde en stump kode i CMD

Desværre virker koden ikke helt som forventet følgende test tekst:

1
2
3
4
5
6
1
2
3
4
5
6

Bliver til:

1
4
1
4

Rettede lige lidt så var den der :-)

Takker for hjælpen alligevel.. smid gerne svar..


@echo off
del /Q Output.txt>nul 2>&1
set first=0
for /F "tokens=*" %%I in ('type myFile.txt') do call :Process "%%I"
goto :eof

:Process
if %first% EQU 0 (
  echo %~1 >>Output.txt
  set first=1
) else if %first% EQU 1 (
  set first=2
) else if %first% EQU 2 (
  echo %~1 >>Output.txt
  set first=3
) else if %first% EQU 3 (
  echo %~1 >>Output.txt
  set first=4
) else (
  set first=0
)

svar

Der var vist ingen interesse efter den VBS loesning ...